master 9f902eb808: Change textsec-mixed-numbers-p to use recommended algorithm

[Lars Ingebrigtsen]

branch: master
commit 9f902eb808b8c493f99ccf869fb3eb641ab96e7c
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Change textsec-mixed-numbers-p to use recommended algorithm
    
    * lisp/international/textsec.el (textsec-mixed-numbers-p): New
    function.
---
 lisp/international/textsec.el | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index 340468828c..a13d500e08 100644
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -154,18 +154,19 @@ Levels are (in order of restrictiveness) `ascii-only',
 
 (defun textsec-mixed-numbers-p (string)
   "Return non-nil if there are numbers from different decimal systems in 
STRING."
-  (> (length
-      (seq-uniq
-       (textsec-scripts
-        (apply #'string
-               (seq-filter (lambda (char)
-                             ;; We're selecting the characters that
-                             ;; have a numeric property.
-                             (eq (get-char-code-property char 
'general-category)
-                                 'Nd))
-                           string)))
-       #'equal))
-     1))
+  (>
+   (length
+    (seq-uniq
+     (mapcar
+      (lambda (char)
+        (get-char-code-property char 'numeric-value))
+      (seq-filter (lambda (char)
+                    ;; We're selecting the characters that
+                    ;; have a numeric property.
+                    (eq (get-char-code-property char 'general-category)
+                        'Nd))
+                  string))))
+   1))
 
 (provide 'textsec)