diff options
| author | John Paul Wallington | 2003-04-12 04:28:43 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2003-04-12 04:28:43 +0000 |
| commit | 88ff724bdf1d947c9643ecd5c0fe915f3acf60fa (patch) | |
| tree | a008fc9268ee157733564563397e6af6f60894bb | |
| parent | 6901b111fe763ea2519a383cbc29877b3c4f24b8 (diff) | |
| download | emacs-88ff724bdf1d947c9643ecd5c0fe915f3acf60fa.tar.gz emacs-88ff724bdf1d947c9643ecd5c0fe915f3acf60fa.zip | |
(help-add-fundoc-usage): Pass an empty string to `format' if
no newlines are necessary.
| -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 @@ | |||
| 1 | 2003-04-12 John Paul Wallington <jpw@gnu.org> | ||
| 2 | |||
| 3 | * help-fns.el (help-add-fundoc-usage): Pass an empty string to | ||
| 4 | `format' if no newlines are necessary. | ||
| 5 | |||
| 1 | 2003-04-11 John Paul Wallington <jpw@gnu.org> | 6 | 2003-04-11 John Paul Wallington <jpw@gnu.org> |
| 2 | 7 | ||
| 3 | * type-break.el (type-break-warning-countdown-string): Doc fix. | 8 | * 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." | |||
| 181 | doc | 181 | doc |
| 182 | (format "%s%s%s" doc | 182 | (format "%s%s%s" doc |
| 183 | (if (string-match "\n?\n\\'" doc) | 183 | (if (string-match "\n?\n\\'" doc) |
| 184 | (if (< (- (match-end 0) (match-beginning 0)) 2) "\n") | 184 | (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") |
| 185 | "\n\n") | 185 | "\n\n") |
| 186 | (help-make-usage 'fn arglist)))) | 186 | (help-make-usage 'fn arglist)))) |
| 187 | 187 | ||