[nongnu] elpa/evil-numbers cc930fb6c4 079/145: Cleanup: use 'rx' for number search regex

[ELPA Syncer]

branch: elpa/evil-numbers
commit cc930fb6c4830364d8173f799c6bfae384dcf191
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: use 'rx' for number search regex
---
 evil-numbers.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/evil-numbers.el b/evil-numbers.el
index 54299b7ade..0d1dd99387 100644
--- a/evil-numbers.el
+++ b/evil-numbers.el
@@ -147,7 +147,16 @@ number with a + sign."
              (lambda (f) (funcall f beg end)))
            (lambda (beg end)
              (evil-with-restriction beg end
-               (while (re-search-forward 
"\\(?:0\\(?:[Bb][01]+\\|[Oo][0-7]+\\|[Xx][0-9A-Fa-f]+\\)\\|[+-]?[0-9]+\\|[⁻⁺]?[⁰¹²³⁴⁵⁶⁷⁸⁹]\\|[₋₊]?[₀₁₂₃₄₅₆₇₈₉]\\)"
 nil t)
+               (while (re-search-forward
+                       (rx
+                        (or (and "0"
+                                 (or (and (in "Bb") (any "0-1"))
+                                     (and (in "Oo") (any "0-7"))
+                                     (and (in "Xx") xdigit)))
+                            (and (? (in "+-")) (any "0-9"))
+                            (and (? (in "⁺⁻")) (in "⁰¹²³⁴⁵⁶⁷⁸⁹"))
+                            (and (? (in "₊₋")) (in "₀₁₂₃₄₅₆₇₈₉"))))
+                       nil t)
                  ;; Backward char, to cancel out the forward-char below. We 
need
                  ;; this, as `re-search-forwards' puts us behind the match.
                  (backward-char)