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. ...@@ -1106,11 +1106,11 @@ non-blank line after point.
generic-citation)) generic-citation))
(t nil))))) ;; heuristic #6 (t nil))))) ;; heuristic #6
(defun sc-consistant-cite-p (prefix) (defun sc-consistent-cite-p (prefix)
"Check current paragraph for consistant citation. "Check current paragraph for consistent citation.
Scans to paragraph delineated by (forward|backward)-paragraph to see Scans to paragraph delineated by (forward|backward)-paragraph to see
if all lines start with PREFIX. Returns t if entire paragraph is if all lines start with PREFIX. Returns t if entire paragraph is
consistantly cited, nil otherwise." consistently cited, nil otherwise."
(save-excursion (save-excursion
(let ((end (progn (forward-paragraph) (let ((end (progn (forward-paragraph)
(beginning-of-line) (beginning-of-line)
...@@ -1173,7 +1173,7 @@ Restrict scan to current paragraph." ...@@ -1173,7 +1173,7 @@ Restrict scan to current paragraph."
Fill the paragraph containing or following point. Use Fill the paragraph containing or following point. Use
sc-guess-fill-prefix to find the fill-prefix for the paragraph. 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 user is queried to restrict the the fill to only those lines around
point which begin with the fill prefix. point which begin with the fill prefix.
...@@ -1186,7 +1186,7 @@ paragraph. sc-fill-arg is set by sc-fill-paragraph-manually." ...@@ -1186,7 +1186,7 @@ paragraph. sc-fill-arg is set by sc-fill-paragraph-manually."
(cond (cond
((not fill-prefix) ((not fill-prefix)
(fill-paragraph sc-fill-arg)) (fill-paragraph sc-fill-arg))
((sc-consistant-cite-p fill-prefix) ((sc-consistent-cite-p fill-prefix)
(fill-paragraph sc-fill-arg)) (fill-paragraph sc-fill-arg))
((y-or-n-p "Inconsistent citation found. Restrict? ") ((y-or-n-p "Inconsistent citation found. Restrict? ")
(message "") (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