From ad93ea47bd335fac94c28dd2ec77e00547bbe11b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 13 Mar 2004 21:36:24 +0000
Subject: [PATCH] (U+4188): Use `->subsumptive'. (U+4189): Use
 `->subsumptive'. (C3-5E47): Use
 `<-ancient-ideograph*sources' instead of char-ref in
 `<-ancient-ideograph'.

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

diff --git a/lisp/utf-2000/Ideograph-R115-Grain.el b/lisp/utf-2000/Ideograph-R115-Grain.el
index 78e8de0..78924c8 100644
--- a/lisp/utf-2000/Ideograph-R115-Grain.el
+++ b/lisp/utf-2000/Ideograph-R115-Grain.el
@@ -3893,7 +3893,7 @@
      ((=daikanwa	  . 25262)	; ø¸†Š®
       (=jef-china3	  . #x98E8)	; øº‰£¨
       )
-     ((=ucs@unicode	  . #x7A4B)	; 󰀛
+     ((=ucs@unicode	  . #x7A4B)	; 󰀞
       )
      ((=cns11643-1	  . #x715C)	; ø»’¸·
       ))
@@ -5276,10 +5276,27 @@
     ))
 (define-char
   '((ideographic-radical . 115)	; â½²
+    (=ucs		. #x4188)	; 䆈
+    (->subsumptive
+     ((ideographic-strokes . 15)
+      (total-strokes	   . 20)
+      (=ucs@unicode	  . #x4188)	; 󰀟
+      )
+     ((ideographic-strokes . 16)
+      (total-strokes	   . 21)
+      (=cns11643-3	  . #x5E46)	; ø»–°¯
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 115)	; â½²
     (ideographic-strokes . 15)
     (total-strokes	 . 20)
     (=ucs		. #x4189)	; 䆉
-    (=cns11643-4	. #x6379)	; ø»™‚¼
+    (->subsumptive
+     ((=ucs@unicode	  . #x4189)	; 󰀠
+      )
+     ((=cns11643-4	  . #x6379)	; ø»™‚¼
+      ))
     ))
 (define-char
   '((ideographic-radical . 115)	; â½²
@@ -5371,13 +5388,14 @@
     (ideographic-strokes . 16)
     (total-strokes	 . 21)
     (->same
-     ((=daikanwa	  . 48869)	; ø¸‹»¥
+     ((=jis-x0208-1983	  . #x6354)	; ø»‡±·
+      (=daikanwa	  . 48869)	; ø¸‹»¥
       ))
     (<-ancient-ideograph
-     (:sources	(jii morohashi-daikanwa)
-      :char	((=daikanwa	     . 24940)	; ø¸†…¬
-		 )
+     ((=daikanwa	  . 24940)	; ø¸†…¬
       ))
+    (<-ancient-ideograph*sources
+     zihui daikanwa)
     (=cns11643-3	. #x5E47)	; ø»–°°
     (=daikanwa		. 25381)	; ø¸†Œ¥
     ))
@@ -5385,13 +5403,6 @@
   '((ideographic-radical . 115)	; â½²
     (ideographic-strokes . 16)
     (total-strokes	 . 21)
-    (=ucs		. #x4188)	; 䆈
-    (=cns11643-3	. #x5E46)	; ø»–°¯
-    ))
-(define-char
-  '((ideographic-radical . 115)	; â½²
-    (ideographic-strokes . 16)
-    (total-strokes	 . 21)
     (=ucs		. #x418A)	; 䆊
     (=cns11643-4	. #x6665)	; ø»™‡‚
     ))
-- 
1.7.10.4