From c5abc108bdf6d4c44019cc4fa6bf50a6f9c5d2f4 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 17 May 2024 18:34:40 +0900 Subject: [PATCH] (char-db-make-char-spec): Don't add `name' into char-spec of Variation-Selectors of IVS. --- lisp/utf-2000/char-db-util.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 87d11f6..eb5b318 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -451,7 +451,8 @@ (cond ((and (setq ret (encode-char char '=ucs 'defined-only)) (not (and (<= #xE000 ret)(<= ret #xF8FF)))) (setq char-spec (list (cons '=ucs ret))) - (cond ((setq ret (get-char-attribute char 'name)) + (cond ((and (not (and (<= #xE0100 ret)(<= ret #xE01EF))) + (setq ret (get-char-attribute char 'name))) (setq char-spec (cons (cons 'name ret) char-spec)) ) ((setq ret (get-char-attribute char 'name*)) -- 1.7.10.4