diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-10 19:18:53 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-10 19:18:53 +0000 |
commit | a888f521f0d727300f821ff346375d357ba1e2c7 (patch) | |
tree | 0b3cefe53be6749bce1172717169cc8a32693662 /lisp | |
parent | ac3f4c6f0213219ce488c46667a8bed6f915e71f (diff) |
(describe-variable): Add missing " " for multiline
obsolescence info and missing EOL after global value.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | 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 <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 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)) |