From: Jesper Harder <harder@ifa.au.dk>
Date: Mon, 5 Apr 2004 12:09:53 +0000 (+0000)
Subject: (help-make-xrefs): Recognize aliased variable with
X-Git-Tag: ttn-vms-21-2-B4~6966
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d0a6ebb506eeb7151ab598fec4f73f709238e41;p=emacs.git

(help-make-xrefs): Recognize aliased variable with
inherited docstring.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f8b71b739d..e6c9d8d37a3 100644
--- 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 032509b9614..a2a121a89e9 100644
--- 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)))))))