(JU+4343): Use IWDS1-0020 instead of BC-88F0 in

`ideographic-structure'.
(G-JU+4343): New glyph; use `<-subsumptive' for JU+4343.
(g2-JU+4343): Use G-JU+4343 instead of JU+4343 as the mother.
(G-CU+4343): New glyph; use `<-subsumptive' for JU+4343.
(g2-CU+4343): Use G-CU+4343 instead of JU+4343 as the mother.

diff --git a/lisp/utf-2000/Ideograph-R121-Jar.el b/lisp/utf-2000/Ideograph-R121-Jar.el
index 4b33514..579d91f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R121-Jar.el
+++ b/lisp/utf-2000/Ideograph-R121-Jar.el
@@ -304,7 +304,7 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
       )
-     ((=big5-cdp         . #x88F0)     ; &CDP-88F0;
+     ((=>iwds-1                  .  0020)      ; &IWDS1-020;
       )
      ((=ucs              . #x7F36)     ; 缶
       ))
@@ -318,29 +318,57 @@
     (=daikanwa         . 28120)        ; &I-M-28120;
     (=cbeta            . 08559)        ; &I-CB08559;
     (->subsumptive
-     ((==ucs@jis         . #x4343)     ; &g2-JX2-7461;
-      (==jis-x0213-2     . #x7461)     ; &g2-JX2-7461; [84-65]
-      (==gt-k            . 07290)      ; &g2-JX2-7461;
-      (==daikanwa        . 28120)      ; &g2-JX2-7461;
-      (==cbeta           . 08559)      ; &g2-JX2-7461;
-      (->subsumptive
-       ((===daikanwa       . 28120)    ; &R-M-28120;
-       )
-       ((===ucs@jis        . 17219)
-       (===jis-x0213-2     . #x7461)   ; &R-JX2-7461; [84-65]
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
        )
-       ((===gt-k           . 07290)    ; &R-GT-K07290;
+       ((=big5-cdp         . #x8B5E)   ; &CDP-8B5E;
        )
-       ((===cbeta          . 08559)    ; &R-CB08559;
+       ((=ucs              . #x7F36)   ; 缶
        ))
-      )
-     ((==ucs@cns         . #x4343)     ; &g2-CDP-8CDA;
-      (==cns11643-4      . #x2F29)     ; &g2-CDP-8CDA; [15-09]
-      (==big5-cdp        . #x8CDA)     ; &g2-CDP-8CDA;
+      (=>>ucs@jis        . #x4343)     ; &G-JX2-7461;
+      (=>>jis-x0213-2    . #x7461)     ; &G-JX2-7461; [84-65]
+      (=>>gt-k           . 07290)      ; &G-JX2-7461;
+      (=>>daikanwa       . 28120)      ; &G-JX2-7461;
+      (=>>cbeta                  . 08559)      ; &G-JX2-7461;
       (->subsumptive
-       ((===cns11643-4     . #x2F29)   ; &R-C4-2F29; [15-09]
+       ((==ucs@jis         . #x4343)   ; &g2-JX2-7461;
+       (==jis-x0213-2      . #x7461)   ; &g2-JX2-7461; [84-65]
+       (==gt-k             . 07290)    ; &g2-JX2-7461;
+       (==daikanwa         . 28120)    ; &g2-JX2-7461;
+       (==cbeta            . 08559)    ; &g2-JX2-7461;
+       (->subsumptive
+        ((===daikanwa        . 28120)  ; &R-M-28120;
+         )
+        ((===ucs@jis         . 17219)
+         (===jis-x0213-2     . #x7461) ; &R-JX2-7461; [84-65]
+         )
+        ((===gt-k            . 07290)  ; &R-GT-K07290;
+         )
+        ((===cbeta           . 08559)  ; &R-CB08559;
+         ))
+       ))
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=big5-cdp         . #x88F0)   ; &CDP-88F0;
        )
-       ((===big5-cdp       . #x8CDA)   ; &R-CDP-8CDA;
+       ((=ucs              . #x7F36)   ; 缶
+       ))
+      (=>>ucs@cns        . #x4343)     ; &G-C4-2F29;
+      (=>>cns11643-4     . #x2F29)     ; &G-C4-2F29; [15-09]
+      (=>>big5-cdp       . #x8CDA)     ; &G-C4-2F29;
+      (->subsumptive
+       ((==ucs@cns         . #x4343)   ; &g2-CDP-8CDA;
+       (==cns11643-4       . #x2F29)   ; &g2-CDP-8CDA; [15-09]
+       (==big5-cdp         . #x8CDA)   ; &g2-CDP-8CDA;
+       (->subsumptive
+        ((===cns11643-4      . #x2F29) ; &R-C4-2F29; [15-09]
+         )
+        ((===big5-cdp        . #x8CDA) ; &R-CDP-8CDA;
+         ))
        ))
       ))
     ))