Commit 9327f134 authored by Pavel Janík's avatar Pavel Janík
Browse files

(describe-variable): Mention if the variable is an alias.

parent 35936c5c
2002-07-12 John Paul Wallington <jpw@shootybangbang.com>
* help-fns.el (describe-variable): Mention if the variable is an
alias.
2002-07-12 Kenichi Handa <handa@etl.go.jp> 2002-07-12 Kenichi Handa <handa@etl.go.jp>
* international/mule-cmds.el (locale-language-names): Change "mk" * international/mule-cmds.el (locale-language-names): Change "mk"
......
...@@ -439,6 +439,15 @@ it is displayed along with the global value." ...@@ -439,6 +439,15 @@ it is displayed along with the global value."
(let ((doc (documentation-property variable 'variable-documentation))) (let ((doc (documentation-property variable 'variable-documentation)))
(princ (or doc "Not documented as a variable."))) (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. ;; Make a link to customize if this variable can be customized.
;; Note, it is not reliable to test only for a custom-type property ;; Note, it is not reliable to test only for a custom-type property
;; because those are only present after the var's definition ;; because those are only present after the var's definition
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment