From c55ce36cb4f5f1f483627c207f208a899c73b417 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 9 Jul 2004 16:02:53 +0000
Subject: [PATCH] (C3-5E47): Use `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R115-Grain.el |   55 +++++++++++++++++++++++++--------
 1 file changed, 42 insertions(+), 13 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R115-Grain.el b/lisp/utf-2000/Ideograph-R115-Grain.el
index f8031b6..4dda504 100644
--- a/lisp/utf-2000/Ideograph-R115-Grain.el
+++ b/lisp/utf-2000/Ideograph-R115-Grain.el
@@ -5303,21 +5303,50 @@
       ))
     ))
 (define-char
-  '((=>ucs		. #x9F9D)	; 龝
-    (ideographic-radical . 115)	; â½²
-    (ideographic-strokes . 16)
-    (total-strokes	 . 21)
-    (->same
-     ((=jis-x0208-1983	  . #x6354)	; &GT-32753; [67-52]
+  '((=ucs		. #x9F9D)	; 龝
+    (->subsumptive
+     ((ideographic-radical . 115)	; â½²
+      (ideographic-strokes . 16)
+      (total-strokes	   . 21)
+      (<-ancient
+       ((=jis-x0208	    . #x3D29)	; &GT-32182; [29-09]
+	(=gb2312	    . #x476F)	; &I-G0-476F; [39-79]
+	(=ks-x1001	    . #x7555)	; &I-K0-7555; [85-53]
+	(=daikanwa	    . 24940)	; &I-M-24940;
+	))
+      (<-ancient*sources
+       zihui daikanwa)
+      (=cns11643-3	  . #x5E47)	; &M-25381; [62-39]
+      (=daikanwa	  . 25381)	; &I-M-25381;
+      )
+     ((ideographic-radical . 213)	; ⿔
+      (ideographic-strokes . 5)
+      (total-strokes	   . 21)
+      (<-ancient
+       ((=jis-x0208	    . #x3D29)	; &GT-32182; [29-09]
+	(=gb2312	    . #x476F)	; &I-G0-476F; [39-79]
+	(=ks-x1001	    . #x7555)	; &I-K0-7555; [85-53]
+	(=daikanwa	    . 24940)	; &I-M-24940;
+	))
+      (<-ancient*sources
+       zihui daikanwa)
+      (=jis-x0208-1983	  . #x6354)	; &GT-32753; [67-52]
+      (=jis-x0208-1990	  . #x6354)	; &I-J90-6354; [67-52]
+      (=gt		  . 32753)	; &I-GT-32753;
+      (=gt-pj-1		  . #x6354)	; &I-GT-32753; [67-52]
       (=daikanwa	  . 48869)	; &I-M-48869;
+      (=ucs@jis		  . #x9F9D)	; &GT-32753;
+      )
+     ((ideographic-radical . 213)	; ⿔
+      (ideographic-strokes . 5)
+      (total-strokes	   . 21)
+      (=jis-x0208-1978	  . #x6354)	; &J78-6354; [67-52]
+      )
+     ((ideographic-radical . 213)	; ⿔
+      (ideographic-strokes . 5)
+      (total-strokes	   . 20)
+      (=ucs@unicode	  . #x9F9D)	; &UU+9F9D;
       ))
-    (<-ancient
-     ((=daikanwa	  . 24940)	; &I-M-24940;
-      ))
-    (<-ancient*sources
-     zihui daikanwa)
-    (=cns11643-3	. #x5E47)	; &M-25381; [62-39]
-    (=daikanwa		. 25381)	; &I-M-25381;
     ))
 (define-char
   '((ideographic-radical . 115)	; â½²
-- 
1.7.10.4