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

* lisp/international/mule-cmds.el (mule--ucs-names-group): Better char check.

Browse source
This commit is contained in:
Juri Linkov 2021-05-25 23:55:13 +03:00
parent 5c45e8b65b
commit f4dc646e0d
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/international/mule-cmds.el
View file

@ -3107,7 +3107,8 @@ on encoding."
(defun mule--ucs-names-group (name transform)
(if transform
name
(let ((script (aref char-script-table (gethash name ucs-names))))
(let* ((char (gethash name ucs-names))
(script (and char (aref char-script-table char))))
(if script (symbol-name script) "ungrouped"))))
(defun char-from-name (string &optional ignore-case)