branch: elpa/raku-mode
commit 623b5b559ab923c9e3b68f95fad17e911f1c9055
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
Syntaxify double colons around identifiers as symbol chars
This will help with thing-at-point in the future.
---
perl6-font-lock.el | 4 ++++
test/perl6-mode-test.el | 5 +++++
2 files changed, 9 insertions(+)
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index fc7d979ffc..3383e77b04 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -235,6 +235,10 @@ Takes arguments START and END which delimit the region to
propertize."
;; [-'] between identifiers are symbol chars
((rx (any "A-Za-z") (group (any "-'")) (any "A-Za-z"))
(1 "_"))
+ ;; same for "::" around identifiers
+ ((rx (or (and "::" symbol-start)
+ (and symbol-end "::")))
+ (0 "_"))
; multiline comments
((rx "#`")
(0 (ignore (perl6-syntax-propertize-embedded-comment)))))
diff --git a/test/perl6-mode-test.el b/test/perl6-mode-test.el
index b8fc39be6f..2c9a268bc2 100644
--- a/test/perl6-mode-test.el
+++ b/test/perl6-mode-test.el
@@ -52,6 +52,11 @@ POS."
;;;; Font locking
+(ert-deftest perl6-syntax-propertize/colons-identifier ()
+ :tags '(syntax-table syntax-properties)
+ (perl6-test-with-temp-buffer "class Foo::Bar"
+ (should (eq (perl6-test-syntax-at 10) 'symbol))
+ (should (eq (perl6-test-syntax-at 11)
'symbol))))
(ert-deftest perl6-mode-syntax-table/fontify-dq-string ()
:tags '(fontification syntax-table)
