[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Pavel Janík]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.12 emacs/lisp/help-fns.el:1.13
*** emacs/lisp/help-fns.el:1.12 Thu Jun 27 12:10:23 2002
--- emacs/lisp/help-fns.el      Fri Jul 12 04:56:12 2002
***************
*** 438,444 ****
                (terpri)))
            (let ((doc (documentation-property variable 
'variable-documentation)))
              (princ (or doc "Not documented as a variable.")))
!         
            ;; Make a link to customize if this variable can be customized.
            ;; Note, it is not reliable to test only for a custom-type property
            ;; because those are only present after the var's definition
--- 438,453 ----
                (terpri)))
            (let ((doc (documentation-property variable 
'variable-documentation)))
              (princ (or doc "Not documented as a variable.")))
!           
!           ;; Mention if the variable is an alias.
!           (let ((alias (condition-case nil
!                            (indirect-variable variable)
!                          (error variable))))
!             (unless (eq alias variable)
!               (terpri)
!               (terpri)
!               (princ (format "This variable is an alias for `%s'." alias))))
!           
            ;; Make a link to customize if this variable can be customized.
            ;; Note, it is not reliable to test only for a custom-type property
            ;; because those are only present after the var's definition