From ef544ef9c523cf1586bb3f84da3eae91f6a87c03 Mon Sep 17 00:00:00 2001 From: Jackson Ray Hamilton Date: Sun, 17 May 2015 16:27:35 -0700 Subject: [PATCH] Fontify keywords. --- context-coloring.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/context-coloring.el b/context-coloring.el index f21b32371..d491f880b 100644 --- a/context-coloring.el +++ b/context-coloring.el @@ -172,8 +172,6 @@ the END point (exclusive) with the face corresponding to LEVEL." "Tell `font-lock' to color a string but not a comment." (if (nth 3 state) font-lock-string-face nil)) -;; TODO: Add specialized emacs-lisp version based on -;; `lisp-font-lock-syntactic-face-function'. (defsubst context-coloring-maybe-colorize-comments-and-strings (&optional min max) "Color the current buffer's comments and strings if `context-coloring-comments-and-strings' is non-nil." @@ -192,7 +190,11 @@ the END point (exclusive) with the face corresponding to LEVEL." font-lock-syntactic-face-function)))) (save-excursion (font-lock-fontify-syntactically-region (or min (point-min)) - (or max (point-max))))))) + (or max (point-max))) + ;; TODO: Make configurable at the dispatch level. + (when (eq major-mode 'emacs-lisp-mode) + (font-lock-fontify-keywords-region (or min (point-min)) + (or max (point-max)))))))) ;;; js2-mode colorization -- 2.39.2