[nongnu] elpa/raku-mode 155abadb6a 124/253: Improve highlighting of numbers

[ELPA Syncer]

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

    Improve highlighting of numbers
    
    It was erroneously highlighting "10." in "10..1" as a number.
    
    It was also not highlighting numbers with multiple underscores in them,
    like "1_000_000".
---
 perl6-font-lock.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index d828f21f08..eb715ee84a 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -230,11 +230,16 @@
         (number
          . ,(rx
              (group-n 1
-               (opt (1+ digit) (opt "_" (1+ digit)))
-               (opt ".")
-               (1+ digit))
+                (or (and (1+ digit)
+                         (0+ (and "_" (1+ digit)))
+                         (opt "."
+                              (1+ digit)
+                              (0+ (and "_" (1+ digit)))))
+                    (and "."
+                         (1+ digit)
+                         (0+ (and "_" (1+ digit))))))
              (opt (group-n 2 (any "Ee"))
-                  (group-n 3 (opt "-") (1+ digit) (opt "_" (1+ digit))))
+                  (group-n 3 (opt "-") (1+ digit) (0+ "_" (1+ digit))))
              (opt (group-n 4 "i"))))
         (base-number
          . ,(rx symbol-start
@@ -626,7 +631,7 @@ LIMIT can be used to bound the search."
        (opt "::"))
      0 'perl6-identifier)
     ;; numbers
-    (,(perl6-rx number)
+    (,(perl6-rx (or bol (regex "[^[:digit:]]")) number)
      (1 'perl6-number)
      (2 'perl6-number-addition nil t)
      (3 'perl6-number nil t)