Skip to content

Instantly share code, notes, and snippets.

@dleslie

dleslie/font-lock-keywords.el

Created February 25, 2012 22:29
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dleslie/1911196 to your computer and use it in GitHub Desktop.
Save dleslie/1911196 to your computer and use it in GitHub Desktop.
Download ZIP
Easy add/remove keywords from font lock
Raw
font-lock-keywords.el
(defun add-font-lock-keywords (modes new-keywords)
(mapc (lambda (mode)
(font-lock-add-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name (remove-if 'numberp new-keywords)) t) "\\)\\>")
(1 font-lock-keyword-face)))))
modes)
t)
(defun remove-font-lock-keywords (modes new-keywords)
(mapc (lambda (mode)
(font-lock-remove-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name (remove-if 'numberp new-keywords)) t) "\\)\\>")
(1 font-lock-keyword-face)))))
modes)
t)
;; Example: Add define-foreign-enum-type to the list of keywords for scheme
(add-font-lock-keywords '(scheme-mode inferior-scheme-mode) '(define-foreign-enum-type))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment