Mercurial > emacs
changeset 3547:de673e6edb19
entered into RCS
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Jun 1993 18:29:36 +0000 |
| parents | 1950b2238ecc |
| children | 54b82ecde27b |
| files | lisp/=sc.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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 "")