Add new function textsec-mixed-numbers-p

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

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index 35da871907b662ac386ee992175c1b62acadca80..340468828cae8c85fc3acb2eccbd4656153d446f 100644 (file)
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -152,6 +152,21 @@ Levels are (in order of restrictiveness) `ascii-only',
    (t
     'unrestricted))))
 
+(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))
+
 (provide 'textsec)
 
 ;;; textsec.el ends here

diff --git a/test/lisp/international/textsec-tests.el b/test/lisp/international/textsec-tests.el
index 7c56229e983aaa40e5cf253cd345d3005c0e63d6..3738545e0734cc53113f0f8f8cf010d0f65c6bf3 100644 (file)
--- a/test/lisp/international/textsec-tests.el
+++ b/test/lisp/international/textsec-tests.el
@@ -81,4 +81,9 @@
   (should (eq (textsec-restriction-level "Сirсlе")
               'unrestricted)))
 
+(ert-deftest test-mixed-numbers ()
+  (should-not (textsec-mixed-numbers-p "foo"))
+  (should-not (textsec-mixed-numbers-p "8foo8"))
+  (should (textsec-mixed-numbers-p "8foo৪")))
+
 ;;; textsec-tests.el ends here