branch: elpa/raku-mode
commit b1b5cfde21611fd518755a9701925a8fa30b2dcb
Author: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
Add some comments to perl6-syntax-propertize
---
perl6-font-lock.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index 3752ca8eb8..c4e2a6d16d 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -410,24 +410,33 @@ Takes arguments START and END which delimit the region to
propertize."
(and identifier (group "::"))))
(1 "_")
(2 "_"))
+ ;; embedded comments, like #|{ ... }
((rx "#" (any "`|="))
(0 (ignore (with-syntax-table perl6-bracket-syntax-table
(perl6-syntax-propertize-delimiters "!" -2)))))
+ ;; regular end-of-line comments
((rx "#" (0+ not-newline))
(0 (ignore)))
+ ;; metaoperators like (-), R=>, [*], X~
((perl6-rx (or set-operator rsxz-operator reduce-operator))
(0 (ignore (perl6-add-font-lock-hint 'perl6-metaoperator 0))))
+ ;; angle-bracketed quoting construct
((rx (1+ (char "<«")))
(0 (ignore (perl6-syntax-propertize-angles (match-string 0)))))
+ ;; backslashes outside strings/comments are punctuation, not escapes
((rx "\\")
(0 (ignore (perl6-syntax-propertize-backslash))))
+ ;; unicode string quotes
((rx (any "‘｢“"))
(0 (ignore (progn (backward-char)
(with-syntax-table perl6-string-delimiter-syntax-table
(perl6-syntax-propertize-delimiters "|"))))))
+ ;; sigils and twigils are prefix characters
((perl6-rx variable)
(1 ".p")
(2 ".p")
+ ;; go back if we match a package name (e.g. $?FOO::BAR), so the
+ ;; colons can be syntax-propertized above
(3 (ignore (goto-char (match-beginning 3))))))
start end)))
