From a26ea233f4701312c829e8bf86eaa47449367e70 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 22 Aug 2024 12:57:10 +0900 Subject: [PATCH] (A-compU+2A7FD): Add `ideographic-structure'. (U+2A7FD-itaiji-004): New character; use `<-denotational' for A-compU+2A7FD. --- lisp/utf-2000/Ideograph-R025-Divination.el | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el index 7bcb72f..d5ac1fa 100644 --- a/lisp/utf-2000/Ideograph-R025-Divination.el +++ b/lisp/utf-2000/Ideograph-R025-Divination.el @@ -433,9 +433,36 @@ '((ideographic-radical . 25) ; ⼘ (ideographic-strokes . 2) (total-strokes . 4) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((name . "CJK RADICAL DIVINATION") + (=ucs . #x2E8A) ; ⺊ + ) + ((=>ucs@component . #x4E86) ; &A-compU+4E86; + )) (=>ucs@component . #x2A7FD) ; &A-compU+2A7FD; )) (define-char + '((<-denotational + ((=>ucs@component . #x2A7FD) ; &A-compU+2A7FD; + )) + (ideographic-radical . 25) ; ⼘ + (ideographic-strokes . 2) + (total-strokes . 4) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((name . "CJK RADICAL DIVINATION") + (=ucs . #x2E8A) ; ⺊ + ) + ((=ucs . #x2010E) ; 𠄎 + )) + (=ucs-itaiji-004 . #x2A7FD) ; &U-i004+2A7FD; + )) +(define-char '((ideographic-radical . 25) ; ⼘ (ideographic-strokes . 2) (total-strokes . 4) -- 1.7.10.4