branch: elpa/raku-mode
commit 14073feeb0f8ad2225616d550133f8f473a51b33
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
Don't highlight hyperops starting with << and «« as strings
Resolves #8.
---
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 a10c805440..b6d3710fe2 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -434,15 +434,15 @@ Takes arguments START and END which delimit the region to
propertize."
;; comments
((rx "#")
(0 (ignore (perl6-syntax-propertize-comment end))))
- ;; angle-bracketed quoting construct
- ((rx (or (1+ "<") (1+ "«")))
- (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 (or (1+ "<") (1+ "«")))
+ (0 (ignore (perl6-syntax-propertize-angles (match-string 0)))))
;; backslashes outside strings/comments are punctuation, not escapes
((rx "\\")
(0 (ignore (perl6-syntax-propertize-backslash))))
