From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 3 Mar 2006 12:28:24 +0000 (+0000)
Subject: (flyspell-process-localwords): Be case-sensitive.
X-Git-Tag: emacs-pretest-22.0.90~3795
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a2c4459285d0b726a0b1bc25317d4695c99c852;p=emacs.git

(flyspell-process-localwords): Be case-sensitive.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4eabd34743d..9a539543947 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-03  Agustin Martin  <agustin.martin@hispalinux.es>
+
+	textmodes/flyspell.el (flyspell-process-localwords): Be
+	case-sensitive.
+
 2006-03-03  Martin Rudalics  <rudalics@gmx.at>
 
 	* cus-edit.el (custom-quote): Remove function, since it has been
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 35bf8d46100..96862b9c671 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1410,6 +1410,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
 ;;*---------------------------------------------------------------------*/
 (defun flyspell-process-localwords (misspellings-buffer)
   (let (localwords
+	(case-fold-search nil)
 	(ispell-casechars (ispell-get-casechars)))
     ;; Get localwords from the original buffer
     (save-excursion