(fill-individual-paragraphs): Fix previous change.

1 files 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