diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-12-17 22:14:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-12-17 22:14:11 +0000 |
| commit | cc86b31bb97f039a893d2bd67a77758391f77565 (patch) | |
| tree | de4d5ef8127a77bdfbdb6fd8fd63bbcf54678b52 /lisp/help-fns.el | |
| parent | bce4aeb40ade40ad5b2df215c9085e499c7b6d17 (diff) | |
| download | emacs-cc86b31bb97f039a893d2bd67a77758391f77565.tar.gz | |
(describe-variable): Improve blank separator lines.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e4d77e3447c..740504c95a6 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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) |