(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.

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 210fe44..bf8e415 100644 (file)
--- 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