diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-10 03:19:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-10 03:19:33 +0000 |
| commit | 3fd00dcb428281d57a65872fba2c5ab9745a01de (patch) | |
| tree | b54e84a59c68a7048a4b2199e73a8bc95674e401 | |
| parent | 583f5d53e6ec09f57efdb4f74fbf8be794883e41 (diff) | |
| download | emacs-3fd00dcb428281d57a65872fba2c5ab9745a01de.tar.gz emacs-3fd00dcb428281d57a65872fba2c5ab9745a01de.tar.bz2 emacs-3fd00dcb428281d57a65872fba2c5ab9745a01de.zip | |
(lisp-font-lock-keywords): Fontify `handler-case', `ccase',
`ctypecase', `assert', `error'.
| -rw-r--r-- | lisp/font-lock.el | 1 |
1 files changed, 1 insertions, 0 deletions
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" |