From d73b86a90a34c5a59e365b30083911c3955e6a1a Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 26 Oct 2022 22:25:40 +0200 Subject: [PATCH] Fix typo in textsec-restriction-level * lisp/international/textsec.el (textsec-restriction-level): * test/lisp/international/textsec-tests.el (test-restriction-level): Fix typo in symbol name `moderately-restrictive'. --- lisp/international/textsec.el | 2 +- test/lisp/international/textsec-tests.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el index 82eba1b5d51..f8ff89c314b 100644 --- a/lisp/international/textsec.el +++ b/lisp/international/textsec.el @@ -156,7 +156,7 @@ Levels are (in decreasing order of restrictiveness) `ascii-only', tibetan))) ;; The string is covered by Latin and any one other Recommended ;; script, except Cyrillic, Greek. - 'moderately-retrictive) + 'moderately-restrictive) ;; Fixme `minimally-restrictive' -- needs well-formedness criteria ;; and Identifier Profile. (t diff --git a/test/lisp/international/textsec-tests.el b/test/lisp/international/textsec-tests.el index 6b0773dc407..1f7fb97a6be 100644 --- a/test/lisp/international/textsec-tests.el +++ b/test/lisp/international/textsec-tests.el @@ -77,7 +77,7 @@ (should (eq (textsec-restriction-level "切foo") 'highly-restrictive)) (should (eq (textsec-restriction-level "հfoo") - 'moderately-retrictive)) + 'moderately-restrictive)) (should (eq (textsec-restriction-level "Сirсlе") 'unrestricted))) -- 2.39.5