Mercurial > emacs
changeset 46321:1d8304aae3cc
(describe-variable): Put `defvaralias' info before the documentation (patch from
John Paul Wallington <jpw@shootybangbang.com>). Remove useless "Documentation:"
string.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 12 Jul 2002 16:55:46 +0000 |
| parents | 85556f404121 |
| children | 4c6c59f7c9dc |
| files | lisp/help-fns.el |
| diffstat | 1 files changed, 8 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-fns.el Fri Jul 12 11:56:42 2002 +0000 +++ b/lisp/help-fns.el Fri Jul 12 16:55:46 2002 +0000 @@ -426,8 +426,14 @@ (save-excursion (forward-line -1) (insert "Automatically becomes buffer-local when set in any fashion.\n")))) - (princ "Documentation:") - (terpri) + ;; Mention if it's an alias + (let ((alias (condition-case nil + (indirect-variable variable) + (error variable)))) + (unless (eq alias variable) + (princ (format "This variable is an alias for `%s'." alias)) + (terpri) + (terpri))) (let ((obsolete (get variable 'byte-obsolete-variable))) (when obsolete (princ "This variable is obsolete") @@ -438,16 +444,6 @@ (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