From f4dc646e0d7fb673f3149836bb7299fba9539e80 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 25 May 2021 23:55:13 +0300 Subject: [PATCH] * 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 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) -- 2.39.5