From: MORIOKA Tomohiko Date: Thu, 27 Jul 2017 13:26:45 +0000 (+0900) Subject: (A-compU+37B7): New abstract node. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=00d10afef60c24724d2fff34f1f7e4a89e7e592f;p=chise%2Fxemacs-chise.git (A-compU+37B7): New abstract node. (U+37B7): Add `<-denotational@component' for A-compU+37B7; apply new conventions for glyph granularity. (MJ000836): Unify CB08147. --- diff --git a/lisp/utf-2000/Ideograph-R045-Sprout.el b/lisp/utf-2000/Ideograph-R045-Sprout.el index 9e0329c..71af728 100644 --- a/lisp/utf-2000/Ideograph-R045-Sprout.el +++ b/lisp/utf-2000/Ideograph-R045-Sprout.el @@ -499,6 +499,26 @@ '((ideographic-radical . 45) ; ⼬ (ideographic-strokes . 4) (total-strokes . 7) + (=>ucs@component . #x37B7) ; &A-compU+37B7; + )) +(define-char + '((<-denotational@component + ((=>ucs@component . #x37B7) ; &A-compU+37B7; + )) + (ideographic-radical . 45) ; ⼬ + (ideographic-strokes . 4) + (total-strokes . 7) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=>ucs@component . #x5C6E) ; &A-compU+5C6E; + (=>iwds-1 . 0096) ; &A-compU+5C6E; + ) + ((=ucs . #x738B) ; 王 + )) + (sound@ja/on/go "WAu") + (sound@ja/on/kan "kWAu") (=ucs . #x37B7) ; 㞷 )) (define-char @@ -516,12 +536,8 @@ ) ((=ucs . #x738B) ; 王 )) - (=ucs@unicode . #x37B7) ; &MJ000835; - (=ucs@JP/hanazono . nil) - (=mj . 000835) ; &MJ000835; - (=cns11643-4 . #x2376) ; &I-C4-2376; [03-86] - (=hanyo-denshi/ks . 088980) ; &MJ000835; - (=daikanwa . 07840) ; &I-M-07840; + (=+>ucs@unicode . #x37B7) ; &A-MJ000835; + (=>mj . 000835) ; &A-MJ000835; (->subsumptive ((ideographic-structure ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") @@ -529,26 +545,51 @@ ) ((=ucs . #x2F878) ; 屮 ) - ((==ucs@unicode . #x738B) ; &g2-AJ1-01318; - (==adobe-japan1-0 . 01318) ; &g2-AJ1-01318; + ((=ucs . #x738B) ; 王 + )) + (=ucs@unicode . #x37B7) ; &MJ000835; + (=ucs@JP/hanazono . nil) + (=mj . 000835) ; &MJ000835; + (=cns11643-4 . #x2376) ; &I-C4-2376; [03-86] + (=hanyo-denshi/ks . 088980) ; &MJ000835; + (=daikanwa . 07840) ; &I-M-07840; + (->ancient + ((=ucs@iso . #x21D0D) ; &C6-2A70; + (=cns11643-6 . #x2A70) ; &C6-2A70; [10-80] + (=daikanwa . 07844) ; &I-M-07844; )) - (==ucs@unicode . #x37B7) ; &g2-MJ000835; - (==ucs@JP/hanazono . nil) - (==mj . 000835) ; &g2-MJ000835; - (==cns11643-4 . #x2376) ; &g2-MJ000835; [03-86] - (==hanyo-denshi/ks . 088980) ; &g2-MJ000835; - (==daikanwa . 07840) ; &g2-MJ000835; + (->ancient*sources + jiyun daikanwa) (->subsumptive - ((===daikanwa . 07840) ; &R-M-07840; - ) - ((===hanyo-denshi/ks . 088980) ; &R-HD-KS-088980; - (=hanyo-denshi/ks/mf . #x22C2) ; &R-HD-KS-088980; - ) - ((===mj . 000835) ; &R-MJ000835; - ) - ((===cns11643-4 . #x2376) ; &R-C4-2376; [03-86] - ) - ((===ucs@unicode . #x37B7) ; &R-UU+37B7; + ((ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((==ucs@iso . #x2F878) ; &g2-AJ1-04658; + (==ucs@jis . #x5C6E) ; &g2-AJ1-04658; + (==adobe-japan1-0 . 04658) ; &g2-AJ1-04658; + ) + ((==ucs@unicode . #x738B) ; &g2-AJ1-01318; + (==adobe-japan1-0 . 01318) ; &g2-AJ1-01318; + )) + (==ucs@unicode . #x37B7) ; &g2-MJ000835; + (==ucs@JP/hanazono . nil) + (==mj . 000835) ; &g2-MJ000835; + (==cns11643-4 . #x2376) ; &g2-MJ000835; [03-86] + (==hanyo-denshi/ks . 088980) ; &g2-MJ000835; + (==daikanwa . 07840) ; &g2-MJ000835; + (->subsumptive + ((===daikanwa . 07840) ; &R-M-07840; + ) + ((===hanyo-denshi/ks . 088980) ; &R-HD-KS-088980; + (=hanyo-denshi/ks/mf . #x22C2) ; &R-HD-KS-088980; + ) + ((===mj . 000835) ; &R-MJ000835; + ) + ((===cns11643-4 . #x2376) ; &R-C4-2376; [03-86] + ) + ((===ucs@unicode . #x37B7) ; &R-UU+37B7; + )) )) ) ((ideographic-structure @@ -557,11 +598,14 @@ ) ((=ucs . #xFA3C) ; 屮 ) - ((==ucs@unicode . #x738B) ; &g2-AJ1-01318; - (==adobe-japan1-0 . 01318) ; &g2-AJ1-01318; + ((=ucs . #x738B) ; 王 + )) + (=ucs@gb . #x37B7) ; &GU+37B7; + (=ucs@JP/hanazono . nil) + (->subsumptive + ((==ucs@gb . #x37B7) ; &g2-GU+37B7; + (==ucs@JP/hanazono . nil) )) - (==ucs@gb . #x37B7) ; &g2-GU+37B7; - (==ucs@JP/hanazono . nil) )) )) (define-char @@ -581,11 +625,15 @@ )) (=ucs@JP/hanazono . #x37B7) ; &MJ000836; (=mj . 000836) ; &MJ000836; + (=cbeta . 08147) ; &I-CB08147; (->subsumptive ((==ucs@JP/hanazono . #x37B7) ; &g2-MJ000836; (==mj . 000836) ; &g2-MJ000836; + (==cbeta . 08147) ; &g2-MJ000836; (->subsumptive ((===mj . 000836) ; &R-MJ000836; + ) + ((===cbeta . 08147) ; &R-CB08147; )) )) ))