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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be559093e028c284f0354270c74030d17eda16a2..7e02e5fc73a9c6f70e0d8650680f98851f3e6fbe 100644 (file)
--- 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 f46317d45d3d2a1cdb694d6eb1908267d3ac4c6b..4937b80a0b7412c65f7e2e7f063687d85a427101 100644 (file)
--- 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.