procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix sieve-mode font lock

Browse source 
* lisp/net/sieve-mode.el (sieve-font-lock-keywords): Fix the
definition of font-lock faces.  (Bug#32881)
This commit is contained in:
OGAWA Hirofumi 2018-09-30 08:31:25 +09:00 • committed by Eli Zaretskii
parent 4824d37041
commit f3c13bb38e
1 changed files with 14 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/net/sieve-mode.el
View file

@ -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