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

2 files changed, 7 insertions, 2 deletions

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: