From e4e74b23dbf7d9b04e44f2b0a81424a99a48c384 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 12 Aug 2004 19:02:10 +0000
Subject: [PATCH] (U+6637): Add `<-same' for U-00025055; add S1-5235.
 (U+6638): Use `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R072-Sun.el |   16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 4e74346..0fc89e3 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -1785,6 +1785,12 @@
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 5)
     (total-strokes	 . 9)
+    (<-same
+     ((=ucs		  . #x25055)	; 𥁕
+      (=daikanwa	  . 22978)	; &I-M-22978;
+      ))
+    (<-same*sources
+     guangyun daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -1793,6 +1799,7 @@
       )
      ((=ucs		  . #x76BF)	; 皿
       ))
+    (shinjigen-1	. 5235)
     (=ucs		. #x6637)	; 昷
     (=jis-x0212		. #x4230)	; &I-JSP-4230; [34-16]
     (=cns11643-3	. #x2D24)	; &I-C3-2D24; [13-04]
@@ -1805,8 +1812,13 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 9)
     (=ucs		. #x6638)	; 昸
-    (=cns11643-3	. #x2D25)	; &I-C3-2D25; [13-05]
-    (=daikanwa		. 13875)	; &I-M-13875;
+    (->subsumptive
+     ((=daikanwa	  . 13875)	; &M-13875;
+      )
+     ((=ucs@unicode	  . #x6638)	; &UU+6638;
+      )
+     ((=cns11643-3	  . #x2D25)	; &C3-2D25; [13-05]
+      ))
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
-- 
1.7.10.4