Mercurial > emacs
changeset 33891:e28e403dd69f
(help-make-xrefs): Delete extraneous newlines at the end of the docstring.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 27 Nov 2000 02:30:42 +0000 |
| parents | e3c85fefcf0d |
| children | 12f5fea864e1 |
| files | lisp/help.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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: