# HG changeset patch # User Gerd Moellmann # Date 954790096 0 # Node ID 3fe2e55e31da41a9207e71e27702c042afe04e65 # Parent d687186356636e000eaf408f3edabb1a9dbbfc34 (fill-individual-paragraphs): If a no-prefix line is followed by one that matches CITATION-REGEXP, end the paragraph. diff -r d68718635663 -r 3fe2e55e31da lisp/textmodes/fill.el --- a/lisp/textmodes/fill.el Mon Apr 03 19:26:43 2000 +0000 +++ b/lisp/textmodes/fill.el Mon Apr 03 19:28:16 2000 +0000 @@ -1156,7 +1156,10 @@ (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)