[nongnu] elpa/raku-mode d2dfe7031c 073/253: Don't apply punctuation syntax to all set operators

[ELPA Syncer]

branch: elpa/raku-mode
commit d2dfe7031c930a52423f01353c38b789465b7a71
Author: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik.sig@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))))))