diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-04-12 04:28:43 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-04-12 04:28:43 +0000 |
| commit | 88ff724bdf1d947c9643ecd5c0fe915f3acf60fa (patch) | |
| tree | a008fc9268ee157733564563397e6af6f60894bb /lisp | |
| parent | 6901b111fe763ea2519a383cbc29877b3c4f24b8 (diff) | |
| download | emacs-88ff724bdf1d947c9643ecd5c0fe915f3acf60fa.tar.gz emacs-88ff724bdf1d947c9643ecd5c0fe915f3acf60fa.tar.bz2 emacs-88ff724bdf1d947c9643ecd5c0fe915f3acf60fa.zip | |
(help-add-fundoc-usage): Pass an empty string to `format' if
no newlines are necessary.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help-fns.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5aede0a254a..3113adfc023 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-04-12 John Paul Wallington <jpw@gnu.org> + + * help-fns.el (help-add-fundoc-usage): Pass an empty string to + `format' if no newlines are necessary. + 2003-04-11 John Paul Wallington <jpw@gnu.org> * type-break.el (type-break-warning-countdown-string): Doc fix. diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 4f3626c4511..41b002c7e79 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -181,7 +181,7 @@ The usage info is built from ARGLIST. DOC can be nil." doc (format "%s%s%s" doc (if (string-match "\n?\n\\'" doc) - (if (< (- (match-end 0) (match-beginning 0)) 2) "\n") + (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") "\n\n") (help-make-usage 'fn arglist)))) |