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

cyclic-variable-indirection but any error in documentation-property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1bcd9c7001ef07493a17a8b00329d8de319c7f22..566dad73cf06258c6b25c58119297d72b2ea3f94 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 0b6d9cd2223d2e8700cc7db8190bcd94bca48786..04ff194a3bf5c68107176cf6fc9854e1452ea7ed 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -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

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 85c1e62e2c353694c93622565ef8951b2f91bab9..fa7d9b325dbe16075e1f69886e2a26b9ca765eac 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -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)))))))