branch: elpa/raku-mode
commit 29b821fc445383ac6886bbb2a5faf2071cfa7980
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
Rename function to be more descriptive
---
perl6-font-lock.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index 5d7325f902..a1f7a1c628 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -327,7 +327,7 @@ OPEN-ANGLES is the opening delimiter (e.g. \"«\" or
\"<<\")."
(put-text-property quote-end (1+ quote-end)
'syntax-table (string-to-syntax "|"))))))))
-(defun perl6-syntax-propertize-match (property &optional group)
+(defun perl6-add-font-lock-hint (property &optional group)
(let ((beg (match-beginning (or group 1)))
context)
(put-text-property beg (1+ beg) property
@@ -352,7 +352,7 @@ Takes arguments START and END which delimit the region to
propertize."
((rx "#" (any "`|="))
(0 (ignore (perl6-syntax-propertize-embedded-comment))))
((perl6-rx (or set-operator rsxz-operator))
- (0 (ignore (perl6-syntax-propertize-match 'perl6-metaoperator 0))))
+ (0 (ignore (perl6-add-font-lock-hint 'perl6-metaoperator 0))))
((rx (1+ (char "<«")))
(0 (ignore (perl6-syntax-propertize-angles (match-string 0))))))
start end)))
