From eb4e76382f4dac5a12f0c067f501bc0bbc83c15c Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 17 May 2005 05:52:13 +0000
Subject: [PATCH 1/1] (U+74E6): Use `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R098-Tile.el |   43 +++++++++++++++++-----------------
 1 file changed, 21 insertions(+), 22 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R098-Tile.el b/lisp/utf-2000/Ideograph-R098-Tile.el
index 8f67bda..6c1acb6 100644
--- a/lisp/utf-2000/Ideograph-R098-Tile.el
+++ b/lisp/utf-2000/Ideograph-R098-Tile.el
@@ -1,27 +1,26 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
-  '((=>ucs		. #x74E6)	; 瓦
-    (ideographic-radical . 98)	; ⽡
-    (ideographic-strokes . 0)
-    (total-strokes	 . 5)
-    (shinjigen-2	. 4979)
-    (=jis-x0208		. #x3424)	; &GT-27544; [20-04]
-    (=ks-x1001		. #x683F)	; &I-K0-683F; [72-31]
-    (=cns11643-1	. #x466B)	; &I-C1-466B; [38-75]
-    (=big5		. #xA5CB)	; &I-B-A5CB;
-    (=gt		. 27544)	; &I-GT-27544;
-    (=gt-k		. 00906)	; &I-GT-K00906;
-    (=gt-pj-1		. #x3424)	; &I-GT-27544; [20-04]
-    (=daikanwa		. 21438)	; &I-M-21438;
-    (=ucs@jis		. #x74E6)	; &GT-27544;
-    ))
-(define-char
-  '((morohashi-daikanwa	21438 0 0)
-    (ideographic-radical . 98)	; ⽡
+  '((ideographic-radical . 98)	; ⽡
     (ideographic-strokes . 0)
-    (total-strokes	 . 4)
     (=ucs		. #x74E6)	; 瓦
-    (=gb2312		. #x4D5F)	; &I-G0-4D5F; [45-63]
+    (->subsumptive
+     ((total-strokes	   . 5)
+      (shinjigen-1	  . 4979)
+      (shinjigen-2	  . 4979)
+      (=jis-x0208	  . #x3424)	; &GT-27544; [20-04]
+      (=ks-x1001	  . #x683F)	; &I-K0-683F; [72-31]
+      (=cns11643-1	  . #x466B)	; &I-C1-466B; [38-75]
+      (=big5		  . #xA5CB)	; &I-B-A5CB;
+      (=gt		  . 27544)	; &I-GT-27544;
+      (=gt-k		  . 00906)	; &I-GT-K00906;
+      (=gt-pj-1		  . #x3424)	; &I-GT-27544; [20-04]
+      (=daikanwa	  . 21438)	; &I-M-21438;
+      (=ucs@jis		  . #x74E6)	; &GT-27544;
+      )
+     ((total-strokes	   . 4)
+      (=gb2312		  . #x4D5F)	; &G0-4D5F; [45-63]
+      (=ucs@unicode	  . #x74E6)	; &G0-4D5F;
+      ))
     ))
 (define-char
   '((ideographic-radical . 98)	; ⽡
@@ -1305,7 +1304,7 @@
     (->subsumptive
      ((=daikanwa	  . 21563)	; &M-21563;
       )
-     ((=ucs@iso		  . #x24B79)	; &UU+24B79;
+     ((=ucs@iso		  . #x24B79)	; &U-00024B79;
       )
      ((=cns11643-4	  . #x4B28)	; &C4-4B28; [43-08]
       ))
@@ -2020,7 +2019,7 @@
     (->subsumptive
      ((=daikanwa	  . 21618)	; &M-21618;
       )
-     ((=ucs@iso		  . #x24B9D)	; &UU+24B9D;
+     ((=ucs@iso		  . #x24B9D)	; &U-00024B9D;
       )
      ((=cns11643-7	  . #x4065)	; &C7-4065; [32-69]
       ))
-- 
1.7.10.4