(flyspell-external-point-words, flyspell-process-localwords): Fix last changes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa50978f5e8369ada2dc57bfb686ee597d3ae187..7bc8263454703af42a33a1a423e9de3abe422638 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-11  Agustin Martin  <agustin.martin@hispalinux.es>
+
+       * textmodes/flyspell.el (flyspell-external-point-words)
+       (flyspell-process-localwords): Fix last changes.
+
 2006-03-11  Eli Zaretskii  <eliz@gnu.org>
 
        * calendar/holidays.el (list-holidays): Doc fix.

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 96862b9c6717d58d0517892e992778192156685d..54b67a258a61f75d3bffb08b6bd525fb27c31f52 100644 (file)
--- 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