From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 3 Apr 2000 19:28:16 +0000 (+0000)
Subject: (fill-individual-paragraphs): If a no-prefix
X-Git-Tag: emacs-pretest-21.0.90~4341
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b99a4f88203ba1d595c88675e55525f05f8ae6d;p=emacs.git

(fill-individual-paragraphs): If a no-prefix
line is followed by one that matches CITATION-REGEXP, end the
paragraph.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index f8eb668a83b..6463c3b82c7 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1156,7 +1156,10 @@ Also, if CITATION-REGEXP is non-nil,  don't fill header lines."
 				 (not (progn (forward-char (length fill-prefix))
 					     (or (looking-at "[ \t]")
 						 (looking-at paragraph-separate)
-						 (looking-at paragraph-start))))))))))
+						 (looking-at paragraph-start)))))
+			       (not (and (equal fill-prefix "")
+					 citation-regexp
+					 (looking-at citation-regexp))))))))
 	  ;; Fill this paragraph, but don't add a newline at the end.
 	  (let ((had-newline (bolp)))
 	    (fill-region-as-paragraph start (point) justify)