Mercurial > emacs
changeset 20358:12d74c41157a
Only use syntactic keywords if non-nil.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Wed, 26 Nov 1997 14:42:37 +0000 |
| parents | d8c4a70454f2 |
| children | 7fca0e4ce5e8 |
| files | lisp/fast-lock.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/fast-lock.el Wed Nov 26 14:38:48 1997 +0000 +++ b/lisp/fast-lock.el Wed Nov 26 14:42:37 1997 +0000 @@ -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 @@ (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