Mercurial > emacs

comparison lisp/textmodes/fill.el @ 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 523c67808ff4
children 59d0015683a5
comparison
equal deleted inserted replaced
28488:d68718635663 28489:3fe2e55e31da
1154 (length this-line-fill-prefix))) 1154 (length this-line-fill-prefix)))
1155 (save-excursion 1155 (save-excursion
1156 (not (progn (forward-char (length fill-prefix)) 1156 (not (progn (forward-char (length fill-prefix))
1157 (or (looking-at "[ \t]") 1157 (or (looking-at "[ \t]")
1158 (looking-at paragraph-separate) 1158 (looking-at paragraph-separate)
1159 (looking-at paragraph-start)))))))))) 1159 (looking-at paragraph-start)))))
1160 (not (and (equal fill-prefix "")
1161 citation-regexp
1162 (looking-at citation-regexp))))))))
1160 ;; Fill this paragraph, but don't add a newline at the end. 1163 ;; Fill this paragraph, but don't add a newline at the end.
1161 (let ((had-newline (bolp))) 1164 (let ((had-newline (bolp)))
1162 (fill-region-as-paragraph start (point) justify) 1165 (fill-region-as-paragraph start (point) justify)
1163 (if (and (bolp) (not had-newline)) 1166 (if (and (bolp) (not had-newline))
1164 (delete-char -1)))))))) 1167 (delete-char -1))))))))