aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/textmodes/flyspell.el14
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index b6c8ac393c6..5726bd82cb9 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -138,7 +138,9 @@ This variable specifies how far to search to find such a duplicate.
138 "Non-nil means misspelled words remain highlighted until corrected. 138 "Non-nil means misspelled words remain highlighted until corrected.
139If this variable is nil, only the most recently detected misspelled word 139If this variable is nil, only the most recently detected misspelled word
140is highlighted, and the highlight is turned off as soon as point moves 140is highlighted, and the highlight is turned off as soon as point moves
141off the misspelled word." 141off the misspelled word.
142
143Make sure this variable is non-nil if you use `flyspell-region'."
142 :group 'flyspell 144 :group 'flyspell
143 :type 'boolean) 145 :type 'boolean)
144 146
@@ -1368,7 +1370,10 @@ language."
1368;;* flyspell-small-region ... */ 1370;;* flyspell-small-region ... */
1369;;*---------------------------------------------------------------------*/ 1371;;*---------------------------------------------------------------------*/
1370(defun flyspell-small-region (beg end) 1372(defun flyspell-small-region (beg end)
1371 "Flyspell text between BEG and END." 1373 "Flyspell text between BEG and END.
1374
1375This function is intended to work on small regions, as
1376determined by `flyspell-large-region'."
1372 (save-excursion 1377 (save-excursion
1373 (if (> beg end) 1378 (if (> beg end)
1374 (let ((old beg)) 1379 (let ((old beg))
@@ -1639,7 +1644,10 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
1639;;*---------------------------------------------------------------------*/ 1644;;*---------------------------------------------------------------------*/
1640;;;###autoload 1645;;;###autoload
1641(defun flyspell-region (beg end) 1646(defun flyspell-region (beg end)
1642 "Flyspell text between BEG and END." 1647 "Flyspell text between BEG and END.
1648
1649Make sure `flyspell-mode' is turned on if you want the highlight
1650of a misspelled word removed when you've corrected it."
1643 (interactive "r") 1651 (interactive "r")
1644 (ispell-set-spellchecker-params) ; Initialize variables and dicts alists 1652 (ispell-set-spellchecker-params) ; Initialize variables and dicts alists
1645 (if (= beg end) 1653 (if (= beg end)