# HG changeset patch # User Eli Zaretskii # Date 1142089604 0 # Node ID 385f9e668650ea82e036639a18cbcda0f30d964b # Parent 45fbf2b25e1aba218607b36067ef281a362964c7 (flyspell-external-point-words, flyspell-process-localwords): Fix last changes. diff -r 45fbf2b25e1a -r 385f9e668650 lisp/textmodes/flyspell.el --- 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