[patch] help-make-xrefs and variable aliases

[Jesper Harder]

In GNU Emacs 21.3.50.15 (i686-pc-linux-gnu, GTK+ Version 2.0.2)
 of 2004-03-22 on defun.localdomain

`help-make-xrefs' doesn't recognize an aliased variable with an
inherited docstring.

Steps to reproduce:

* Eval this:

  (defvar foo nil "Foo")
  (defvaralias 'foo-alias 'foo)
  (defvar bar nil "See `foo-alias'.")

* `C-h v bar' does not make an xref for foo-alias.

2004-03-23  Jesper Harder  <address@hidden>

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

*** /home/harder/emacs/lisp/help-mode.el.~1.22.~        Wed Dec 31 02:41:15 2003
--- /home/harder/emacs/lisp/help-mode.el        Tue Mar 23 00:17:21 2004
***************
*** 374,381 ****
                            (help-xref-button 8 'help-symbol sym))
                           ((and
                           (boundp sym)
!                          (documentation-property sym
!                                                  'variable-documentation))
                          (help-xref-button 8 'help-variable sym))
                         ((fboundp sym)
                          (help-xref-button 8 'help-function sym)))))))
--- 374,387 ----
                            (help-xref-button 8 'help-symbol sym))
                           ((and
                           (boundp sym)
!                          (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)))))))