# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770112916 0
# Node ID b048975347179b44a5e31c0f06487dc0a89e54c8
# Parent  0e0ef6c1e53acdceb9dd56566002cbaf24f4875d
(fill-region-as-paragraph): if left-margin is nonzero,
do adaptive-fill processing even for one-line paragraphs.

diff -r 0e0ef6c1e53a -r b04897534717 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Sat May 28 07:22:21 1994 +0000
+++ b/lisp/textmodes/fill.el	Sat May 28 08:15:16 1994 +0000
@@ -85,11 +85,15 @@
 		(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