Function: textsec-covering-scripts
textsec-covering-scripts is a byte-compiled function defined in
textsec.el.gz.
Signature
(textsec-covering-scripts STRING)
Documentation
Return a minimal list of scripts used by characters in STRING.
Note that a string may have several different minimal cover sets. The return value is a list of script symbols. The script property of characters is defined by the Unicode Standard Annex 24 (UAX#24).
Source Code
;; Defined in /usr/src/emacs/lisp/international/textsec.el.gz
(defun textsec-covering-scripts (string)
"Return a minimal list of scripts used by characters in STRING.
Note that a string may have several different minimal cover sets.
The return value is a list of script symbols.
The script property of characters is defined by the Unicode Standard
Annex 24 (UAX#24)."
(let* ((scripts (textsec-scripts string))
(set (car scripts)))
(dolist (s scripts)
(setq set (seq-union set (seq-difference s set))))
(sort (delq 'common (delq 'inherited set)) #'string<)))