aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/sc.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/sc.el b/lisp/sc.el
index 5e75e5203e3..fea88572bfa 100644
--- a/lisp/sc.el
+++ b/lisp/sc.el
@@ -1106,11 +1106,11 @@ non-blank line after point.
1106 generic-citation)) 1106 generic-citation))
1107 (t nil))))) ;; heuristic #6 1107 (t nil))))) ;; heuristic #6
1108 1108
1109(defun sc-consistant-cite-p (prefix) 1109(defun sc-consistent-cite-p (prefix)
1110 "Check current paragraph for consistant citation. 1110 "Check current paragraph for consistent citation.
1111Scans to paragraph delineated by (forward|backward)-paragraph to see 1111Scans to paragraph delineated by (forward|backward)-paragraph to see
1112if all lines start with PREFIX. Returns t if entire paragraph is 1112if all lines start with PREFIX. Returns t if entire paragraph is
1113consistantly cited, nil otherwise." 1113consistently cited, nil otherwise."
1114 (save-excursion 1114 (save-excursion
1115 (let ((end (progn (forward-paragraph) 1115 (let ((end (progn (forward-paragraph)
1116 (beginning-of-line) 1116 (beginning-of-line)
@@ -1173,7 +1173,7 @@ Restrict scan to current paragraph."
1173Fill the paragraph containing or following point. Use 1173Fill the paragraph containing or following point. Use
1174sc-guess-fill-prefix to find the fill-prefix for the paragraph. 1174sc-guess-fill-prefix to find the fill-prefix for the paragraph.
1175 1175
1176If the paragraph is inconsistantly cited (mixed fill-prefix), then the 1176If the paragraph is inconsistently cited (mixed fill-prefix), then the
1177user is queried to restrict the the fill to only those lines around 1177user is queried to restrict the the fill to only those lines around
1178point which begin with the fill prefix. 1178point which begin with the fill prefix.
1179 1179
@@ -1186,7 +1186,7 @@ paragraph. sc-fill-arg is set by sc-fill-paragraph-manually."
1186 (cond 1186 (cond
1187 ((not fill-prefix) 1187 ((not fill-prefix)
1188 (fill-paragraph sc-fill-arg)) 1188 (fill-paragraph sc-fill-arg))
1189 ((sc-consistant-cite-p fill-prefix) 1189 ((sc-consistent-cite-p fill-prefix)
1190 (fill-paragraph sc-fill-arg)) 1190 (fill-paragraph sc-fill-arg))
1191 ((y-or-n-p "Inconsistent citation found. Restrict? ") 1191 ((y-or-n-p "Inconsistent citation found. Restrict? ")
1192 (message "") 1192 (message "")