diff options
| author | Richard M. Stallman | 1995-01-19 04:29:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-01-19 04:29:17 +0000 |
| commit | 9a04e20535e309d1d4b1fe31fddc772e58ec6501 (patch) | |
| tree | 9b35c807098a490a0b79051a1e01bbefff274c9b | |
| parent | f43726fd674dcaa099bc7155e518338958f6bace (diff) | |
| download | emacs-9a04e20535e309d1d4b1fe31fddc772e58ec6501.tar.gz emacs-9a04e20535e309d1d4b1fe31fddc772e58ec6501.zip | |
(fill-region-as-paragraph): left-margin renamed to current-left-margin.
| -rw-r--r-- | lisp/textmodes/fill.el | 6 |
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) |