# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 790489757 0
# Node ID 95868461fc78464d75879e89a0749049915cb073
# Parent  82ff279a4ceaecd58ca37c4ce2af3b14937ee76b
(fill-region-as-paragraph): left-margin renamed to current-left-margin.

diff -r 82ff279a4cea -r 95868461fc78 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Thu Jan 19 04:27:15 1995 +0000
+++ b/lisp/textmodes/fill.el	Thu Jan 19 04:29:17 1995 +0000
@@ -161,7 +161,7 @@
 	  (setq to (max from to))
 	  (while (< (point) to)
 	    (if (not (eolp))
-		(if (< (current-indentation) (left-margin))
+		(if (< (current-indentation) (current-left-margin))
 		    (indent-to-left-margin)))
 	    (forward-line 1)))
 
@@ -181,7 +181,7 @@
 	    (remove-text-properties from to '(hard nil)))
 	;; Make sure first line is indented (at least) to left margin...
 	(if (or (memq justify '(right center))
-		(< (current-indentation) (left-margin)))
+		(< (current-indentation) (current-left-margin)))
 	    (indent-to-left-margin))
 	;; and remove indentation from other lines.
 	(beginning-of-line 2)
@@ -194,7 +194,7 @@
 				 (regexp-quote fill-prefix)))))
 	  (and fpre
 	       (progn
-		 (if (>= (+ (left-margin) (length fill-prefix))
+		 (if (>= (+ (current-left-margin) (length fill-prefix))
 			 (current-fill-column))
 		     (error "fill-prefix too long for specified width"))
 		 (goto-char from)