Mercurial > emacs
changeset 10472:82ff279a4cea
(current-justification): Renamed from current-justification. Callers changed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 Jan 1995 04:27:15 +0000 |
| parents | 3eb77f03f53e |
| children | 95868461fc78 |
| 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:26:55 1995 +0000 +++ b/lisp/textmodes/fill.el Thu Jan 19 04:27:15 1995 +0000 @@ -131,7 +131,7 @@ ;; Arrange for undoing the fill to restore point. (if (and buffer-undo-list (not (eq buffer-undo-list t))) (setq buffer-undo-list (cons (point) buffer-undo-list))) - (or justify (setq justify (justification))) + (or justify (setq justify (current-justification))) ;; Don't let Adaptive Fill mode alter the fill prefix permanently. (let ((fill-prefix fill-prefix)) @@ -372,7 +372,7 @@ This variable automatically becomes buffer-local when set in any fashion.") (make-variable-buffer-local 'default-justification) -(defun justification () +(defun current-justification () "How should we justify this line? This returns the value of the text-property `justification', or the variable `default-justification' if there is no text-property. @@ -464,7 +464,7 @@ Third arg NOSQUEEZE non-nil means to leave interior whitespace unchanged, otherwise it is made canonical." (interactive (list 'full nil nil)) - (if (eq t how) (setq how (or (justification) 'none))) + (if (eq t how) (setq how (or (current-justification) 'none))) (save-excursion (save-restriction (let ((fc (current-fill-column))