From 4574ee6c8d874f9cc1f1c78064e2ff0e0e4327b6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 Sep 1997 06:47:05 +0000 Subject: [PATCH] (fill-individual-paragraphs): Don't include paragraph-separate lines in any paragraph; just skip them. --- lisp/textmodes/fill.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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) -- 2.39.2