(JX2-2457): Add `->subsumptive' to add representative

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R177-Leather.el

diff --git a/lisp/utf-2000/Ideograph-R177-Leather.el b/lisp/utf-2000/Ideograph-R177-Leather.el
index 74490fe..0f49d6f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R177-Leather.el
+++ b/lisp/utf-2000/Ideograph-R177-Leather.el
@@ -3304,7 +3304,8 @@
       (->subsumptive
        ((==ucs@iso         . #x29309)  ; &R-U-00029309;
        )
-       ((==cns11643-7      . #x4B5A)   ; &R-C7-4B5A; [43-58]
+       ((==ucs@cns         . #x29309)  ; &R-CU+29309;
+       (==cns11643-7       . #x4B5A)   ; &R-CU+29309; [43-58]
        ))
       ))
     ))
@@ -3697,7 +3698,8 @@
      ((=ucs@iso                  . #x29339)    ; &C7-513E;
       (=cns11643-7       . #x513E)     ; &C7-513E; [49-30]
       (->subsumptive
-       ((==cns11643-7      . #x513E)   ; &R-C7-513E; [49-30]
+       ((==ucs@cns         . #x29339)  ; &R-CU+29339;
+       (==cns11643-7       . #x513E)   ; &R-CU+29339; [49-30]
        )
        ((==ucs@iso         . #x29339)  ; &R-U-00029339;
        ))
@@ -3714,7 +3716,8 @@
      ((=ucs@iso                  . #x2933A)    ; &C7-5143;
       (=cns11643-7       . #x5143)     ; &C7-5143; [49-35]
       (->subsumptive
-       ((==cns11643-7      . #x5143)   ; &R-C7-5143; [49-35]
+       ((==ucs@cns         . #x2933A)  ; &R-CU+2933A;
+       (==cns11643-7       . #x5143)   ; &R-CU+2933A; [49-35]
        )
        ((==ucs@iso         . #x2933A)  ; &R-U-0002933A;
        ))
@@ -4569,7 +4572,8 @@
     (->subsumptive
      ((==ucs@iso         . #x29371)    ; &R-U-00029371;
       )
-     ((==cns11643-7      . #x5D40)     ; &R-C7-5D40; [61-32]
+     ((==ucs@cns         . #x29371)    ; &R-CU+29371;
+      (==cns11643-7      . #x5D40)     ; &R-CU+29371; [61-32]
       ))
     ))
 (define-char