Mercurial > emacs
changeset 25127:864a4f79195b
(fill-individual-paragraphs): Calculate new
fill prefix on each line while looping to the end of paragraph.
End paragraph if it's longer than the existing fill prefix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 30 Jul 1999 14:34:28 +0000 |
| parents | 9b5a39995216 |
| children | 2563b35e613f |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Fri Jul 30 14:31:57 1999 +0000 +++ b/lisp/textmodes/fill.el Fri Jul 30 14:34:28 1999 +0000 @@ -1127,6 +1127,13 @@ ;; If this line has more or less indent ;; than the fill prefix wants, end the paragraph. (and (looking-at fill-prefix-regexp) + ;; If fill prefix is shorter than a new + ;; fill prefix computed here, end paragraph. + (let ((this-line-fill-prefix + (fill-individual-paragraphs-prefix + citation-regexp))) + (>= (length fill-prefix) + (length this-line-fill-prefix))) (save-excursion (not (progn (forward-char (length fill-prefix)) (or (looking-at "[ \t]")