(defface extra-warning-face ‘((t :background “red” :foreground “brightblue”)) “Face for even more warninger warnings.” :group ‘basic-faces)
(defvar keywords ‘((“\b\(TODO\)\b”)) “List of keywords to highlight in extra-warning-face.”)
(add-hook ‘prog-mode-hook (lambda () (font-lock-add-keywords nil ‘keywords 1 ‘font-lock-warning-face t)))