[elpa] externals/num3-mode a663af5700 2/4: Compute compile-time constants at compile-time

[Michał Nazarewicz]

branch: externals/num3-mode
commit a663af570014d715a04d3e0ff14d65d7973ead2d
Author: Michal Nazarewicz <mina86@mina86.com>
Commit: Michal Nazarewicz <mina86@mina86.com>

    Compute compile-time constants at compile-time
    
    * num3-mode.el (num3--number-re): use ‘evel-when-compile’
---
 num3-mode.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/num3-mode.el b/num3-mode.el
index 47c6da5860..2288a57e36 100644
--- a/num3-mode.el
+++ b/num3-mode.el
@@ -1,6 +1,6 @@
 ;;; num3-mode.el --- highlight groups of digits in long numbers  -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2012-2017 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2020 Free Software Foundation, Inc.
 
 ;; Author: Felix Lee <felix8a@gmail.com>, Michal Nazarewicz <mina86@mina86.com>
 ;; Maintainer: Michal Nazarewicz <mina86@mina86.com>
@@ -108,12 +108,14 @@ the (place where) decimal point (would be) is."
   ;; group them both in four-digit groups.  There’s no explicit support for
   ;; octal numbers because we just use logic for a decimal number, i.e. the 
same
   ;; grouping.
-  (concat "[0#][xX]\\([[:xdigit:]]+\\)"       ; 1 = hexadecimal
-       "\\|[0#][bB]\\(?1:[01]+\\)"            ; 1 = binary
-       "\\|\\(?1:\\b\\(?:[0-9]+[a-fA-F]\\|"   ; 1 = hexadecimal w/o prefix
-                 "[a-fA-F]+[0-9]\\)[[:xdigit:]]*\\b\\)"
-       "\\|\\([0-9]+\\)"                      ; 2 = decimal
-       "\\|\\.\\([0-9]+\\)"))                 ; 3 = fraction
+  (eval-when-compile
+    (concat
+        "[0#][xX]\\([[:xdigit:]]+\\)"       ; 1 = hexadecimal
+     "\\|[0#][bB]\\(?1:[01]+\\)"            ; 1 = binary
+     "\\|\\(?1:\\b\\(?:[0-9]+[a-fA-F]\\|"   ; 1 = hexadecimal w/o prefix
+               "[a-fA-F]+[0-9]\\)[[:xdigit:]]*\\b\\)"
+     "\\|\\([0-9]+\\)"                      ; 2 = decimal
+     "\\|\\.\\([0-9]+\\)")))                ; 3 = fraction
 
 (defun num3--matcher (lim)
   "Function used as a font-lock-keywoard handler used in `num3-mode'.