* lisp/font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let

and pcase-let*.

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58f646251d0..5b9e85ef29c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-20  Leo Liu  <sdl.web@gmail.com>
+
+        * font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let
+        and pcase-let*.
+
 2012-04-20  Chong Yidong  <cyd@gnu.org>
 
         * server.el (server-execute): Respect initial-buffer-choice if it
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 910585f21f1..2f76687983b 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -2285,10 +2285,10 @@ in which C preprocessor directives are used. e.g. `asm-mode' and
        (,(concat
           "(" (regexp-opt
                '("cond" "if" "while" "while-no-input" "let" "let*" "letrec"
-                 "prog" "progn" "progv" "prog1" "prog2" "prog*"
-                 "inline" "lambda" "save-restriction" "save-excursion"
-                 "save-selected-window" "save-window-excursion"
-                 "save-match-data" "save-current-buffer"
+                 "pcase" "pcase-let" "pcase-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"
                  "combine-after-change-calls" "unwind-protect"
                  "condition-case" "condition-case-unless-debug"
                  "track-mouse" "eval-after-load" "eval-and-compile"