From a6d1efd43a041b53ce81667a68f7b8d8944f2ca3 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 21 Nov 2023 12:29:23 +0900 Subject: [PATCH] (char-ucs-chars): Allow undefined UCS characters; don't allow compatibility characters. --- lisp/utf-2000/chise-subr.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4