# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 790489635 0
# Node ID 82ff279a4ceaecd58ca37c4ce2af3b14937ee76b
# Parent  3eb77f03f53eb4af31ba25c1b280d7385498f549
(current-justification): Renamed from current-justification.  Callers changed.

diff -r 3eb77f03f53e -r 82ff279a4cea lisp/textmodes/fill.el
--- 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))