procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Doc fixes in textsec.el

Browse source 
* lisp/international/textsec.el (textsec-scripts)
(textsec-single-script-p, textsec-covering-scripts): Clarify "script".
This commit is contained in:
Eli Zaretskii 2022-01-17 19:15:30 +02:00
parent fd17eb67c0
commit ef1f5dfe2b
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/international/textsec.el
View file

@ -38,13 +38,15 @@
(require 'uni-scripts))
(defun textsec-scripts (string)
"Return a list of scripts used in STRING."
"Return a list of Unicode scripts used in STRING.
The scripts returned by this function use the Unicode Script property
as defined by the Unicode Standard Annex 24 (UAX#24)."
(seq-map (lambda (char)
(elt textsec--char-scripts char))
string))
(defun textsec-single-script-p (string)
"Return non-nil if STRING is all in a single script.
"Return non-nil if STRING is all in a single Unicode script.
Note that the concept of \"single script\" used by this function
isn't obvious -- some mixtures of scripts count as a \"single
@ -52,7 +54,8 @@ script\". See
https://www.unicode.org/reports/tr39/#Mixed_Script_Detection
for details."
for details. The Unicode scripts are as defined by the
Unicode Standard Annex 24 (UAX#24)."
(let ((scripts (mapcar
(lambda (s)
(append s
@ -90,7 +93,8 @@ for details."
(defun textsec-covering-scripts (string)
"Return a minimal list of scripts used in STRING.
Not that a string may have several different minimal cover sets."
Not that a string may have several different minimal cover sets.
The scripts are as defined by the Unicode Standard Annex 24 (UAX#24)."
(let* ((scripts (textsec-scripts string))
(set (car scripts)))
(dolist (s scripts)