diff options
| author | Juri Linkov <juri@linkov.net> | 2021-05-25 23:55:13 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-05-25 23:55:13 +0300 |
| commit | f4dc646e0d7fb673f3149836bb7299fba9539e80 (patch) | |
| tree | 283430514dab7f1b914ef6e95abe774f0713ed9c /lisp/international/mule-cmds.el | |
| parent | 5c45e8b65b3555df2fb99506a4d4ff95276375ea (diff) | |
| download | emacs-f4dc646e0d7fb673f3149836bb7299fba9539e80.tar.gz | |
* lisp/international/mule-cmds.el (mule--ucs-names-group): Better char check.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 432ca295d64..55accf5beee 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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) |