[nongnu] elpa/raku-mode b6410f9d4c 126/253: Fix highlighting of ::foo

[ELPA Syncer]

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

    Fix highlighting of ::foo
---
 perl6-font-lock.el | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index 735d0325dc..5718411e27 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -114,15 +114,16 @@
     (let ((body (cdr form)))
       (rx-to-string `(and symbol-start ,@body symbol-end) 'no-group)))
 
-  (let ((rx-identifier (rx (regex "[_[:alpha:]]")
-                           (0+ (regex "[_[:alnum:]]"))
-                           (0+ (any "-'")
-                               (regex "[_[:alpha:]]") (0+ (regex 
"[_[:alnum:]]")))))
-        (rx-metaoperator (rx (or (and (regex "[^[:digit:]@%$]")
-                                      (0+ (regex "[^\[\{\('\"[:space:]]")))
-                                 (and (any "@%$")
-                                      (regex 
"[^.?^=_[:alpha:]]\[\{\('\"[:space:]]")
-                                      (0+ (regex "[^\[\{\('\"[:space:]]")))))))
+  (let ((rx-identifier (rx-to-string
+                        `(and (regex "[_[:alpha:]]")
+                              (0+ (regex "[_[:alnum:]]"))
+                              (0+ (any "-'") (regex "[_[:alpha:]]") (0+ (regex 
"[_[:alnum:]]"))))))
+        (rx-metaoperator (rx-to-string
+                          `(or (and (regex "[^[:digit:]@%$]")
+                                    (0+ (regex "[^\[\{\('\"[:space:]]")))
+                               (and (any "@%$")
+                                    (regex 
"[^.?^=_[:alpha:]]\[\{\('\"[:space:]]")
+                                    (0+ (regex "[^\[\{\('\"[:space:]]")))))))
     (defconst perl6-rx-constituents
       `((symbol perl6-rx-symbol 0 nil)
         (identifier . ,rx-identifier)
@@ -585,7 +586,7 @@ LIMIT can be used to bound the search."
     ;; low-level types (int, bool, complex, etc)
     (,(perl6-rx (symbol (or low-type high-type))) 0 'perl6-type)
     ;; adverbs like :foo and :!bar
-    (,(perl6-rx (group ":" (opt "!")) (group (symbol identifier)))
+    (,(perl6-rx (or bol (regex "[^:]")) (group ":" (opt "!")) (group (symbol 
identifier)))
      (1 'perl6-operator)
      (2 'perl6-string))
     ;; div, and, eq...