diff options
author | Richard M. Stallman <[email protected]> | 1997-09-08 06:47:05 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1997-09-08 06:47:05 +0000 |
commit | 4574ee6c8d874f9cc1f1c78064e2ff0e0e4327b6 (patch) | |
tree | 9dd8c97253ccabbd8de03d2ec75cdeaf7f90695a /lisp/textmodes | |
parent | 6e23ef57e99f5eb5310a1bebfaa580f6a8fc97fc (diff) |
(fill-individual-paragraphs): Don't include
paragraph-separate lines in any paragraph; just skip them.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r-- | lisp/textmodes/fill.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index e7fb73f828..5fd50ecc52 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -939,7 +939,13 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (forward-line 1)))) (narrow-to-region (point) max) ;; Loop over paragraphs. - (while (progn (skip-chars-forward " \t\n") (not (eobp))) + (while (progn + ;; Skip over all paragraph-separating lines + ;; so as to not include them in any paragraph. + (while (progn (move-to-left-margin) + (and (not (eobp)) (looking-at paragraph-separate))) + (forward-line 1)) + (skip-chars-forward " \t\n") (not (eobp))) (move-to-left-margin) (let ((start (point)) fill-prefix fill-prefix-regexp) |