branch: elpa/raku-mode
commit c91c40332089b04cefedde0d7e5bf49949b5935c
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>

    Fix highlighting of infix:<<lt>> and friends
---
 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 3f2dc59d82..d828f21f08 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -430,15 +430,15 @@ Takes arguments START and END which delimit the region to 
propertize."
       ((rx "#")
        (0 (ignore (if (eq (perl6-syntax-context) nil)
                       (perl6-syntax-propertize-comment end)))))
+      ;; angle-bracketed quoting construct
+      ((rx (1+ (char "<«")))
+       (0 (ignore (perl6-syntax-propertize-angles (match-string 0)))))
       ;; postfix hyper operators
       ((perl6-rx (or identifier "]" ")") (group (or "»" ">>")))
        (0 nil))
       ;; other metaoperators like (-), R=>, [*], X~, »+«
       ((perl6-rx (or set-operator rsxz-operator reduce-operator 
hyper-operator))
        (0 (ignore (perl6-add-font-lock-hint 'perl6-metaoperator 0))))
-      ;; angle-bracketed quoting construct
-      ((rx (1+ (char "<«")))
-       (0 (ignore (perl6-syntax-propertize-angles (match-string 0)))))
       ;; backslashes outside strings/comments are punctuation, not escapes
       ((rx "\\")
        (0 (ignore (perl6-syntax-propertize-backslash))))

Reply via email to