From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 19 Jan 1995 04:29:17 +0000 (+0000)
Subject: (fill-region-as-paragraph): left-margin renamed to current-left-margin.
X-Git-Tag: emacs-19.34~5385
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a04e20535e309d1d4b1fe31fddc772e58ec6501;p=emacs.git

(fill-region-as-paragraph): left-margin renamed to current-left-margin.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 16153803d8d..535323e9f18 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -161,7 +161,7 @@ space does not end a sentence, so don't break a line there."
 	  (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 @@ space does not end a sentence, so don't break a line there."
 	    (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 @@ space does not end a sentence, so don't break a line there."
 				 (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)