# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 933345268 0
# Node ID 864a4f79195b92ae4e33509d53db0d7a3b469452
# Parent  9b5a39995216fb77a24657fd9c96cf66174223f0
(fill-individual-paragraphs): Calculate new
fill prefix on each line while looping to the end of paragraph.
End paragraph if it's longer than the existing fill prefix.

diff -r 9b5a39995216 -r 864a4f79195b lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Jul 30 14:31:57 1999 +0000
+++ b/lisp/textmodes/fill.el	Fri Jul 30 14:34:28 1999 +0000
@@ -1127,6 +1127,13 @@
 			  ;; If this line has more or less indent
 			  ;; than the fill prefix wants, end the paragraph.
 			  (and (looking-at fill-prefix-regexp)
+			       ;; If fill prefix is shorter than a new
+			       ;; fill prefix computed here, end paragraph.
+ 			       (let ((this-line-fill-prefix
+				      (fill-individual-paragraphs-prefix 
+				       citation-regexp)))
+ 				 (>= (length fill-prefix) 
+ 				     (length this-line-fill-prefix)))
 			       (save-excursion
 				 (not (progn (forward-char (length fill-prefix))
 					     (or (looking-at "[ \t]")