diff options
author | Eli Zaretskii <eliz@gnu.org> | 2006-03-11 15:07:32 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2006-03-11 15:07:32 +0000 |
commit | 55faab0a19c18ed34bd85a3f89c7bc1acf12c47b (patch) | |
tree | 9bef2385ecd1e0788f9de1ce154061bc59dfb9e7 /lisp/textmodes | |
parent | 3bb69bbdbab33bb301d7b60271c0cdb410485206 (diff) | |
download | emacs-55faab0a19c18ed34bd85a3f89c7bc1acf12c47b.tar.gz |
(flyspell-external-point-words, flyspell-process-localwords): Fix last changes.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r-- | lisp/textmodes/flyspell.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 96862b9c671..54b67a258a6 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1323,7 +1323,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'." (let (words-not-found (ispell-otherchars (ispell-get-otherchars)) (buffer-scan-pos flyspell-large-region-beg) - (case-fold-search nil)) + case-fold-search) (with-current-buffer flyspell-external-ispell-buffer (goto-char (point-min)) ;; Loop over incorrect words, in the order they were reported, @@ -1409,8 +1409,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'." ;;* declared correct. */ ;;*---------------------------------------------------------------------*/ (defun flyspell-process-localwords (misspellings-buffer) - (let (localwords - (case-fold-search nil) + (let (localwords case-fold-search (ispell-casechars (ispell-get-casechars))) ;; Get localwords from the original buffer (save-excursion |