From: Miles Bader <miles@gnu.org>
Date: Mon, 27 Nov 2000 02:31:34 +0000 (+0000)
Subject: (help-make-xrefs): Delete extraneous newlines at the end of the docstring.
X-Git-Tag: emacs-pretest-21.0.92~63
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2e6f42617d5ec5927a096d016fe65b7ed0991f0;p=emacs.git

(help-make-xrefs): Delete extraneous newlines at the end of the docstring.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33166cac7f8..f5683ff19e2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2000-11-27  Miles Bader  <miles@gnu.org>
 
 	* help.el (help-manyarg-func-alist): Correct entry for `vconcat'.
+	(help-make-xrefs): Delete extraneous newlines at the end of the
+	docstring.
 
 2000-11-25  Jason Rumney  <jasonr@gnu.org>
 
@@ -18,7 +20,7 @@
 	* cus-face.el (custom-face-attributes): Add "None" choice to :stipple.
 
 	* wid-edit.el (widget-field-value-delete): Don't try to delete
-	overlay when it's the `psuedo-overlay' that exists at some points.
+	overlay when it's the `pseudo-overlay' that exists at some points.
 
 2000-11-24  Jason Rumney  <jasonr@gnu.org>
 
diff --git a/lisp/help.el b/lisp/help.el
index 8c9f5c80901..b3e726ba27c 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1239,9 +1239,12 @@ that."
 					  "mouse-2, RET: describe this function"))))
 			       (zerop (forward-line)))))))))
           (set-syntax-table stab))
+	;; Delete extraneous newlines at the end of the docstring
+	(goto-char (point-max))
+	(while (and (not (bobp)) (bolp))
+	  (delete-char -1))
         ;; Make a back-reference in this buffer if appropriate.
         (when (and help-xref-following help-xref-stack)
-          (goto-char (point-max))
           (save-excursion
             (insert "\n\n" help-back-label))
           ;; Just to provide the match data: