From 9535726505d493c51b33672564fd512aad8c9c33 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 18 Nov 2023 20:37:19 +0900 Subject: [PATCH] (char-ucs-chars): New function. --- lisp/utf-2000/chise-subr.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) 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) -- 1.7.10.4