[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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 50ddfb2428: Make textsec-mixed-numbers-p actually work,
Lars Ingebrigtsen <=