From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 7 Aug 1997 20:51:57 +0000 (+0000)
Subject: (fill-context-prefix): Accept a whitespace
X-Git-Tag: emacs-20.1~727
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82d5a637623b33342e6552a36dd0455816a6b2f4;p=emacs.git

(fill-context-prefix): Accept a whitespace
prefix from the second line, regardless of the first line.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index c1f44301a4b..88a685c2562 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -210,13 +210,13 @@ act as a paragraph-separator."
 	  ;; If we get a fill prefix from the second line,
 	  ;; make sure it or something compatible is on the first line too.
 	  (and second-line-prefix first-line-prefix
+	       ;; If the first line has the second line prefix too, use it.
 	       (if (or (string-match (concat "\\`"
 					     (regexp-quote second-line-prefix)
 					     "\\(\\'\\|[ \t]\\)")
 				     first-line-prefix)
-		       (and (string-match "\\`[ \t]+\\'" second-line-prefix)
-			    (>= (string-width first-line-prefix)
-				(string-width second-line-prefix))))
+		       ;; If the second line prefix is whitespace, use it.
+		       (string-match "\\`[ \t]+\\'" second-line-prefix))
 		   second-line-prefix))
 	;; If we get a fill prefix from a one-line paragraph,
 	;; maybe change it to whitespace,