Mercurial > emacs

changeset 28489:3fe2e55e31da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-individual-paragraphs): If a no-prefix line is followed by one that matches CITATION-REGEXP, end the paragraph.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 03 Apr 2000 19:28:16 +0000
parents d68718635663
children 9958b6d95bd6
files lisp/textmodes/fill.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)