# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739477776 0
# Node ID de673e6edb19e757665e883de22c6f256531df62
# Parent  1950b2238ecc3bd05bac7fcfa647953fc308fc2e
entered into RCS

diff -r 1950b2238ecc -r de673e6edb19 lisp/=sc.el
--- a/lisp/=sc.el	Mon Jun 07 18:29:07 1993 +0000
+++ b/lisp/=sc.el	Mon Jun 07 18:29:36 1993 +0000
@@ -1106,11 +1106,11 @@
 	  generic-citation))
        (t nil)))))                                      ;; heuristic #6
 
-(defun sc-consistant-cite-p (prefix)
-  "Check current paragraph for consistant citation.
+(defun sc-consistent-cite-p (prefix)
+  "Check current paragraph for consistent citation.
 Scans to paragraph delineated by (forward|backward)-paragraph to see
 if all lines start with PREFIX. Returns t if entire paragraph is
-consistantly cited, nil otherwise."
+consistently cited, nil otherwise."
   (save-excursion
     (let ((end   (progn (forward-paragraph)
 			(beginning-of-line)
@@ -1173,7 +1173,7 @@
 Fill the paragraph containing or following point. Use
 sc-guess-fill-prefix to find the fill-prefix for the paragraph.
 
-If the paragraph is inconsistantly cited (mixed fill-prefix), then the
+If the paragraph is inconsistently cited (mixed fill-prefix), then the
 user is queried to restrict the the fill to only those lines around
 point which begin with the fill prefix.
 
@@ -1186,7 +1186,7 @@
       (cond
        ((not fill-prefix)
 	(fill-paragraph sc-fill-arg))
-       ((sc-consistant-cite-p fill-prefix)
+       ((sc-consistent-cite-p fill-prefix)
 	(fill-paragraph sc-fill-arg))
        ((y-or-n-p "Inconsistent citation found. Restrict? ")
 	(message "")