diff options
| author | OGAWA Hirofumi <hirofumi@mail.parknet.co.jp> | 2018-09-30 08:31:25 +0900 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2018-10-13 12:14:52 +0300 |
| commit | f3c13bb38e4120b4b84623892c6df4ddb421d5d0 (patch) | |
| tree | 0d921b7579840942f8c5002fb3d763a7937c9a1e /lisp/net/sieve-mode.el | |
| parent | 4824d37041a9647f761c0cad32f2c3c8e367ba96 (diff) | |
| download | emacs-f3c13bb38e4120b4b84623892c6df4ddb421d5d0.tar.gz emacs-f3c13bb38e4120b4b84623892c6df4ddb421d5d0.tar.bz2 emacs-f3c13bb38e4120b4b84623892c6df4ddb421d5d0.zip | |
Fix sieve-mode font lock
* lisp/net/sieve-mode.el (sieve-font-lock-keywords): Fix the
definition of font-lock faces. (Bug#32881)
Diffstat (limited to 'lisp/net/sieve-mode.el')
| -rw-r--r-- | lisp/net/sieve-mode.el | 31 |
1 files changed, 14 insertions, 17 deletions
diff --git a/lisp/net/sieve-mode.el b/lisp/net/sieve-mode.el index 34a4cb611ea..b9f424fda8c 100644 --- a/lisp/net/sieve-mode.el +++ b/lisp/net/sieve-mode.el @@ -100,23 +100,20 @@ (defconst sieve-font-lock-keywords (eval-when-compile - (list - ;; control commands - (cons (regexp-opt '("require" "if" "else" "elsif" "stop") - 'words) - 'sieve-control-commands) - ;; action commands - (cons (regexp-opt '("fileinto" "redirect" "reject" "keep" "discard") - 'words) - 'sieve-action-commands) - ;; test commands - (cons (regexp-opt '("address" "allof" "anyof" "exists" "false" - "true" "header" "not" "size" "envelope" - "body") - 'words) - 'sieve-test-commands) - (cons "\\Sw+:\\sw+" - 'sieve-tagged-arguments)))) + `( + ;; control commands + (,(regexp-opt '("require" "if" "else" "elsif" "stop") 'words) + . 'sieve-control-commands) + ;; action commands + (,(regexp-opt '("fileinto" "redirect" "reject" "keep" "discard") 'words) + . 'sieve-action-commands) + ;; test commands + (,(regexp-opt '("address" "allof" "anyof" "exists" "false" + "true" "header" "not" "size" "envelope" + "body") + 'words) + . 'sieve-test-commands) + ("\\Sw+:\\sw+" . 'sieve-tagged-arguments)))) ;; Syntax table |