[Emacs-diffs] /srv/bzr/emacs/trunk r107974: * lisp/font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let

[Leo Liu]

------------------------------------------------------------
revno: 107974
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Fri 2012-04-20 19:36:21 +0800
message:
  * lisp/font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let
  and pcase-let*.
modified:
  lisp/ChangeLog
  lisp/font-lock.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-20 10:37:57 +0000
+++ b/lisp/ChangeLog    2012-04-20 11:36:21 +0000
@@ -1,3 +1,8 @@
+2012-04-20  Leo Liu  <address@hidden>
+
+       * font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let
+       and pcase-let*.
+
 2012-04-20  Chong Yidong  <address@hidden>
 
        * server.el (server-execute): Respect initial-buffer-choice if it

=== modified file 'lisp/font-lock.el'
--- a/lisp/font-lock.el 2012-04-09 13:05:48 +0000
+++ b/lisp/font-lock.el 2012-04-20 11:36:21 +0000
@@ -2285,10 +2285,10 @@
        (,(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"