From: tomo <tomo>
Date: Tue, 22 Feb 2005 08:56:13 +0000 (+0000)
Subject: (U-00021678): Use `->subsumptive'.
X-Git-Tag: r21-4-15-chise-0_22^2~358
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=82e17ebf86b1a5b7d3ac11ee017a64af2344d8c5;p=chise%2Fxemacs-chise.git.1

(U-00021678): Use `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R037-Big.el b/lisp/utf-2000/Ideograph-R037-Big.el
index 829d886..925ff09 100644
--- a/lisp/utf-2000/Ideograph-R037-Big.el
+++ b/lisp/utf-2000/Ideograph-R037-Big.el
@@ -2814,55 +2814,46 @@
     (=cns11643-4	. #x4938)	; &C4-4938; [41-24]
     ))
 (define-char
-  '((=>ucs		. #x21678)	; 𡙸
-    (ideographic-radical . 37)	; ⼤
-    (ideographic-strokes . 12)
-    (total-strokes	 . 15)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=ucs		  . #x5927)	; 大
-      )
-     ((=jis-x0208	  . #x3D38)	; &GT-56392; [29-24]
-      (=ks-x1001	  . #x7322)	; &I-K0-7322; [83-02]
-      (=daikanwa	  . 41974)	; &I-M-41974;
-      ))
-    (=daikanwa		. 06004)	; &M-06004;
-    (=cbeta		. 03033)	; &I-CB03033;
-    ))
-(define-char
-  '((morohashi-daikanwa	6004 0 1)
-    (ideographic-radical . 37)	; ⼤
+  '((ideographic-radical . 37)	; ⼤
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
-    (hanyu-dazidian	1 549 5)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=ucs		  . #x5927)	; 大
-      )
-     ((=ucs		  . #x96C6)	; 集
-      ))
     (=ucs		. #x21678)	; 𡙸
-    (=hanziku-2		. #xC0DD)	; &I-HZK02-C0DD;
-    ))
-(define-char
-  '((=>ucs		. #x21678)	; 𡙸
-    (morohashi-daikanwa	6004 0 2)
-    (ideographic-radical . 37)	; ⼤
-    (ideographic-strokes . 12)
-    (total-strokes	 . 15)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x5927)	; 大
+	)
+       ((=jis-x0208	    . #x3D38)	; &GT-56392; [29-24]
+	(=ks-x1001	    . #x7322)	; &I-K0-7322; [83-02]
+	(=daikanwa	    . 41974)	; &I-M-41974;
+	))
+      (=daikanwa	  . 06004)	; &M-06004;
+      (=cbeta		  . 03033)	; &I-CB03033;
       )
-     ((=ucs		  . #x5927)	; 大
+     ((hanyu-dazidian	  1 549 5)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x5927)	; 大
+	)
+       ((=gb2312	    . #x3C2F)	; &G0-3C2F; [28-15]
+	))
+      (=hanziku-2	  . #xC0DD)	; &HZK02-C0DD;
+      (=ucs@iso		  . #x21678)	; &HZK02-C0DD;
       )
-     ((=cns11643-1	  . #x6275)	; &C1-6275; [66-85]
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x5927)	; 大
+	)
+       ((=cns11643-1	    . #x6275)	; &C1-6275; [66-85]
+	))
+      (=cns11643-7	  . #x2222)	; &C7-2222; [02-02]
       ))
-    (=cns11643-7	. #x2222)	; &C7-2222; [02-02]
     ))
 (define-char
   '((=>ucs		. #x21679)	; 𡙹