New function `puny-highly-restrictive-domain-p'

* lisp/net/puny.el (puny-highly-restrictive-string-p): Rename.
(puny-highly-restrictive-domain-p): New function.
parent d7f24b86
......@@ -193,7 +193,12 @@ For instance \"xn--bcher-kva\" => \"bücher\"."
;; http://www.unicode.org/reports/tr39/#Restriction_Level_Detection
;; http://www.unicode.org/reports/tr31/#Table_Candidate_Characters_for_Inclusion_in_Identifiers
(defun puny-highly-restrictive-p (string)
(defun puny-highly-restrictive-string-p (string)
"Say whether STRING is \"highly restrictive\" in the Unicode IDNA sense.
See http://www.unicode.org/reports/tr39/#Restriction_Level_Detection
for details. The main idea is that if you're mixing
scripts (like latin and cyrillic), you may confuse the user by
using homographs."
(let ((scripts
(delq
t
......@@ -233,6 +238,11 @@ For instance \"xn--bcher-kva\" => \"bücher\"."
(latin han bopomofo)
(latin han hangul)))))))
(defun puny-highly-restrictive-domain-p (domain)
"Say whether DOMAIN is \"highly restrictive\" in the Unicode IDNA sense.
See `puny-highly-restrictive-string-p' for further details."
(seq-every-p 'puny-highly-restrictive-string-p (split-string domain "[.]")))
(provide 'puny)
;;; puny.el ends here
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment