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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33166cac7f8d77b3a2c43ae6c7f4a57570585ef8..f5683ff19e20207ce0f0ae61acef3f358de8b8ba 100644 (file)
--- 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 8c9f5c80901613e2d2d86998dddb55bdc3dfd79c..b3e726ba27ce93039e81ee9c8d6019d388acdb22 100644 (file)
--- 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: