[elpa] externals/compat 99d48709ad 2/4: Replace rx expression with its macroexpansion

[ELPA Syncer]

branch: externals/compat
commit 99d48709ad5540179afecc24d8b4cdb3d9e688ca
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Replace rx expression with its macroexpansion
    
    That way we avoid accidentally autoloading rx.
---
 compat-28.el | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/compat-28.el b/compat-28.el
index 0c399b4823..1b1d6de3d5 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -285,22 +285,23 @@ and BLUE, is normalized to have its value in [0,65535]."
        ;; [0] http://www.nic.funet.fi/pub/X11/X11R4/DOCS/color/Xcms.text
        ;; [1] 
https://gitlab.freedesktop.org/xorg/lib/libx11/-/blob/master/src/xcms/LRGB.c#L1392
        ((string-match
-         (rx bos "rgbi:" (* space)
-             (group (? (or "-" "+"))
-                    (or (: (+ digit) (? "." (* digit)))
-                        (: "." (+ digit)))
-                    (? "e" (? (or "-" "+")) (+ digit)))
-             "/" (* space)
-             (group (? (or "-" "+"))
-                    (or (: (+ digit) (? "." (* digit)))
-                        (: "." (+ digit)))
-                    (? "e" (? (or "-" "+")) (+ digit)))
-             "/" (* space)
-             (group (? (or "-" "+"))
-                    (or (: (+ digit) (? "." (* digit)))
-                        (: "." (+ digit)))
-                    (? "e" (? (or "-" "+")) (+ digit)))
-             eos)
+         ;; (rx bos "rgbi:" (* space)
+         ;;     (group (? (or "-" "+"))
+         ;;            (or (: (+ digit) (? "." (* digit)))
+         ;;                (: "." (+ digit)))
+         ;;            (? "e" (? (or "-" "+")) (+ digit)))
+         ;;     "/" (* space)
+         ;;     (group (? (or "-" "+"))
+         ;;            (or (: (+ digit) (? "." (* digit)))
+         ;;                (: "." (+ digit)))
+         ;;            (? "e" (? (or "-" "+")) (+ digit)))
+         ;;     "/" (* space)
+         ;;     (group (? (or "-" "+"))
+         ;;            (or (: (+ digit) (? "." (* digit)))
+         ;;                (: "." (+ digit)))
+         ;;            (? "e" (? (or "-" "+")) (+ digit)))
+         ;;     eos)
+         
"\\`rgbi:[[:space:]]*\\([+-]?\\(?:[[:digit:]]+\\(?:\\.[[:digit:]]*\\)?\\|\\.[[:digit:]]+\\)\\(?:e[+-]?[[:digit:]]+\\)?\\)/[[:space:]]*\\([+-]?\\(?:[[:digit:]]+\\(?:\\.[[:digit:]]*\\)?\\|\\.[[:digit:]]+\\)\\(?:e[+-]?[[:digit:]]+\\)?\\)/[[:space:]]*\\([+-]?\\(?:[[:digit:]]+\\(?:\\.[[:digit:]]*\\)?\\|\\.[[:digit:]]+\\)\\(?:e[+-]?[[:digit:]]+\\)?\\)\\'"
          spec)
         (let ((r (round (* (string-to-number (match-string 1 spec)) 65535)))
               (g (round (* (string-to-number (match-string 2 spec)) 65535)))