# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 975292242 0
# Node ID e28e403dd69fc0949172ff191ec94b03faefac26
# Parent  e3c85fefcf0d0a0f044809b15dd3bdf1804282bb
(help-make-xrefs): Delete extraneous newlines at the end of the docstring.

diff -r e3c85fefcf0d -r e28e403dd69f lisp/help.el
--- a/lisp/help.el	Mon Nov 27 02:08:39 2000 +0000
+++ b/lisp/help.el	Mon Nov 27 02:30:42 2000 +0000
@@ -1239,9 +1239,12 @@
 					  "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: