From f76cc323726021118dcb8c9b5d0187646d65804f Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 23 Jun 2023 01:49:37 +0900 Subject: [PATCH] (G-BC-8851): New glyph node to subsume A2-BC-8851; use `<-subsumptive' for BC-8851. (BC-8851-itaiji-004): New character; use `<-subsumptive' for BC-8851. --- lisp/utf-2000/Ideograph-R083-Clan.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/Ideograph-R083-Clan.el b/lisp/utf-2000/Ideograph-R083-Clan.el index 329ff5c..22ea918 100644 --- a/lisp/utf-2000/Ideograph-R083-Clan.el +++ b/lisp/utf-2000/Ideograph-R083-Clan.el @@ -383,7 +383,20 @@ (total-strokes . 5) (=big5-cdp . #x8851) ; &CDP-8851; (->subsumptive - ((==big5-cdp . #x8851) ; &g2-CDP-8851; + ((=>>big5-cdp . #x8851) ; &G-CDP-8851; + (->subsumptive + ((==big5-cdp . #x8851) ; &g2-CDP-8851; + )) + ) + ((ideographic-structure@apparent + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT") + (=ucs . #x2FF8) ; ⿸ + ) + ((=gt-k . 00304) ; >-K00304; + ) + ((=gt-k . 00118) ; >-K00118; + )) + (=big5-cdp-itaiji-004 . #x8851) ; &CDP-i004-8851; )) )) (define-char -- 1.7.10.4