# HG changeset patch
# User Jesper Harder <harder@ifa.au.dk>
# Date 1081166993 0
# Node ID a0b481c8f7d5874e98c2b10dd14dcb4fea83e458
# Parent  1ffff21d09898f04713fff1ee2e63442fdb73b89
(help-make-xrefs): Recognize aliased variable with
inherited docstring.

diff -r 1ffff21d0989 -r a0b481c8f7d5 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Apr 05 11:57:14 2004 +0000
+++ b/lisp/ChangeLog	Mon Apr 05 12:09:53 2004 +0000
@@ -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 -r 1ffff21d0989 -r a0b481c8f7d5 lisp/help-mode.el
--- a/lisp/help-mode.el	Mon Apr 05 11:57:14 2004 +0000
+++ b/lisp/help-mode.el	Mon Apr 05 12:09:53 2004 +0000
@@ -374,8 +374,14 @@
                           (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)))))))