From: tomo <tomo>
Date: Thu, 12 Aug 2004 19:02:10 +0000 (+0000)
Subject: (U+6637): Add `<-same' for U-00025055; add S1-5235.
X-Git-Tag: r21-4-15-chise-0_21-31^2~59
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e4e74b23dbf7d9b04e44f2b0a81424a99a48c384;p=chise%2Fxemacs-chise.git

(U+6637): Add `<-same' for U-00025055; add S1-5235.
(U+6638): Use `->subsumptive'.
---

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)	; ⽇