From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 28 May 1994 08:15:16 +0000 (+0000)
Subject: (fill-region-as-paragraph): if left-margin is nonzero,
X-Git-Tag: emacs-19.34~8132
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32b50df655cbf91c5d089dfdd40a0f269d04f34e;p=emacs.git

(fill-region-as-paragraph): if left-margin is nonzero,
do adaptive-fill processing even for one-line paragraphs.
---

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