[nongnu] elpa/raku-mode 8e7d64a73f 025/253: Apply 'syntax-multiline to the whole term

[ELPA Syncer]

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

    Apply 'syntax-multiline to the whole term
---
 perl6-font-lock.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index b060be4f94..251ad203e9 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -244,14 +244,14 @@ Takes arguments START and END which delimit the region to 
propertize."
        (0 "_"))
       ((rx "#`")
        (0 (ignore (perl6-syntax-propertize-embedded-comment))))
-      ((rx (group "«") (group (0+ (not-char "»"))) (group "»"))
+      ((rx (group "«") (0+ (not-char "»")) (opt (group "»")))
+       (0 (ignore (put-text-property (match-beginning 0) (match-end 0) 
'syntax-multiline t)))
        (1 "|")
-       (2 (ignore (put-text-property (match-beginning 2) (match-end 2) 
'syntax-multiline t)))
-       (3 "|"))
-      ((rx (group "<") "<" (group (0+ (not-char ">"))) ">" (group ">"))
+       (2 "|"))
+      ((rx (group "<") "<" (0+ (not-char ">")) (opt (and ">" (group ">"))))
+       (0 (ignore (put-text-property (match-beginning 0) (match-end 0) 
'syntax-multiline t)))
        (1 "|")
-       (2 (ignore (put-text-property (match-beginning 2) (match-end 2) 
'syntax-multiline t)))
-       (3 "|")))
+       (2 "|")))
       start end)))
 
 (defun perl6-font-lock-syntactic-face (state)