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

    Fix highlighting of some non-alphanumberic RSXZ metaops, like C«R<»
---
 perl6-font-lock.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index 754f6b301c..242bb735d5 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -162,14 +162,14 @@
        . ,(rx
            symbol-start
            (any "RSXZ")
-           (or symbol-end
-               (or (and (or "div" "mod" "gcd" "lcm" "xx" "x" "does" "but" "cmp"
+           (or (or (and (or "div" "mod" "gcd" "lcm" "xx" "x" "does" "but" "cmp"
                             "leg" "eq" "ne" "gt" "ge" "lt" "le" "before" 
"after"
                             "eqv" "min" "max" "not" "so" "andthen" "and" "or"
                             "orelse")
                         symbol-end)
                    (any ".,")
-                   (1+ (regex "[^:\[.,[:space:][:alnum:]]"))))))
+                   (1+ (regex "[^:\[.,[:space:][:alnum:]]")))
+               symbol-end)))
       (reduce-operator
        . ,(rx (0+ (any "RSXZ\["))
               (opt (any "RSXZ&"))

Reply via email to