procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Only use syntactic keywords if non-nil.

Browse source
This commit is contained in:
Simon Marshall 1997-11-26 14:42:37 +00:00
parent 4c17871f15
commit 63d5226e1e
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/fast-lock.el
View file

@ -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