branch: elpa/raku-mode
commit d2dfe7031c930a52423f01353c38b789465b7a71
Author: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
Don't apply punctuation syntax to all set operators
I.e. we still want '(elem)' and such to have word syntax on the 'elem'
part.
---
perl6-font-lock.el | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index 54b6d59294..c4aa0d684a 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -347,11 +347,7 @@ Takes arguments START and END which delimit the region to
propertize."
(0 "_"))
((rx "#" (any "`|="))
(0 (ignore (perl6-syntax-propertize-embedded-comment))))
- ;; set operators
- ((perl6-rx set-operator)
- (0 (prog1 "." (perl6-syntax-propertize-match 'perl6-metaoperator 0))))
- ;; [RSXZ] metaoperators
- ((perl6-rx rsxz-operator)
+ ((perl6-rx (or set-operator rsxz-operator))
(0 (ignore (perl6-syntax-propertize-match 'perl6-metaoperator 0))))
((rx (1+ (char "<«")))
(0 (ignore (perl6-syntax-propertize-angles (match-string 0))))))
