[nongnu] elpa/raku-mode 29b821fc44 075/253: Rename function to be more descriptive

[ELPA Syncer]

branch: elpa/raku-mode
commit 29b821fc445383ac6886bbb2a5faf2071cfa7980
Author: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>

    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)))