From 5755be321d4f414f757f6b03dac982df685eac8a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 13 Jun 1998 04:06:46 +0000 Subject: [PATCH] (ispell-region): Return non-nil if not aborted. (ispell-highlight-spelling-error-generic): Fix doc typo. --- lisp/textmodes/ispell.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index f2f0f8441a7..ab77a6ceab1 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -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) -- 2.39.5