From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 17 Jan 2022 17:01:59 +0000 (+0100)
Subject: Change textsec-mixed-numbers-p to use recommended algorithm
X-Git-Tag: emacs-29.0.90~2986
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f902eb808b8c493f99ccf869fb3eb641ab96e7c;p=emacs.git

Change textsec-mixed-numbers-p to use recommended algorithm

* lisp/international/textsec.el (textsec-mixed-numbers-p): New
function.
---

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)