From 9f902eb808b8c493f99ccf869fb3eb641ab96e7c Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 17 Jan 2022 18:01:59 +0100
Subject: [PATCH] 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 340468828ca..a13d500e082 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)
 
-- 
2.39.2