(U+4401): Use `->subsumptive'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R130-Meat.el

diff --git a/lisp/utf-2000/Ideograph-R130-Meat.el b/lisp/utf-2000/Ideograph-R130-Meat.el
index 2d2fdba..b283500 100644 (file)
--- a/lisp/utf-2000/Ideograph-R130-Meat.el
+++ b/lisp/utf-2000/Ideograph-R130-Meat.el
@@ -308,8 +308,9 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
        (=ucs               . #x2FF1)   ; ⿱
        )
-       ((=ucs@jis          . #x516B)   ; &AJ1-03392;
-       (=adobe-japan1-0    . 03392)    ; &AJ1-03392;
+       ((=ucs@jis          . #x516B)   ; &MJ007273;
+       (=ucs@ks            . #x516B)   ; &MJ007273;
+       (=mj                . 007273)   ; &MJ007273;
        )
        ((=big5-cdp         . #x8958)   ; &CDP-8958;
        ))
@@ -321,8 +322,8 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
        (=ucs               . #x2FF1)   ; ⿱
        )
-       ((=ucs@unicode      . #x516B)   ; &AJ1-20079;
-       (=adobe-japan1-5    . 20079)    ; &AJ1-20079;
+       ((=ucs@unicode      . #x516B)   ; &MJ007274;
+       (=mj                . 007274)   ; &MJ007274;
        )
        ((=big5-cdp         . #x8958)   ; &CDP-8958;
        ))
@@ -350,8 +351,9 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
       )
-     ((=ucs@jis                  . #x516B)     ; &AJ1-03392;
-      (=adobe-japan1-0   . 03392)      ; &AJ1-03392;
+     ((=ucs@jis                  . #x516B)     ; &MJ007273;
+      (=ucs@ks           . #x516B)     ; &MJ007273;
+      (=mj               . 007273)     ; &MJ007273;
       )
      ((=ucs              . #x6708)     ; 月
       ))
@@ -7151,15 +7153,13 @@
     (ideographic-strokes . 8)
     (total-strokes      . 12)
     (=ucs              . #x4401)       ; 䐁
-    (=daikanwa         . 29595)        ; &I-M-29595;
-    ))
-(define-char
-  '((=>ucs             . #x4401)       ; 䐁
-    (morohashi-daikanwa        29595 0 0)
-    (ideographic-radical . 130)        ; ⾁
-    (ideographic-strokes . 8)
-    (total-strokes      . 12)
-    (=cns11643-4       . #x3A4A)       ; &C4-3A4A; [26-42]
+    (->subsumptive
+     ((=daikanwa         . 29595)      ; &M-29595;
+      )
+     ((=ucs@unicode      . #x4401)     ; &UU+4401;
+      )
+     ((=cns11643-4       . #x3A4A)     ; &C4-3A4A; [26-42]
+      ))
     ))
 (define-char
   '((ideographic-radical . 130)        ; ⾁