From 143d13ec76c88b22265c3f375f9075780c4c09fa Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 28 Jul 2003 11:17:07 +0000
Subject: [PATCH] (U+2E84): Unify GT-K00008. (GT-K00007): New character.
 (U+2E86): Add `<-radical' for U+5182; separate BC-8BF2.
 (BC-8BF2): Unify GT-K00143. (U+2E87): Unify GT-K00086 and
 GT-02284. (U+2E88): Unify GT-K00091. (U+2E8A): Unify
 GT-K00062. (U+2E9C): Unify GT-K00565. (U+2EAE): Add
 `<-ideographic-component-forms' for U+7AF9; unify
 GT-K02267. (U+2ECD): Unify GT-K00580 and GT-51643.

---
 lisp/utf-2000/u02E00-CJK-Radical-Supplement.el |   40 +++++++++++++++++++++---
 1 file changed, 35 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 210fe44..bf8e415 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -44,11 +44,18 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (total-strokes	 . 1)
-    (ideograph-cdp	. -13)
+    (=gt-pj-k1		. #x302E)	; ⺄
     (=big5-cdp		. #x8D43)	; ý¢€ˆµƒ
+    (=gt-k		. 00008)	; ý¡„€€ˆ
     (=ucs		. #x2E84)	; ⺄
     ))
 (define-char
+  '((=>ucs		. #x2E84)	; ⺄
+    (total-strokes	 . 1)
+    (=gt-pj-k1		. #x302D)	; ý¡„€€‡
+    (=gt-k		. 00007)	; ý¡„€€‡
+    ))
+(define-char
   '((name		. "CJK RADICAL PERSON")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -67,11 +74,19 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (total-strokes	 . 2)
-    (ideograph-cdp	. -80)
-    (=big5-cdp		. #x8BF2)	; ý¢€ˆ¯²
+    (<-radical
+     ((=ucs		  . #x5182)	; 冂
+      ))
     (=ucs		. #x2E86)	; ⺆
     ))
 (define-char
+  '((=>ucs		. #x2E86)	; ⺆
+    (total-strokes	 . 2)
+    (=gt-pj-k1		. #x3D6C)	; ý¢€ˆ¯²
+    (=big5-cdp		. #x8BF2)	; ý¢€ˆ¯²
+    (=gt-k		. 00143)	; ý¡„€‚
+    ))
+(define-char
   '((name		. "CJK RADICAL TABLE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -80,8 +95,10 @@
     (<-radical
      ((=ucs		  . #x51E0)	; 几
       ))
-    (ideograph-cdp	. -79)
+    (=gt-pj-9		. #x505D)	; ý¡€€£¬
     (=big5-cdp		. #x8D66)	; ý¢€ˆµ¦
+    (=gt-k		. 00086)	; ý¡„€–
+    (=gt		. 02284)	; ý¡€€£¬
     (=ucs		. #x2E87)	; ⺇
     ))
 (define-char
@@ -89,6 +106,8 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (=gt-pj-k1		. #x3234)	; ⺈
+    (=gt-k		. 00091)	; ý¡„€›
     (=ucs		. #x2E88)	; ⺈
     ))
 (define-char
@@ -109,8 +128,9 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (total-strokes	 . 2)
-    (ideograph-cdp	. -51)
+    (=gt-pj-k1		. #x3D4D)	; ⺊
     (=big5-cdp		. #x8B78)	; ý¢€ˆ­¸
+    (=gt-k		. 00062)	; ý¡„€€¾
     (=ucs		. #x2E8A)	; ⺊
     ))
 (define-char
@@ -290,6 +310,8 @@
     (<-radical
      ((=big5-cdp	  . #x8A78)	; ý¢€ˆ©¸
       ))
+    (=gt-pj-k1		. #x3229)	; ⺜
+    (=gt-k		. 00565)	; ý¡„€ˆµ
     (=ucs		. #x2E9C)	; ⺜
     ))
 (define-char
@@ -459,7 +481,12 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x7AF9)	; 竹
+      ))
+    (=gt-pj-k1		. #x324D)	; ⺮
     (=big5-cdp		. #x8B4C)	; ý¢€ˆ­Œ
+    (=gt-k		. 02267)	; ý¡„€£›
     (=ucs		. #x2EAE)	; ⺮
     ))
 (define-char
@@ -780,8 +807,11 @@
     (total-strokes	 . 4)
     (=jis-x0212		. #x6134)	; ø»Œ‚£
     (=jis-x0213-2-2000	. #x796A)	; ø»¦Ÿ™
+    (=gt-pj-7		. #x5530)	; ý¡€Œ¦»
     (=daikanwa		. 38702)	; ø¸‰œ®
+    (=gt-k		. 00580)	; ý¡„€‰„
     (=ucs@jis		. #x8FB6)	; ⻍
+    (=gt		. 51643)	; ý¡€Œ¦»
     (=ucs		. #x2ECD)	; ⻍
     ))
 (define-char
-- 
1.7.10.4