[nongnu] elpa/raku-mode b111c81c75 031/253: Move set operator regex into perl6-rx

[ELPA Syncer]

branch: elpa/raku-mode
commit b111c81c75ef1ee7e83eff6e1f395f065c1645ac
Author: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>

    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 "<«")))