# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1038845992 0
# Node ID 2cf7301b2f524659c159687549fde937e1e17d35
# Parent  37b9b1f186158298023da27904abab49f1279aee
(fill-indent-to-left-margin): New function.
(fill-newline, fill-region-as-paragraph): Use that.

diff -r 37b9b1f18615 -r 2cf7301b2f52 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Mon Dec 02 16:18:33 2002 +0000
+++ b/lisp/textmodes/fill.el	Mon Dec 02 16:19:52 2002 +0000
@@ -540,13 +540,19 @@
 			      '(invisible t)))
   (if (or fill-prefix
 	  (not fill-indent-according-to-mode))
-      (indent-to-left-margin)
+      (fill-indent-to-left-margin)
     (indent-according-to-mode))
   ;; Insert the fill prefix after indentation.
   ;; Set prefixcol so whitespace in the prefix won't get lost.
   (and fill-prefix (not (equal fill-prefix ""))
        (insert-and-inherit fill-prefix)))
 
+(defun fill-indent-to-left-margin ()
+  "Indent current line to the column given by `current-left-margin'."
+  (let ((beg (point)))
+    (indent-line-to (current-left-margin))
+    (put-text-property beg (point) 'face 'default)))
+
 (defun fill-region-as-paragraph (from to &optional justify
 				      nosqueeze squeeze-after)
   "Fill the region as one paragraph.
@@ -631,7 +637,7 @@
 	      (while (< (point) to)
 		(if (and (not (eolp))
 			 (< (current-indentation) (current-left-margin)))
-		    (indent-to-left-margin))
+		    (fill-indent-to-left-margin))
 		(forward-line 1)))
 
 	  (if use-hard-newlines
@@ -639,7 +645,7 @@
 	  ;; Make sure first line is indented (at least) to left margin...
 	  (if (or (memq justify '(right center))
 		  (< (current-indentation) (current-left-margin)))
-	      (indent-to-left-margin))
+	      (fill-indent-to-left-margin))
 	  ;; Delete the fill-prefix from every line.
 	  (fill-delete-prefix from to fill-prefix)
 	  (setq from (point))