branch: elpa/raku-mode
commit 8e7d64a73f0baa95355a81e100cedb52e0273e5a
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
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)
