From a888f521f0d727300f821ff346375d357ba1e2c7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 10 Oct 2007 19:18:53 +0000 Subject: [PATCH] (describe-variable): Add missing " " for multiline obsolescence info and missing EOL after global value. --- lisp/ChangeLog | 5 +++++ lisp/help-fns.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7ea87811145..d8c31c8139a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-10-10 Stefan Monnier + + * help-fns.el (describe-variable): Add missing " " for multiline + obsolescence info and missing EOL after global value. + 2007-10-10 Eric S. Raymond * add-log.el: diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 25e8ca7ed3b..eee0794b673 100644 --- 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)) -- 2.39.5