(<CJK RADICAL SMALL ONE>): Add `<-ideographic-component-forms' for

U+5C0F.
(GT-K00305): Likewise.
(<CJK RADICAL SMALL TWO>): Likewise.
(<CJK RADICAL JADE>): Add `<-ideographic-component-forms' for
U+738B; unify GT-K00402.
(BC-8DC5): New character.

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index cb0a684..e41c92a 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -148,6 +148,9 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-ideographic-component-forms
+     ((=ucs              . #x5C0F)     ; 小
+      ))
     (=gt-pj-k1         . #x3233)       ; ⺌
     (=big5-cdp         . #x8B54)       ; ������
     (=gt-k             . 00303)        ; ������
@@ -155,6 +158,9 @@
     ))
 (define-char
   '((=>ucs             . #x2E8C)       ; ⺌
+    (<-ideographic-component-forms
+     ((=ucs              . #x5C0F)     ; 小
+      ))
     (=gt-pj-k1         . #x324E)       ; ������
     (=gt-k             . 00305)        ; ������
     ))
@@ -163,6 +169,9 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-ideographic-component-forms
+     ((=ucs              . #x5C0F)     ; 小
+      ))
     (=gt-pj-k1         . #x3251)       ; ⺍
     (=gt-k             . 00325)        ; ������
     (=ucs              . #x2E8D)       ; ⺍
@@ -436,9 +445,14 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-ideographic-component-forms
+     ((=ucs              . #x738B)     ; 王
+      ))
     (<-radical
      ((=ucs              . #x248E9)    ; 𤣩
       ))
+    (=gt-pj-k1         . #x3467)       ; ⺩
+    (=gt-k             . 00402)        ; ������
     (=ucs              . #x2EA9)       ; ⺩
     ))
 (define-char
@@ -449,6 +463,10 @@
     (=ucs              . #x2EAA)       ; ⺪
     ))
 (define-char
+  '((=>ucs             . #x2EAA)       ; ⺪
+    (=big5-cdp         . #x8DC5)       ; ������
+    ))
+(define-char
   '((name              . "CJK RADICAL EYE")
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")