mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(fill-individual-paragraphs): If a no-prefix

Browse Source 
line is followed by one that matches CITATION-REGEXP, end the
paragraph.
This commit is contained in:
Gerd Moellmann 2000-04-03 19:28:16 +00:00
parent 18f183760f
commit 3b99a4f882
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/textmodes/fill.el
View File

@ -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)