# HG changeset patch # User Pavel Jank # Date 1026464172 0 # Node ID 160a65e0fb1fe373cf9f35ae0fe5047f562e5f49 # Parent f0ce459aa276930550b5d4c8ff8939af3009c7f8 (describe-variable): Mention if the variable is an alias. diff -r f0ce459aa276 -r 160a65e0fb1f lisp/help-fns.el --- a/lisp/help-fns.el Fri Jul 12 03:38:12 2002 +0000 +++ b/lisp/help-fns.el Fri Jul 12 08:56:12 2002 +0000 @@ -438,7 +438,16 @@ (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