diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-08 06:47:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-08 06:47:05 +0000 |
| commit | ec07f1dae692d1221f538337fc2ea1a97c52fc4e (patch) | |
| tree | a8583ca5a41f95c8f4bf6b0a5574284185cb7c27 | |
| parent | ac5c757812b8a5af035ac3e37f3dd39d3f19ab94 (diff) | |
| download | emacs-ec07f1dae692d1221f538337fc2ea1a97c52fc4e.tar.gz | |
(fill-individual-paragraphs): Don't include
paragraph-separate lines in any paragraph; just skip them.
| -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 e7fb73f8285..5fd50ecc521 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) |