Only use syntactic keywords if non-nil.

diff --git a/lisp/fast-lock.el b/lisp/fast-lock.el
index 967468cfde859b8cedb786f5ba67e14133181ef4..0268a1ecad3668d3e4d9c0c15dc806c0a3ff5253 100644 (file)
--- a/lisp/fast-lock.el
+++ b/lisp/fast-lock.el
@@ -4,7 +4,7 @@
 
 ;; Author: Simon Marshall <simon@gnu.ai.mit.edu>
 ;; Keywords: faces files
-;; Version: 3.12.03
+;; Version: 3.13
 
 ;;; This file is part of GNU Emacs.
 
@@ -219,7 +219,7 @@
 ;  "Submit via mail a bug report on fast-lock.el."
 ;  (interactive)
 ;  (let ((reporter-prompt-for-summary-p t))
-;    (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "fast-lock 3.12.03"
+;    (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "fast-lock 3.13"
 ;     '(fast-lock-cache-directories fast-lock-minimum-size
 ;       fast-lock-save-others fast-lock-save-events fast-lock-save-faces
 ;       fast-lock-verbose)
@@ -592,11 +592,12 @@ See `fast-lock-cache-directory'."
   (setq font-lock-syntactic-keywords (font-lock-eval-keywords
                                      font-lock-syntactic-keywords))
   ;; Compile all keywords in case some are and some aren't.
-  (setq font-lock-syntactic-keywords (font-lock-compile-keywords
-                                     font-lock-syntactic-keywords)
-       syntactic-keywords (font-lock-compile-keywords syntactic-keywords)
-
-       font-lock-keywords (font-lock-compile-keywords font-lock-keywords)
+  (when font-lock-syntactic-keywords
+    (setq font-lock-syntactic-keywords (font-lock-compile-keywords
+                                       font-lock-syntactic-keywords)))
+  (when syntactic-keywords
+    (setq syntactic-keywords (font-lock-compile-keywords syntactic-keywords)))
+  (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
   ;; using cache VERSION format 3, the current buffer's file timestamp matches