From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 17 May 2024 09:34:40 +0000 (+0900)
Subject: (char-db-make-char-spec): Don't add `name' into char-spec of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c5abc108bdf6d4c44019cc4fa6bf50a6f9c5d2f4;p=chise%2Fxemacs-chise.git

(char-db-make-char-spec): Don't add `name' into char-spec of
Variation-Selectors of IVS.
---

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*))