[nongnu] elpa/raku-mode 5456e2b044 145/253: Fix highlighting of <-a -b -c>

[ELPA Syncer]

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

    Fix highlighting of <-a -b -c>
---
 perl6-font-lock.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index a1d9160bbf..f70c1de858 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -383,7 +383,8 @@ OPEN-ANGLES is the opening delimiter (e.g. \"«\" or 
\"<<\")."
            (quote-beg (- (point) angle-length))
            (line-beg (point-at-bol)))
       (when
-          (and (not (or (looking-at "[-=]")
+          (and (not (or (looking-at (rx-to-string `(= 2 (char "-=") 2 2)))
+                        (looking-at (rx-to-string `(and (** 1 2 (char "-=")) 
">")))
                         (looking-back (rx-to-string `(and (char "+~=!") 
,open-angle)) 2)))
                (or (not (looking-at "[\s\n]"))
                    (not (looking-back (rx-to-string `(and (char "\s\n") 
,open-angle)) 2))