From 55faab0a19c18ed34bd85a3f89c7bc1acf12c47b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 11 Mar 2006 15:07:32 +0000 Subject: [PATCH] (flyspell-external-point-words, flyspell-process-localwords): Fix last changes. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/flyspell.el | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aa50978f5e8..7bc82634547 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-03-11 Agustin Martin + + * textmodes/flyspell.el (flyspell-external-point-words) + (flyspell-process-localwords): Fix last changes. + 2006-03-11 Eli Zaretskii * calendar/holidays.el (list-holidays): Doc fix. 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 -- 2.11.4.GIT