branch: elpa/raku-mode
commit b111c81c75ef1ee7e83eff6e1f395f065c1645ac
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
Move set operator regex into perl6-rx
---
perl6-font-lock.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index e0918727b6..6ca307b3ef 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -135,6 +135,11 @@
"gt" "eqv" "ff" "fff" "and" "andthen" "or"
"xor" "orelse" "extra" "lcm" "gcd")))
(operator-char . ,(rx (any "-+/*~?|=^!%&,<>».;\\∈∉∋∌∩∪≼≽⊂⊃⊄⊅⊆⊇⊈⊉⊍⊎⊖∅")))
+ (set-operator . ,(rx (opt "R") "\(" (or (char "-^.+|&")
+ (and (char "<>")
+ (opt (char "=+")))
+ "cont"
+ "elem") "\)"))
(low-type . ,(rx (or "int" "int1" "int2" "int4" "int8" "int16"
"int32" "int64" "rat" "rat1" "rat2" "rat4"
"rat8" "rat16" "rat32" "rat64" "buf" "buf1"
@@ -292,7 +297,7 @@ Takes arguments START and END which delimit the region to
propertize."
((rx "#`")
(0 (ignore (perl6-syntax-propertize-embedded-comment))))
;; set operators
- ((rx (opt "R") "\(" (or (char "-^.+|&") (and (char "<>") (opt (char
"=+"))) "cont" "elem") "\)")
+ ((perl6-rx set-operator)
(0 (prog1 "." (put-text-property (match-beginning 0) (match-end 0)
'font-lock-face 'perl6-operator))))
((rx (1+ (char "<«")))
