mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues 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."
;;;###autoload
(defun ispell-region (reg-start reg-end)
"Interactively check a region for spelling errors."
"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.
(unwind-protect
@ -1958,7 +1959,7 @@ With prefix argument, set the default directory."
(if string ; there is something to spell check!
(ispell-process-line string)) ; (special start end)
(goto-char end)))))
;;(not ispell-quit) ??? kss
(not ispell-quit)
)
;; protected
(if (get-buffer ispell-choices-buffer)