bug#6025: Add font-lock highlighting for some more macros.

[Štěpán Němec]

Tags: patch

Hello,

in case their omission is not intentional, this patch adds font-lock
support for a few more macros.


>From 3617a54f3d6573c254da7a48dc7f879c27a44cdc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=A0t=C4=9Bp=C3=A1n=20N=C4=9Bmec?= <stepnem@gmail.com>
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  <stepnem@gmail.com>
+
+       * 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  <rgm@gnu.org>
 
        * 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