# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870033381 0
# Node ID baf7d9450075674a4c7aaaa33f5fce260cd4bd0e
# Parent  1493fc19f324299cbebb771a3201c774ac8ac1e7
(fill-context-prefix): Be stricter about
whether first-line prefix is compatible with second-line prefix.

diff -r 1493fc19f324 -r baf7d9450075 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Sun Jul 27 19:53:27 1997 +0000
+++ b/lisp/textmodes/fill.el	Sun Jul 27 19:56:21 1997 +0000
@@ -210,12 +210,14 @@
 	  ;; 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 (or (string-match (regexp-quote second-line-prefix)
+	       (if (or (string-match (concat "\\`"
+					     (regexp-quote second-line-prefix)
+					     "\\(\\'\\|[ \t]\\)")
 				     first-line-prefix)
-		       (and (string-match "[ \t]" second-line-prefix)
+		       (and (string-match "\\`[ \t]+\\'" second-line-prefix)
 			    (>= (string-width first-line-prefix)
 				(string-width second-line-prefix))))
-		     second-line-prefix))
+		   second-line-prefix))
 	;; If we get a fill prefix from a one-line paragraph,
 	;; maybe change it to whitespace,
 	;; and check that it isn't a paragraph starter.