From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 3 Feb 2018 04:08:24 +0000 (+0900)
Subject: (BC-8BC3): Use IWDS1-0020 instead of BC-88F0 in
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9d1673f1ebc77c6a7aaab56ca924a63e64fc0dc8;p=chise%2Fxemacs-chise.git

(BC-8BC3): Use IWDS1-0020 instead of BC-88F0 in
`ideographic-structure'; unify CB12122.
(G-GT-09333): New glyph node; use `<-subsumptive' for BC-8BC3.
(g2-GT-09333): Use G-GT-09333 instead of BC-8BC3 as its mother.
(G-BC-8BC3): New glyph node; use `<-subsumptive' for BC-8BC3.
(g2-BC-8BC3): Use G-8BC3 instead of BC-8BC3 as its mother.
---

diff --git a/lisp/utf-2000/Ideograph-R041-Inch.el b/lisp/utf-2000/Ideograph-R041-Inch.el
index ec31271..02a51d0 100644
--- a/lisp/utf-2000/Ideograph-R041-Inch.el
+++ b/lisp/utf-2000/Ideograph-R041-Inch.el
@@ -609,7 +609,7 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=big5-cdp	  . #x88F0)	; &CDP-88F0;
+     ((=>iwds-1		  .  0020)	; &IWDS1-020;
       )
      ((=ucs		  . #x5BF8)	; 寸
       ))
@@ -617,27 +617,38 @@
     (=gt		. 09333)	; &I-GT-09333;
     (=gt-k		. 02773)	; &I-GT-K02773;
     (=gt-pj-9		. #x3452)	; &I-GT-09333; [20-50]
+    (=cbeta		. 12122)	; &I-CB12122;
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((==gt-k		    . 00758)	; &g2-GT-K00758;
+       ((=big5-cdp	    . #x8B5E)	; &CDP-8B5E;
 	)
        ((=ucs		    . #x5BF8)	; 寸
 	))
-      (==gt		  . 09333)	; &g2-GT-09333;
-      (==gt-k		  . 02773)	; &g2-GT-09333;
+      (=>>gt		  . 09333)	; &G-GT-09333;
+      (=>>gt-k		  . 02773)	; &G-GT-09333;
+      (=>>cbeta		  . 12122)	; &G-GT-09333;
+      (->subsumptive
+       ((==gt		    . 09333)	; &g2-GT-09333;
+	(==gt-k		    . 02773)	; &g2-GT-09333;
+	)
+       ((==cbeta	    . 12122)	; &g2-CB12122;
+	))
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((==big5-cdp	    . #x88F0)	; &g2-CDP-88F0;
+       ((=big5-cdp	    . #x88F0)	; &CDP-88F0;
 	)
        ((=ucs		    . #x5BF8)	; 寸
 	))
-      (==big5-cdp	  . #x8BC3)	; &g2-CDP-8BC3;
+      (=>>big5-cdp	  . #x8BC3)	; &G-CDP-8BC3;
+      (->subsumptive
+       ((==big5-cdp	    . #x8BC3)	; &g2-CDP-8BC3;
+	))
       ))
     ))
 (define-char