emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 50ddfb2428: Make textsec-mixed-numbers-p actually work


From: Lars Ingebrigtsen
Subject: master 50ddfb2428: Make textsec-mixed-numbers-p actually work
Date: Wed, 19 Jan 2022 12:50:57 -0500 (EST)

branch: master
commit 50ddfb2428496d7f5b8f37d3345fb2fdb88bb6ea
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make textsec-mixed-numbers-p actually work
    
    * lisp/international/textsec.el (textsec-mixed-numbers-p): Fix the
    test.
---
 lisp/international/textsec.el            | 3 ++-
 test/lisp/international/textsec-tests.el | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index 62885ae15d..bf90afb7c0 100644
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -169,7 +169,8 @@ Levels are (in decreasing order of restrictiveness) 
`ascii-only',
     (seq-uniq
      (mapcar
       (lambda (char)
-        (get-char-code-property char 'numeric-value))
+        ;; Compare zeros in the respective decimal systems.
+        (- char (get-char-code-property char 'numeric-value)))
       (seq-filter (lambda (char)
                     ;; We're selecting the characters that
                     ;; have a numeric property.
diff --git a/test/lisp/international/textsec-tests.el 
b/test/lisp/international/textsec-tests.el
index 416490aa08..acd7797150 100644
--- a/test/lisp/international/textsec-tests.el
+++ b/test/lisp/international/textsec-tests.el
@@ -84,6 +84,7 @@
 (ert-deftest test-mixed-numbers ()
   (should-not (textsec-mixed-numbers-p "foo"))
   (should-not (textsec-mixed-numbers-p "8foo8"))
+  (should-not (textsec-mixed-numbers-p "foo20@foo.org"))
   (should (textsec-mixed-numbers-p "8foo৪")))
 
 (ert-deftest test-resolved ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]