From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 Jul 1998 03:19:33 +0000 (+0000)
Subject: (lisp-font-lock-keywords): Fontify `handler-case', `ccase',
X-Git-Tag: emacs-20.3~349
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fd00dcb428281d57a65872fba2c5ab9745a01de;p=emacs.git

(lisp-font-lock-keywords): Fontify `handler-case', `ccase',
`ctypecase', `assert', `error'.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 9ff63c6c18b..0d8f881c210 100644
--- 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"