# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 900040773 0
# Node ID 0fb112106d3e64b7aca3553e6106c2269cdc30a5
# Parent  3537e1563a66ac3ec0347f4a731e820a2ced616d
(lisp-font-lock-keywords): Fontify `handler-case', `ccase',
`ctypecase', `assert', `error'.

diff -r 3537e1563a66 -r 0fb112106d3e lisp/font-lock.el
--- a/lisp/font-lock.el	Thu Jul 09 14:02:15 1998 +0000
+++ b/lisp/font-lock.el	Fri Jul 10 03:19:33 1998 +0000
@@ -1956,6 +1956,7 @@
       (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"