From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 29 Dec 2015 11:40:55 +0000 (+0100)
Subject: Add a new function to say whether a string is restrictive
X-Git-Tag: emacs-26.0.90~2830
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d181366dc39620eb0f249fc3f1d58b6199b9e44d;p=emacs.git

Add a new function to say whether a string is restrictive

* puny.el (puny-highly-restrictive-p): New function.
---

diff --git a/lisp/net/puny.el b/lisp/net/puny.el
index d96c6c22196..08da51b587f 100644
--- a/lisp/net/puny.el
+++ b/lisp/net/puny.el
@@ -190,6 +190,26 @@ For instance \"xn--bcher-kva\" => \"bücher\"."
         (cl-incf i)))
     (buffer-string)))
 
+;; http://www.unicode.org/reports/tr39/#Restriction_Level_Detection
+
+(defun puny-highly-restrictive-p (string)
+  (let ((scripts
+         (seq-uniq
+          (seq-map (lambda (char)
+                     (aref char-script-table char))
+                   string))))
+    (or
+     ;; Every character uses the same script.
+     (= (length scripts) 1)
+     (seq-some 'identity
+               (mapcar (lambda (list)
+                         (seq-every-p (lambda (script)
+                                        (memq script list))
+                                      scripts))
+                       '((latin han hiragana kana)
+                         (latin han bopomofo)
+                         (latin han hangul)))))))
+
 (provide 'puny)
 
 ;;; puny.el ends here