From 32b50df655cbf91c5d089dfdd40a0f269d04f34e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 28 May 1994 08:15:16 +0000 Subject: [PATCH] (fill-region-as-paragraph): if left-margin is nonzero, do adaptive-fill processing even for one-line paragraphs. --- lisp/textmodes/fill.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 62873f89785..863b1e7c6e3 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -85,11 +85,15 @@ From program, pass args FROM, TO and JUSTIFY-FLAG." (setq fill-prefix (buffer-substring start (point)))) (goto-char (min from to)) (if (eolp) (forward-line 1)) - ;; If paragraph has only one line, don't assume + ;; If paragraph has only one line, don't assume in general ;; that additional lines would have the same starting ;; decoration. Assume no indentation. -;; (re-search-forward adaptive-fill-regexp) -;; (setq fill-prefix (make-string (current-column) ?\ )) + ;; But if left-margin is nonzero, we can assume ordinary + ;; lines do have indentation. + (if (> left-margin 0) + (progn + (re-search-forward adaptive-fill-regexp) + (setq fill-prefix (make-string (current-column) ?\ )))) ))) (save-restriction -- 2.39.5