(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 40fe88d..b283500 100644 (file)
--- a/lisp/utf-2000/Ideograph-R130-Meat.el
+++ b/lisp/utf-2000/Ideograph-R130-Meat.el
@@ -124,7 +124,12 @@
       (<-original*sources
        shinjigen)
       (->formed@p=yi
-       ((=daikanwa         . 29951)    ; &M-29951;
+       ((=ucs@unicode      . #x81C6)   ; &GT-38705;
+       (=jis-x0208         . #x3232)   ; &GT-38705; [18-18]
+       (=gb2312            . #x525C)   ; &I-G0-525C; [50-60]
+       (=ks-x1001          . #x6566)   ; &I-K0-6566; [69-70]
+       (=jis-x0213-1       . #x3232)   ; &I-JX1-3232; [18-18]
+       (=daikanwa          . 29951)    ; &I-M-29951;
        ))
       (->formed@p=yi*sources
        shuowen daikanwa)
@@ -303,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;
        ))
@@ -316,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;
        ))
@@ -345,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)     ; 月
       ))
@@ -1819,20 +1826,23 @@
      ((=ucs@unicode      . #x80B2)     ; &GT-37901;
       (=jis-x0208        . #x3069)     ; &GT-37901; [16-73]
       (=gb2312           . #x537D)     ; &I-G0-537D; [51-93]
+      (=ks-x1001         . #x6B40)     ; &I-K0-6B40; [75-32]
       (=jis-x0213-1      . #x3069)     ; &I-JX1-3069; [16-73]
       (=gt               . 37901)      ; &I-GT-37901;
       (=gt-k             . 03628)      ; &I-GT-K03628;
       (=gt-pj-1                  . #x3069)     ; &I-GT-37901; [16-73]
+      (=daikanwa         . 29318)      ; &I-M-29318;
+      (=shinjigen        .  6431)      ; &GT-37901;
       (->subsumptive
        ((==ucs@jis         . #x80B2)   ; &R-GT-37901;
        (==ucs@ks           . #x80B2)   ; &R-GT-37901;
-       (=ks-x1001          . #x6B40)   ; &R-GT-37901; [75-32]
+       (==ks-x1001         . #x6B40)   ; &R-GT-37901; [75-32]
        (==jis-x0208        . #x3069)   ; &R-GT-37901; [16-73]
        (==jis-x0213-1      . #x3069)   ; &R-GT-37901; [16-73]
        (==gt               . 37901)    ; &R-GT-37901;
        (==gt-k             . 03628)    ; &R-GT-37901;
-       (=daikanwa          . 29318)    ; &I-M-29318;
-       (=shinjigen         .  6431)    ; &R-GT-37901;
+       (==daikanwa         . 29318)    ; &R-GT-37901;
+       (==shinjigen        .  6431)    ; &R-GT-37901;
        )
        ((==ucs@unicode     . #x80B2)   ; &R-UU+80B2;
        (==gb2312           . #x537D)   ; &R-UU+80B2; [51-93]
@@ -7143,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)        ; ⾁
@@ -14070,39 +14078,46 @@
      ((=ucs@unicode      . #x81C6)     ; &GT-38705;
       (=jis-x0208        . #x3232)     ; &GT-38705; [18-18]
       (=gb2312           . #x525C)     ; &I-G0-525C; [50-60]
+      (=ks-x1001         . #x6566)     ; &I-K0-6566; [69-70]
       (=jis-x0213-1      . #x3232)     ; &I-JX1-3232; [18-18]
       (=gt               . 38705)      ; &I-GT-38705;
       (=gt-pj-1                  . #x3232)     ; &I-GT-38705; [18-18]
+      (=daikanwa         . 29951)      ; &I-M-29951;
+      (<-formed@p=yi
+       ((=ucs@unicode      . #x808A)   ; &GT-37858;
+       (=gt                . 37858)    ; &GT-37858;
+       (=daikanwa          . 29238)    ; &I-M-29238;
+       ))
+      (<-formed@p=yi*sources
+       shuowen)
+      (<-same@p=yi
+       ((=ucs@unicode      . #x808A)   ; &GT-37858;
+       (=gt                . 37858)    ; &GT-37858;
+       (=daikanwa          . 29238)    ; &I-M-29238;
+       ))
+      (<-same@p=yi*sources
+       shuowen daikanwa)
+      (<-same@s=drink
+       ((=ucs@jis          . #x91AB)   ; &GT-53782;
+       (=ucs@ks            . #x91AB)   ; &GT-53782;
+       (=jis-x0208         . #x6E50)   ; &GT-53782; [78-48]
+       (=ks-x1001          . #x6C22)   ; &I-K0-6C22; [76-02]
+       (=jis-x0213-1       . #x6E50)   ; &I-JX1-6E50; [78-48]
+       (=daikanwa          . 40006)    ; &I-M-40006;
+       ))
+      (<-same@s=drink*sources
+       jiyun daikanwa)
+      (->formed@s=drink
+       ((=daikanwa         . 40058)    ; &M-40058;
+       ))
+      (->formed@s=drink*sources
+       jingdian-shiwen daikanwa)
       (->subsumptive
-       ((=daikanwa         . 29951)    ; &M-29951;
-       (<-formed@p=yi
-        ((=ucs@unicode       . #x808A) ; &GT-37858;
-         (=gt                . 37858)  ; &GT-37858;
-         (=daikanwa          . 29238)  ; &I-M-29238;
-         ))
-       (<-formed@p=yi*sources
-        shuowen)
-       (<-same@p=yi
-        ((=ucs@unicode       . #x808A) ; &GT-37858;
-         (=gt                . 37858)  ; &GT-37858;
-         (=daikanwa          . 29238)  ; &I-M-29238;
-         ))
-       (<-same@p=yi*sources
-        shuowen daikanwa)
-       (<-same@s=drink
-        ((=daikanwa          . 40006)  ; &M-40006;
-         ))
-       (<-same@s=drink*sources
-        jiyun daikanwa)
-       (->formed@s=drink
-        ((=daikanwa          . 40058)  ; &M-40058;
-         ))
-       (->formed@s=drink*sources
-        jingdian-shiwen daikanwa)
+       ((==daikanwa        . 29951)    ; &R-M-29951;
        )
        ((==ucs@jis         . #x81C6)   ; &R-GT-38705;
        (==ucs@ks           . #x81C6)   ; &R-GT-38705;
-       (=ks-x1001          . #x6566)   ; &R-GT-38705; [69-70]
+       (==ks-x1001         . #x6566)   ; &R-GT-38705; [69-70]
        (==jis-x0208        . #x3232)   ; &R-GT-38705; [18-18]
        (==jis-x0213-1      . #x3232)   ; &R-GT-38705; [18-18]
        (==gt               . 38705)    ; &R-GT-38705;