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

    Highlight sigil in match group ($<foo>)
---
 perl6-font-lock.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index f6a1d163ba..f060a17af7 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -452,8 +452,11 @@ GROUPS is allowed to reference optional match groups."
 (defconst perl6-font-lock-keywords
   `(
     (perl6-match-metaoperator 0 'perl6-operator)
-    (,(perl6-rx (group (any "@$%&")) (0+ space)
-                (or (any ",\)\}") (symbol "where")))
+    (,(perl6-rx (group (any "@$%&"))
+                (or
+                 "<"
+                 (and (0+ space)
+                      (or (any ",\)\}") (symbol "where")))))
      1 'perl6-sigil)
     (,(perl6-rx (group (1+ (char "@$%&")))
                 (group (opt (char ".^*?=!~")))

Reply via email to