From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 21 Nov 2023 03:29:23 +0000 (+0900)
Subject: (char-ucs-chars): Allow undefined UCS characters; don't allow
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a6d1efd43a041b53ce81667a68f7b8d8944f2ca3;p=chise%2Fxemacs-chise.git

(char-ucs-chars): Allow undefined UCS characters; don't allow
compatibility characters.
---

diff --git a/lisp/utf-2000/chise-subr.el b/lisp/utf-2000/chise-subr.el
index 146b84a..1b8f413 100644
--- a/lisp/utf-2000/chise-subr.el
+++ b/lisp/utf-2000/chise-subr.el
@@ -243,8 +243,9 @@
 (defun char-ucs-chars (character)
   "Return list of UCS abstract characters unified by CHARACTER."
   (let (ucs dest)
-    (if (and (setq ucs (encode-char character '=ucs 'defined-only))
-	     (not (and (<= #x2E80 ucs)(<= ucs #x2EF3))))
+    (if (and (setq ucs (encode-char character '=ucs))
+	     (not (and (<= #x2E80 ucs)(<= ucs #x2EF3)))
+	     (null (get-char-attribute character '=>ucs*)))
 	(setq dest (list character)))
     (dolist (c (mapcan #'char-ucs-chars
 		       (get-char-attribute character '->subsumptive)))