From: Simon Marshall Date: Wed, 26 Nov 1997 14:42:37 +0000 (+0000) Subject: Only use syntactic keywords if non-nil. X-Git-Tag: emacs-20.3~2715 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63d5226e1edf5563a239cc10d4f2b409cc9d882d;p=emacs.git Only use syntactic keywords if non-nil. --- diff --git a/lisp/fast-lock.el b/lisp/fast-lock.el index 967468cfde8..0268a1ecad3 100644 --- a/lisp/fast-lock.el +++ b/lisp/fast-lock.el @@ -4,7 +4,7 @@ ;; Author: Simon Marshall ;; 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