(fast-lock-cache-data): Provide 2nd arg to font-lock-compile-keywords.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e749d12140ea0cd8ecbf0f9bea970c3aa12c833..df9232d40e09305ad1a715ee221afaefac39a4bd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2006-09-16  Richard Stallman  <rms@gnu.org>
+
+       * obsolete/fast-lock.el (fast-lock-cache-data): Provide 2nd arg to
+       font-lock-compile-keywords.
+
+       * font-lock.el (font-lock-compile-keywords): Rename optional arg
+       to SYNTACTIC-KEYWORDS and reverse the sense.  All callers changed.
+
 2006-09-16  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * cus-start.el (all): Add x-gtk-show-chooser-help-text.

diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el
index 60c7988a66b307728f89ff838a85526ebb346b76..de4b494826a97c07b85e8e731aeeb1efb3aeead5 100644 (file)
--- a/lisp/obsolete/fast-lock.el
+++ b/lisp/obsolete/fast-lock.el
@@ -623,9 +623,9 @@ See `fast-lock-cache-directory'."
   ;; Compile all keywords in case some are and some aren't.
   (when font-lock-syntactic-keywords
     (setq font-lock-syntactic-keywords (font-lock-compile-keywords
-                                       font-lock-syntactic-keywords)))
+                                       font-lock-syntactic-keywords t)))
   (when syntactic-keywords
-    (setq syntactic-keywords (font-lock-compile-keywords syntactic-keywords)))
+    (setq syntactic-keywords (font-lock-compile-keywords syntactic-keywords t)))
   (setq font-lock-keywords (font-lock-compile-keywords font-lock-keywords)
        keywords (font-lock-compile-keywords keywords))
   ;; Use the Font Lock cache SYNTACTIC-PROPERTIES and FACE-PROPERTIES if we're