Mercurial > emacs

changeset 22728:4596d7f197d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-individual-paragraphs): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Thu, 09 Jul 1998 05:32:47 +0000
parents eb18b97af384
children 3537e1563a66
files lisp/textmodes/fill.el
diffstat 1 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/fill.el	Thu Jul 09 04:53:59 1998 +0000
+++ b/lisp/textmodes/fill.el	Thu Jul 09 05:32:47 1998 +0000
@@ -1039,10 +1039,11 @@
 					  (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 @@
 	    (fill-region-as-paragraph start (point) justify)
 	    (or had-newline (delete-char -1))))))))
 
-(defun fill-strip-trailing-space (string)
-))
-
 ;;; fill.el ends here