mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add textsec-restriction-level function

Browse source 
* lisp/international/textsec.el (textsec-restriction-level): New
function.
This commit is contained in:
Lars Ingebrigtsen 2022-01-17 16:24:17 +01:00
parent 523a96a99e
commit a1ffee1e82
2 changed files with 64 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/lisp/international/textsec-tests.el
View file

@ -69,4 +69,16 @@
(should (equal (textsec-covering-scripts "〆切")
'(han))))
(ert-deftest test-restriction-level ()
(should (eq (textsec-restriction-level "foo")
'ascii-only))
(should (eq (textsec-restriction-level "C𝗂𝗋𝖼𝗅𝖾")
'single-script))
(should (eq (textsec-restriction-level "切foo")
'highly-restrictive))
(should (eq (textsec-restriction-level "հfoo")
'moderately-retrictive))
(should (eq (textsec-restriction-level "Сirсlе")
'unrestricted)))
;;; textsec-tests.el ends here