From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 19 Jan 1995 04:27:15 +0000 (+0000)
Subject: (current-justification): Renamed from current-justification.  Callers changed.
X-Git-Tag: emacs-19.34~5386
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f43726fd674dcaa099bc7155e518338958f6bace;p=emacs.git

(current-justification): Renamed from current-justification.  Callers changed.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 336236d8822..16153803d8d 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -131,7 +131,7 @@ space does not end a sentence, so don't break a line there."
   ;; 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 @@ The `justification' text-property  can locally override this variable.
 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 @@ it will not be stretched by full justification.
 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))