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

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 432ca295d64d2f3247c376311035743d8a0b8d38..55accf5beee86aba5a945756f81e9597121fbd2e 100644 (file)
--- 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)