martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(ispell-region): Return non-nil if not aborted.

Browse Source 
(ispell-highlight-spelling-error-generic): Fix doc typo.
This commit is contained in:
Richard M. Stallman
1998-06-13 04:06:46 +00:00
parent 80e803b4e7
commit 5755be321d
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/textmodes/ispell.el
View File

@@ -1559,7 +1559,7 @@ Optional second argument contains the dictionary to use; the default is
"Highlight the word from START to END with a kludge using `inverse-video'.
When the optional third arg HIGHLIGHT is set, the word is highlighted;
otherwise it is displayed normally.
Uses block cursor to highlight one charcater.
Uses block cursor to highlight one character.
Optional REFRESH will unhighlighted then highlight, using block cursor
highlighting when REFRESH is equal to `block'."
(and (eq 'block ispell-highlight-p)
@@ -1893,7 +1893,8 @@ With prefix argument, set the default directory."
;;; Spelling of comments are checked when ispell-check-comments is non-nil.
;;;###autoload
(defun ispell-region (reg-start reg-end)
(defun ispell-region (reg-start reg-end)
"Interactively check a region for spelling errors.
Return non-nil if not aborted."
(interactive "r") ; Don't flag errors on read-only bufs.
(ispell-accept-buffer-local-defs) ; set up dictionary, local words, etc.
@@ -1958,7 +1959,7 @@ With prefix argument, set the default directory."
(setq end (point)) ; "end" tracks region retrieved.
(if string ; there is something to spell check!
(ispell-process-line string)) ; (special start end)
(goto-char end)))))
(goto-char end)))))
(not ispell-quit)
)
;; protected