Mercurial > emacs
changeset 69379:385f9e668650
(flyspell-external-point-words, flyspell-process-localwords): Fix last changes.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 11 Mar 2006 15:06:44 +0000 |
parents | 45fbf2b25e1a |
children | 60a755271982 |
files | lisp/textmodes/flyspell.el |
diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el Sat Mar 11 15:02:34 2006 +0000 +++ b/lisp/textmodes/flyspell.el Sat Mar 11 15:06:44 2006 +0000 @@ -1323,7 +1323,7 @@ (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 @@ ;;* 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