(describe-variable): Add missing " " for multiline

obsolescence info and missing EOL after global value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ea878111455b9d9f48378179d97c28d48935218..d8c31c8139a67ca1abc84002e5999f881d0b63be 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * help-fns.el (describe-variable): Add missing "  " for multiline
+       obsolescence info and missing EOL after global value.
+
 2007-10-10  Eric S. Raymond  <esr@snark.thyrsus.com>
 
        * add-log.el:

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 25e8ca7ed3bb2359023230d59d22d5634e45f663..eee0794b673a04bcf2b33f280d43f2e4f3fb39f7 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -565,7 +565,8 @@ it is displayed along with the global value."
                      ;; See previous comment for this function.
                      ;; (help-xref-on-pp from (point))
                      (if (< (point) (+ from 20))
-                         (delete-region (1- from) from)))))))
+                         (delete-region (1- from) from))))))
+              (terpri))
 
            ;; If the value is large, move it to the end.
            (with-current-buffer standard-output
@@ -617,7 +618,7 @@ it is displayed along with the global value."
                 (setq extra-line t)
                 (princ "  This variable is obsolete")
                 (if (cdr obsolete) (princ (format " since %s" (cdr obsolete))))
-                (princ ";") (terpri)
+                (princ ";\n  ")
                 (princ (if (stringp (car obsolete)) (car obsolete)
                          (format "use `%s' instead." (car obsolete))))
                 (terpri))