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

diff --git a/lisp/utf-2000/Ideograph-R134-Mortar.el b/lisp/utf-2000/Ideograph-R134-Mortar.el
index bda5641..4fa13cf 100644 (file)
--- a/lisp/utf-2000/Ideograph-R134-Mortar.el
+++ b/lisp/utf-2000/Ideograph-R134-Mortar.el
@@ -246,41 +246,39 @@
     (=daikanwa         . 30187)        ; &I-M-30187;
     ))
 (define-char
-  '((=>ucs             . #x8201)       ; 舁
-    (ideographic-radical . 134)        ; ⾅
-    (ideographic-strokes . 4)
-    (total-strokes      . 10)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs              . #x2FF1)     ; ⿱
-      )
-     ((=ucs              . #x81FC)     ; 臼
-      )
-     ((=cns11643-6       . #x2174)     ; &M-09584;
-      (=daikanwa         . 09584)      ; &I-M-09584;
-      ))
-    (=cns11643-2       . #x3234)       ; &M-30188;
-    (=daikanwa         . 30188)        ; &I-M-30188;
-    ))
-(define-char
-  '((morohashi-daikanwa        30188 0 1)
-    (ideographic-radical . 134)        ; ⾅
-    (ideographic-strokes . 3)
-    (total-strokes      . 9)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs              . #x2FF1)     ; ⿱
-      )
-     ((=ucs              . #x81FC)     ; 臼
+  '((ideographic-radical . 134)        ; ⾅
+    (=ucs              . #x8201)       ; 舁
+    (->subsumptive
+     ((ideographic-strokes . 4)
+      (total-strokes      . 10)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=ucs              . #x81FC)   ; 臼
+       )
+       ((=ucs              . #x2F890)  ; 廾
+       ))
+      (=cns11643-2       . #x3234)     ; &M-30188;
+      (=daikanwa         . 30188)      ; &I-M-30188;
       )
-     ((=ucs              . #x5EFE)     ; 廾
+     ((ideographic-strokes . 3)
+      (total-strokes      . 9)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=ucs              . #x81FC)   ; 臼
+       )
+       ((=ucs              . #x5EFE)   ; 廾
+       ))
+      (=jis-x0208        . #x674D)     ; &GT-39043;
+      (=gb2312           . #x7428)     ; &I-G0-7428;
+      (=big5             . #xD370)     ; &I-B-D370;
+      (=gt               . 39043)      ; &I-GT-39043;
+      (=gt-pj-1                  . #x674D)     ; &I-GT-39043;
+      (=ucs@unicode      . #x8201)     ; &GT-39043;
       ))
-    (=ucs              . #x8201)       ; 舁
-    (=jis-x0208                . #x674D)       ; &I-J90-674D;
-    (=gb2312           . #x7428)       ; &I-G0-7428;
-    (=big5             . #xD370)       ; &I-B-D370;
-    (=gt               . 39043)        ; &I-GT-39043;
-    (=gt-pj-1          . #x674D)       ; &I-GT-39043;
     ))
 (define-char
   '((ideographic-radical . 134)        ; ⾅