procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/help-mode.el (help-make-xrefs): Don't just withstand

Browse source 
cyclic-variable-indirection but any error in documentation-property.
This commit is contained in:
Stefan Monnier 2012-06-27 17:16:32 -04:00
parent 1ec4b7b259
commit 0490178694
3 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2012-06-27 Stefan Monnier <monnier@iro.umontreal.ca>
* help-mode.el (help-make-xrefs): Don't just withstand
cyclic-variable-indirection but any error in documentation-property.
* loadup.el (purify-flag): Pre-grow the hash-table to reduce the
memory use.
* bindings.el (bindings--define-key): New function.

2
lisp/emacs-lisp/cl.el
View file

@ -519,7 +519,7 @@ Unlike `flet', this macro is fully compliant with the Common Lisp standard.
;; Generalized variables are provided by gv.el, but some details are
;; not 100% compatible: not worth the trouble to add them to cl-lib.el, but we
;; still to support old users of cl.el.
;; still need to support old users of cl.el.
;; FIXME: `letf' is unsatisfactory because it does not really "restore" the
;; previous state. If the getter/setter loses information, that info is

12
lisp/help-mode.el
View file

@ -500,14 +500,14 @@ that."
((and
(or (boundp sym)
(get sym 'variable-documentation))
(or
(documentation-property
sym 'variable-documentation)
(condition-case nil
(condition-case err
(or
(documentation-property
sym 'variable-documentation)
(documentation-property
(indirect-variable sym)
'variable-documentation)
(cyclic-variable-indirection nil))))
'variable-documentation))
(error (message "No doc found: %S" err) nil)))
(help-xref-button 8 'help-variable sym))
((fboundp sym)
(help-xref-button 8 'help-function sym)))))))