From 39773899f380fd6bd5628f537f56c858cbe25656 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Fri, 20 Apr 2012 19:36:21 +0800 Subject: [PATCH] * lisp/font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let and pcase-let*. --- lisp/ChangeLog | 5 +++++ lisp/font-lock.el | 8 ++++---- 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 + + * font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let + and pcase-let*. + 2012-04-20 Chong Yidong * 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" -- 2.39.2