aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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
1559 "Highlight the word from START to END with a kludge using `inverse-video'. 1559 "Highlight the word from START to END with a kludge using `inverse-video'.
1560When the optional third arg HIGHLIGHT is set, the word is highlighted; 1560When the optional third arg HIGHLIGHT is set, the word is highlighted;
1561otherwise it is displayed normally. 1561otherwise it is displayed normally.
1562Uses block cursor to highlight one charcater. 1562Uses block cursor to highlight one character.
1563Optional REFRESH will unhighlighted then highlight, using block cursor 1563Optional REFRESH will unhighlighted then highlight, using block cursor
1564 highlighting when REFRESH is equal to `block'." 1564 highlighting when REFRESH is equal to `block'."
1565 (and (eq 'block ispell-highlight-p) 1565 (and (eq 'block ispell-highlight-p)
@@ -1893,7 +1893,8 @@ With prefix argument, set the default directory."
1893 1893
1894;;;###autoload 1894;;;###autoload
1895(defun ispell-region (reg-start reg-end) 1895(defun ispell-region (reg-start reg-end)
1896 "Interactively check a region for spelling errors." 1896 "Interactively check a region for spelling errors.
1897Return non-nil if not aborted."
1897 (interactive "r") ; Don't flag errors on read-only bufs. 1898 (interactive "r") ; Don't flag errors on read-only bufs.
1898 (ispell-accept-buffer-local-defs) ; set up dictionary, local words, etc. 1899 (ispell-accept-buffer-local-defs) ; set up dictionary, local words, etc.
1899 (unwind-protect 1900 (unwind-protect
@@ -1958,7 +1959,7 @@ With prefix argument, set the default directory."
1958 (if string ; there is something to spell check! 1959 (if string ; there is something to spell check!
1959 (ispell-process-line string)) ; (special start end) 1960 (ispell-process-line string)) ; (special start end)
1960 (goto-char end))))) 1961 (goto-char end)))))
1961 ;;(not ispell-quit) ??? kss 1962 (not ispell-quit)
1962 ) 1963 )
1963 ;; protected 1964 ;; protected
1964 (if (get-buffer ispell-choices-buffer) 1965 (if (get-buffer ispell-choices-buffer)