From: John Paul Wallington <jpw@pobox.com>
Date: Sat, 12 Apr 2003 04:28:43 +0000 (+0000)
Subject: (help-add-fundoc-usage): Pass an empty string to `format' if
X-Git-Tag: ttn-vms-21-2-B4~10538
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88ff724bdf1d947c9643ecd5c0fe915f3acf60fa;p=emacs.git

(help-add-fundoc-usage): Pass an empty string to `format' if
no newlines are necessary.
---

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))))