Mercurial > emacs
changeset 10473:95868461fc78
(fill-region-as-paragraph): left-margin renamed to current-left-margin.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 Jan 1995 04:29:17 +0000 |
| parents | 82ff279a4cea |
| children | caf4440e63e8 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)