From c495ff5226d2acfc9b517a76f2f750365d8259a0 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 24 Jul 2005 22:17:45 +0000
Subject: [PATCH] (U+7AD2): Copied from Ideograph-R117-Stand.el. (M-00310):
 Use `<-subsumptive' instead of `<-denotational' and
 `->identical'.

---
 lisp/utf-2000/Ideograph-R008-Lid.el |   52 +++++++++++++++++++++++------------
 1 file changed, 35 insertions(+), 17 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 3fb018c..162717d 100644
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -1134,18 +1134,36 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 8)	; ⼇
-    (ideographic-strokes . 7)
+  '((ideographic-radical@ucs . 117)	; â½´
+    (ideographic-strokes@ucs . 4)
+    (ideographic-radical@ucs*sources
+     daikanwa=25736 jis-x0208 cns11643 ucs)
+    (ideographic-radical@misc . 8)	; ⼇
+    (ideographic-strokes@misc . 7)
+    (ideographic-radical@misc*sources
+     daikanwa=00310 cbeta)
     (total-strokes	 . 9)
-    (->identical
+    (=ucs		. #x7AD2)	; 竒
+    (->subsumptive
      ((=jis-x0208	  . #x5474)	; &GT-00400; [52-84]
-      (=daikanwa	  . 25736)	; &I-M-25736;
-      ))
-    (<-denotational
-     ((=ucs		  . #x7AD2)	; 竒
+      (=gt		  . 00400)	; &I-GT-00400;
+      (=gt-k		  . 05227)	; &I-GT-K05227;
+      (=gt-pj-1		  . #x5474)	; &I-GT-00400; [52-84]
+      (=cbeta		  . 00282)	; &I-CB00282;
+      (=ucs@jis		  . #x7AD2)	; &GT-00400;
+      (->subsumptive
+       ((ideographic-radical . 117)	; â½´
+	(ideographic-strokes . 4)
+	(=daikanwa	    . 25736)	; &M-25736;
+	)
+       ((ideographic-radical . 8)	; ⼇
+	(ideographic-strokes . 7)
+	(=daikanwa	    . 00310)	; &M-00310;
+	))
+      )
+     ((=cns11643-3	  . #x2E4F)	; &C3-2E4F; [14-47]
+      (=ucs@unicode	  . #x7AD2)	; &C3-2E4F;
       ))
-    (=daikanwa		. 00310)	; &M-00310;
-    (=cbeta		. 00282)	; &I-CB00282;
     ))
 (define-char
   '((ideographic-radical . 8)	; ⼇
@@ -3273,12 +3291,12 @@
     (=ucs		. #x4EB9)	; 亹
     ))
 (define-char
-  '((ideographic-radical . 8)	; ⼇
-    (ideographic-strokes . 20)
-    (total-strokes	 . 22)
-    (<-denotational
+  '((<-denotational
      ((=ucs		  . #x4EB9)	; 亹
       ))
+    (ideographic-radical . 8)	; ⼇
+    (ideographic-strokes . 20)
+    (total-strokes	 . 22)
     (=big5		. #xF6D6)	; &B-F6D6;
     (=ucs@big5		. #x4EB9)	; &B-F6D6;
     (->subsumptive
@@ -3312,12 +3330,12 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 8)	; ⼇
-    (ideographic-strokes . 19)
-    (total-strokes	 . 21)
-    (<-denotational
+  '((<-denotational
      ((=ucs		  . #x4EB9)	; 亹
       ))
+    (ideographic-radical . 8)	; ⼇
+    (ideographic-strokes . 19)
+    (total-strokes	 . 21)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
-- 
1.7.10.4