[nongnu] elpa/raku-mode a2cc73f0d8 130/253: Improve matching of '«' and '<' strings

[ELPA Syncer]

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

    Improve matching of '«' and '<' strings
    
    '«<«' is not a delimiter of such strings, for instance.
---
 perl6-font-lock.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index c6750ffedc..f1fd380d80 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -436,7 +436,7 @@ Takes arguments START and END which delimit the region to 
propertize."
       ((rx "#")
        (0 (ignore (perl6-syntax-propertize-comment end))))
       ;; angle-bracketed quoting construct
-      ((rx (1+ (char "<«")))
+      ((rx (or (1+ "<") (1+ "«")))
        (0 (ignore (perl6-syntax-propertize-angles (match-string 0)))))
       ;; postfix hyper operators
       ((perl6-rx (or identifier "]" ")") (group (or "»" ">>")))