(g2-JU+8034): Unify g2-KU+8034; use `->subsumptive' to add

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R005-Second.el

diff --git a/lisp/utf-2000/Ideograph-R005-Second.el b/lisp/utf-2000/Ideograph-R005-Second.el
index 4a84682..b54a0ef 100644 (file)
--- a/lisp/utf-2000/Ideograph-R005-Second.el
+++ b/lisp/utf-2000/Ideograph-R005-Second.el
@@ -1147,6 +1147,7 @@
        ))
       (==ucs@cns         . #x8034)     ; &g2-AJ1-22250;
       (==ucs@jis         . #x8034)     ; &g2-AJ1-22250;
+      (==ucs@ks                  . #x8034)     ; &g2-AJ1-22250;
       (==adobe-japan1-6          . 22250)      ; &g2-AJ1-22250;
       (==jis-x0212       . #x555B)     ; &g2-AJ1-22250; [53-59]
       (==cns11643-2      . #x2473)     ; &g2-AJ1-22250; [04-83]
@@ -1155,10 +1156,29 @@
       (=gt-pj-6                  . #x3662)     ; &g2-AJ1-22250; [22-66]
       (==daikanwa        . 29001)      ; &g2-AJ1-22250;
       (==shinjigen       .  6375)      ; &g2-AJ1-22250;
+      (->subsumptive
+       ((===daikanwa       . 29001)    ; &R-M-29001;
+       )
+       ((===jis-x0212      . #x555B)   ; &R-JSP-555B; [53-59]
+       )
+       ((===adobe-japan1-6  . 22250)   ; &R-AJ1-22250;
+       )
+       ((===ucs@ks         . #x8034)   ; &R-KU+8034;
+       )
+       ((===cns11643-2     . #x2473)   ; &R-C2-2473; [04-83]
+       )
+       ((===gt             . 37567)    ; &R-GT-37567;
+       (===gt-k            . 02775)    ; &R-GT-37567;
+       ))
       )
      ((==ucs@unicode     . #x8034)     ; &GT-00250;
       (=gt               . 00250)      ; &GT-00250;
       (=gt-pj-11         . #x4B66)     ; &GT-00250; [43-70]
+      (->subsumptive
+       ((===ucs@unicode            . #x8034)   ; &R-UU+8034;
+       )
+       ((===gt             . 00250)    ; &R-GT-00250;
+       ))
       ))
     ))
 (define-char