mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(describe-variable): Improve blank separator lines.

Browse Source
This commit is contained in:
Richard M. Stallman 2006-12-17 22:14:11 +00:00
parent bce4aeb40a
commit cc86b31bb9
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/help-fns.el
View File

@ -575,8 +575,11 @@ it is displayed along with the global value."
(documentation-property alias 'variable-documentation))))
(unless (eq alias variable)
(princ (format "\nThis variable is an alias for `%s'.\n" alias)))
(if (or obsolete safe-var)
(terpri))
(when obsolete
(princ "\nThis variable is obsolete")
(princ "This variable is obsolete")
(if (cdr obsolete) (princ (format " since %s" (cdr obsolete))))
(princ ";") (terpri)
(princ (if (stringp (car obsolete)) (car obsolete)
@ -587,9 +590,8 @@ it is displayed along with the global value."
(princ "if its value\nsatisfies the predicate ")
(princ (if (byte-code-function-p safe-var)
"which is byte-compiled expression.\n"
(format "`%s'.\n" safe-var)))
(terpri))
(princ "Documentation:\n")
(format "`%s'.\n" safe-var))))
(princ "\nDocumentation:\n")
(princ (or doc "Not documented as a variable.")))
;; Make a link to customize if this variable can be customized.
(if (custom-variable-p variable)