From a2e6f42617d5ec5927a096d016fe65b7ed0991f0 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 27 Nov 2000 02:31:34 +0000 Subject: [PATCH] (help-make-xrefs): Delete extraneous newlines at the end of the docstring. --- lisp/ChangeLog | 4 +++- lisp/help.el | 5 ++++- 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 * 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 @@ -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 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: -- 2.39.2