(lisp-font-lock-keywords): Fontify `handler-case', `ccase',

`ctypecase', `assert', `error'.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 9ff63c6..0d8f881 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1956,6 +1956,7 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item."
       (cons (concat
             "(" (regexp-opt
                  '("when" "unless" "case" "ecase" "typecase" "etypecase"
+                    "ccase" "ctypecase" "handler-case" "assert" "error"
                    "loop" "do" "do*" "dotimes" "dolist"
                    "proclaim" "declaim" "declare"
                    "lexical-let" "lexical-let*" "flet" "labels"