aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1995-01-19 04:29:17 +0000
committerRichard M. Stallman1995-01-19 04:29:17 +0000
commit9a04e20535e309d1d4b1fe31fddc772e58ec6501 (patch)
tree9b35c807098a490a0b79051a1e01bbefff274c9b
parentf43726fd674dcaa099bc7155e518338958f6bace (diff)
downloademacs-9a04e20535e309d1d4b1fe31fddc772e58ec6501.tar.gz
emacs-9a04e20535e309d1d4b1fe31fddc772e58ec6501.zip
(fill-region-as-paragraph): left-margin renamed to current-left-margin.
-rw-r--r--lisp/textmodes/fill.el6
1 files changed, 3 insertions, 3 deletions
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."
161 (setq to (max from to)) 161 (setq to (max from to))
162 (while (< (point) to) 162 (while (< (point) to)
163 (if (not (eolp)) 163 (if (not (eolp))
164 (if (< (current-indentation) (left-margin)) 164 (if (< (current-indentation) (current-left-margin))
165 (indent-to-left-margin))) 165 (indent-to-left-margin)))
166 (forward-line 1))) 166 (forward-line 1)))
167 167
@@ -181,7 +181,7 @@ space does not end a sentence, so don't break a line there."
181 (remove-text-properties from to '(hard nil))) 181 (remove-text-properties from to '(hard nil)))
182 ;; Make sure first line is indented (at least) to left margin... 182 ;; Make sure first line is indented (at least) to left margin...
183 (if (or (memq justify '(right center)) 183 (if (or (memq justify '(right center))
184 (< (current-indentation) (left-margin))) 184 (< (current-indentation) (current-left-margin)))
185 (indent-to-left-margin)) 185 (indent-to-left-margin))
186 ;; and remove indentation from other lines. 186 ;; and remove indentation from other lines.
187 (beginning-of-line 2) 187 (beginning-of-line 2)
@@ -194,7 +194,7 @@ space does not end a sentence, so don't break a line there."
194 (regexp-quote fill-prefix))))) 194 (regexp-quote fill-prefix)))))
195 (and fpre 195 (and fpre
196 (progn 196 (progn
197 (if (>= (+ (left-margin) (length fill-prefix)) 197 (if (>= (+ (current-left-margin) (length fill-prefix))
198 (current-fill-column)) 198 (current-fill-column))
199 (error "fill-prefix too long for specified width")) 199 (error "fill-prefix too long for specified width"))
200 (goto-char from) 200 (goto-char from)