Mercurial > emacs

changeset 74700:e262a8360a6a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-variable): Improve blank separator lines.
author Richard M. Stallman <rms@gnu.org>
date Sun, 17 Dec 2006 22:14:11 +0000
parents 106c2c75e8d3
children 14b7babc6a00
files lisp/help-fns.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-fns.el	Sun Dec 17 22:13:41 2006 +0000
+++ b/lisp/help-fns.el	Sun Dec 17 22:14:11 2006 +0000
@@ -575,8 +575,11 @@
                             (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 @@
 		(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)