(help-make-xrefs): Recognize aliased variable with

inherited docstring.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f8b71b739dd1d1cac9c552d6db673f71f4fe85d..e6c9d8d37a3340b568ee3bcc101b4924fd287f97 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2004-04-05  Jesper Harder  <harder@ifa.au.dk>
 
+       * help-mode.el (help-make-xrefs): Recognize aliased variable with
+       inherited docstring.
+
        * play/gamegrid.el (gamegrid-add-score-insecure): Use sort-fields.
 
 2004-04-04  Luc Teirlinck  <teirllm@auburn.edu>

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 032509b9614c2934065b90fd13214a365a5d5b1d..a2a121a89e9172984efe8b0e36e48067addc9bdf 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -374,8 +374,14 @@ that."
                           (help-xref-button 8 'help-symbol sym))
                          ((and
                           (boundp sym)
-                          (documentation-property sym
-                                                  'variable-documentation))
+                          (or
+                           (documentation-property
+                            sym 'variable-documentation)
+                           (condition-case nil
+                               (documentation-property
+                                (indirect-variable sym)
+                                'variable-documentation)
+                             (cyclic-variable-indirection nil))))
                          (help-xref-button 8 'help-variable sym))
                         ((fboundp sym)
                          (help-xref-button 8 'help-function sym)))))))