From fea4012025820908a43514e824d730ee6b6f1de3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 9 Jul 1998 05:32:47 +0000 Subject: [PATCH] (fill-individual-paragraphs): Fix previous change. --- lisp/textmodes/fill.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index abb04746d58..18f06a7e8d5 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -1039,10 +1039,11 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (point) (save-excursion (forward-line 2) (point)))) - (setq adjusted-two-lines-prefix - (substring two-lines-prefix 0 - (string-match "[ \t]*\\'" - two-lines-prefix))) + (when two-lines-prefix + (setq adjusted-two-lines-prefix + (substring two-lines-prefix 0 + (string-match "[ \t]*\\'" + two-lines-prefix)))) ;; See if JUST-ONE-LINE-PREFIX ;; is the same as TWO-LINES-PREFIX ;; except perhaps with longer whitespace. @@ -1088,7 +1089,4 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (fill-region-as-paragraph start (point) justify) (or had-newline (delete-char -1)))))))) -(defun fill-strip-trailing-space (string) -)) - ;;; fill.el ends here -- 2.39.5