From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 18 Nov 2023 11:37:19 +0000 (+0900)
Subject: (char-ucs-chars): New function.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9535726505d493c51b33672564fd512aad8c9c33;p=chise%2Fxemacs-chise.git

(char-ucs-chars): New function.
---

diff --git a/lisp/utf-2000/chise-subr.el b/lisp/utf-2000/chise-subr.el
index 90c6e9c..f8827c4 100644
--- a/lisp/utf-2000/chise-subr.el
+++ b/lisp/utf-2000/chise-subr.el
@@ -240,6 +240,26 @@
 ;;;
 
 ;;;###autoload
+(defun char-ucs-chars (character)
+  "Return list of UCS abstract characters unified by CHARACTER."
+  (let (ret)
+    (union
+     (if (setq ret (encode-char character '=ucs 'defined-only))
+	 (list character))
+     (if (or (encode-char character '=>ucs@component 'defined-only)
+	     (encode-char character '=>ucs@iwds-1 'defined-only)
+	     (encode-char character '=>iwds-1 'defined-only))
+	 (union
+	  (mapcan #'char-ucs-chars
+		  (get-char-attribute character '->subsumptive))
+	  (union
+	   (mapcan #'char-ucs-chars
+		   (get-char-attribute character '->denotational))
+	   (mapcan #'char-ucs-chars
+		   (get-char-attribute character '->denotational@component))))))))
+
+
+;;;###autoload
 (defun map-char-family (function char &optional ignore-sisters)
   (let ((rest (list char))
 	ret checked)