made font-lock-keywords-case-fold-search buffer-local

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be559093e02..7e02e5fc73a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-04-05  Sam Steingold  <sds@gnu.org>
+
+        * font-lock.el (font-lock-keywords-case-fold-search): Make
+        buffer-local.  This fixes a very annoying bug when loading a Lisp
+        file made font-lock case-insensitive.
+
 2001-04-05  Gerd Moellmann  <gerd@gnu.org>
 
         * faces.el (defface menu): Doc fix.
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index f46317d45d3..4937b80a0b7 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -555,6 +555,7 @@ This is normally set via `font-lock-defaults'.")
 (defvar font-lock-keywords-case-fold-search nil
   "*Non-nil means the patterns in `font-lock-keywords' are case-insensitive.
 This is normally set via `font-lock-defaults'.")
+(make-variable-buffer-local 'font-lock-keywords-case-fold-search)
 
 (defvar font-lock-syntactically-fontified 0
   "Point up to which `font-lock-syntactic-keywords' has been applied.