Commit e0fdbaba authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

entered into RCS

parent 63a81d88
......@@ -1106,11 +1106,11 @@ non-blank line after point.
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 @@ Restrict scan to current paragraph."
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 @@ paragraph. sc-fill-arg is set by sc-fill-paragraph-manually."
(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 "")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment