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

[Juri Linkov]

branch: master
commit f4dc646e0d7fb673f3149836bb7299fba9539e80
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/international/mule-cmds.el (mule--ucs-names-group): Better char 
check.
---
 lisp/international/mule-cmds.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 432ca29..55accf5 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)