summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1998-06-13 04:06:46 +0000
committerRichard M. Stallman <rms@gnu.org>1998-06-13 04:06:46 +0000
commit2f1c2b2390c7da151f8499e70c4b08871911a576 (patch)
tree0d92b2d2053db06b6ad541354fe6f82f6194f4d2
parent3f3ae9d2513c0f8f3aa31a3dfb18fdc19c099221 (diff)
downloademacs-2f1c2b2390c7da151f8499e70c4b08871911a576.tar.gz
(ispell-region): Return non-nil if not aborted.
(ispell-highlight-spelling-error-generic): Fix doc typo.
-rw-r--r--lisp/textmodes/ispell.el7
1 files 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)