From 3617a54f3d6573c254da7a48dc7f879c27a44cdc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=A0t=C4=9Bp=C3=A1n=20N=C4=9Bmec?= Date: Sat, 24 Apr 2010 12:23:38 +0200 Subject: [PATCH] Add a few more macros to `lisp-font-lock-keywords-2'. Namely, `combine-after-change-calls', `condition-case-no-debug', `with-demoted-errors' and `with-silent-modifications'. --- lisp/ChangeLog | 6 ++++++ lisp/font-lock.el | 13 +++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 52d2910..2c25ac5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-04-24 Štěpán Němec + + * font-lock.el (lisp-font-lock-keywords-2): Add entries for + `combine-after-change-calls', `condition-case-no-debug', + `with-demoted-errors' and `with-silent-modifications'. + 2010-04-24 Glenn Morris * emacs-lisp/authors.el (authors-obsolete-files-regexps): diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 7e8562c..8f2f45e 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -2275,19 +2275,20 @@ in which C preprocessor directives are used. e.g. `asm-mode' and `(;; Control structures. Emacs Lisp forms. (,(concat "(" (regexp-opt - '("cond" "if" "while" "while-no-input" "let" "let*" + '("combine-after-change-calls" "cond" "if" "let" "let*" "prog" "progn" "progv" "prog1" "prog2" "prog*" "inline" "lambda" "save-restriction" "save-excursion" "save-selected-window" "save-window-excursion" "save-match-data" "save-current-buffer" - "unwind-protect" "condition-case" "track-mouse" + "unwind-protect" "condition-case" "condition-case-no-debug" "eval-after-load" "eval-and-compile" "eval-when-compile" - "eval-when" "eval-next-after-load" - "with-case-table" "with-category-table" - "with-current-buffer" "with-electric-help" + "eval-when" "eval-next-after-load" "track-mouse" "while" + "while-no-input" "with-case-table" "with-category-table" + "with-current-buffer" "with-demoted-errors" "with-electric-help" "with-local-quit" "with-no-warnings" "with-output-to-string" "with-output-to-temp-buffer" - "with-selected-window" "with-selected-frame" "with-syntax-table" + "with-selected-window" "with-selected-frame" + "with-silent-modifications" "with-syntax-table" "with-temp-buffer" "with-temp-file" "with-temp-message" "with-timeout" "with-timeout-handler") t) "\\>") -- 1.7.0.83.g241b9.dirty