mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(describe-variable): Put `defvaralias' info before the documentation (patch from

Browse source 
John Paul Wallington <jpw@shootybangbang.com>). Remove useless "Documentation:"
string.
This commit is contained in:
Juanma Barranquero 2002-07-12 16:56:03 +00:00
parent 120034b309
commit d00a340891
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/help-fns.el
View file

@ -426,8 +426,14 @@ it is displayed along with the global value."
(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 @@ it is displayed along with the global value."
(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