From a98a3c04d20c617bdf5078065f13534fbb26f11c Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 28 Apr 2005 02:15:41 +0000
Subject: [PATCH] (U-000215D7): New character. (GT-K01089): Use
 `<-subsumptive' for U-000215D7. (BC-8BE9): Likewise.

---
 lisp/utf-2000/Ideograph-R140-Grass.el |   34 +++++++++++++++------------------
 1 file changed, 15 insertions(+), 19 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R140-Grass.el b/lisp/utf-2000/Ideograph-R140-Grass.el
index 652f92c..a3f8b09 100644
--- a/lisp/utf-2000/Ideograph-R140-Grass.el
+++ b/lisp/utf-2000/Ideograph-R140-Grass.el
@@ -2670,6 +2670,21 @@
     (=hanziku-8		. #xE9E4)	; &I-HZK08-E9E4;
     ))
 (define-char
+  '((ideographic-radical@ucs . 37)	; ⼤
+    (ideographic-strokes@ucs . 2)
+    (ideographic-radical@misc . 140)	; ⾋
+    (ideographic-strokes@misc . 4)
+    (total-strokes	 . 5)
+    (=ucs		. #x215D7)	; 𡗗
+    (->subsumptive
+     ((=gt-k		  . 01089)	; &GT-K01089;
+      (=gt-pj-k1	  . #x322E)	; &GT-K01089; [18-14]
+      (=ucs@iso		  . #x215D7)	; &GT-K01089;
+      )
+     ((=big5-cdp	  . #x8BE9)	; &CDP-8BE9;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
@@ -2682,25 +2697,6 @@
     (=cns11643-6	. #x2D7D)	; &C6-2D7D; [13-93]
     ))
 (define-char
-  '((ideographic-radical . 140)	; ⾋
-    (ideographic-strokes . 4)
-    (total-strokes	 . 5)
-    (->ideographic-variants
-     ((=big5-cdp	  . #x8BE9)	; &CDP-8BE9;
-      ))
-    (=gt-k		. 01089)	; &GT-K01089;
-    (=gt-pj-k1		. #x322E)	; &GT-K01089; [18-14]
-    ))
-(define-char
-  '((ideographic-radical . 140)	; ⾋
-    (ideographic-strokes . 4)
-    (total-strokes	 . 5)
-    (->ideographic-variants
-     ((=gt-k		  . 01089)	; &GT-K01089;
-      ))
-    (=big5-cdp		. #x8BE9)	; &CDP-8BE9;
-    ))
-(define-char
   '((=>ucs		. #x82D0)	; 苐
     (ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 5)
-- 
1.7.10.4