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

["Štěpán Němec" <stepnem@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 123 bytes --]

Tags: patch

Hello,

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



[-- Attachment #2: 0001-Add-a-few-more-macros-to-lisp-font-lock-keywords-2.patch --]
[-- Type: text/x-diff, Size: 2578 bytes --]

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