From ea7ab87677c73029f5d608c4e9102cf37daa6c06 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Wed, 19 Jan 2022 22:32:07 +0900 Subject: [PATCH] (A-MJ057082): Unify A-CB09114. (MJ057082): Add strokes; add `ideographic-structure'. (CB09114): New character; use `<-subsumptive' for A-MJ057082. --- lisp/utf-2000/Ideograph-R020-Wrap.el | 31 +++++++++++++++++++++++++++++-- 1 file changed, 29 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R020-Wrap.el b/lisp/utf-2000/Ideograph-R020-Wrap.el index c508e2b..a7f61b5 100644 --- a/lisp/utf-2000/Ideograph-R020-Wrap.el +++ b/lisp/utf-2000/Ideograph-R020-Wrap.el @@ -2768,14 +2768,41 @@ ) ((=ucs . #x26222) ; 𦈢 )) - (=>mj . 057082) ; &A-MJ057082; + (=>mj . 057082) ; &A-CB09114; + (=>cbeta . 09114) ; &A-CB09114; (->subsumptive - ((=mj . 057082) ; &MJ057082; + ((ideographic-strokes . 6) + (total-strokes . 8) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT") + (=ucs . #x2FF9) ; ⿹ + ) + ((=ucs . #x52F9) ; 勹 + ) + ((=>>ucs@iso . #x26222) ; &G-CDP-8DD6; + (=>>daikanwa . 28109) ; &G-CDP-8DD6; + )) + (=mj . 057082) ; &MJ057082; (=koseki . 029330) ; &MJ057082; (->subsumptive ((==mj . 057082) ; &g2-MJ057082; (==koseki . 029330) ; &g2-MJ057082; )) + ) + ((ideographic-strokes . 7) + (total-strokes . 9) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT") + (=ucs . #x2FF9) ; ⿹ + ) + ((=ucs . #x52F9) ; 勹 + ) + ((=mj . 057891) ; &MJ057891; + )) + (=cbeta . 09114) ; &CB09114; + (->subsumptive + ((==cbeta . 09114) ; &g2-CB09114; + )) )) )) (define-char -- 1.7.10.4