From 6f7bd7d5feb10535affe47016052ec8e2ddbd49a Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 14 Apr 2005 05:13:55 +0000
Subject: [PATCH] (U+7C73): Add S1-5898. (GT-K01687): New character.
 (U-00025E25): Use `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R119-Rice.el |   23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R119-Rice.el b/lisp/utf-2000/Ideograph-R119-Rice.el
index ec19e7c..cd605b8 100644
--- a/lisp/utf-2000/Ideograph-R119-Rice.el
+++ b/lisp/utf-2000/Ideograph-R119-Rice.el
@@ -3,6 +3,7 @@
   '((ideographic-radical . 119)	; ⽶
     (ideographic-strokes . 0)
     (total-strokes	 . 6)
+    (shinjigen-1	. 5898)
     (shinjigen-2	. 5898)
     (=ucs		. #x7C73)	; ç±³
     (->subsumptive
@@ -21,11 +22,29 @@
     ))
 (define-char
   '((ideographic-radical . 119)	; ⽶
+    (ideographic-strokes . 0)
+    (total-strokes	 . 6)
+    (<-denotational
+     ((=ucs		  . #x7C73)	; ç±³
+      ))
+    (<-ideographic-component-forms
+     ((=ucs		  . #x7C73)	; ç±³
+      ))
+    (=gt-k		. 01687)	; &GT-K01687;
+    (=gt-pj-k1		. #x3451)	; &GT-K01687; [20-49]
+    ))
+(define-char
+  '((ideographic-radical . 119)	; ⽶
     (ideographic-strokes . 1)
     (total-strokes	 . 7)
     (=ucs		. #x25E25)	; 𥸥
-    (=cns11643-5	. #x2471)	; &I-C5-2471; [04-81]
-    (=daikanwa		. 26833)	; &I-M-26833;
+    (->subsumptive
+     ((=daikanwa	  . 26833)	; &M-26833;
+      )
+     ((=ucs@iso		  . #x25E25)	; &UU+25E25;
+      )
+     ((=cns11643-5	  . #x2471)	; &C5-2471; [04-81]
+      ))
     ))
 (define-char
   '((ideographic-radical . 119)	; ⽶
-- 
1.7.10.4