From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 22 Jun 2023 16:49:37 +0000 (+0900)
Subject: (G-BC-8851): New glyph node to subsume A2-BC-8851; use `<-subsumptive'
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f76cc323726021118dcb8c9b5d0187646d65804f;p=chise%2Fxemacs-chise.git

(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.
---

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)	; &GT-K00304;
+	)
+       ((=gt-k		    . 00118)	; &GT-K00118;
+	))
+      (=big5-cdp-itaiji-004 . #x8851)	; &CDP-i004-8851;
       ))
     ))
 (define-char