(<CJK RADICAL SEAL>): Add `<-denotational' for U+353E; add

`<-ideographic-component-forms' for U+5369.
(JC3-71F7): New character.
(<CJK RADICAL C-SIMPLIFIED SILK>): Unify BC-895B.
(<CJK RADICAL C-SIMPLIFIED GOLD>): Unify BC-895A.

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 1b839a0..5a8c433 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -152,12 +152,22 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-denotational
+     ((=ucs              . #x353E)     ; 㔾
+      ))
+    (<-ideographic-component-forms
+     ((=ucs              . #x5369)     ; 卩
+      ))
     (<-radical
      ((=ucs              . #x353E)     ; 㔾
       ))
     (=ucs              . #x2E8B)       ; ⺋
     ))
 (define-char
+  '((=>ucs             . #x353E)       ; 㔾
+    (=jef-china3       . #x71F7)       ; &JC3-71F7;
+    ))
+(define-char
   '((name              . "CJK RADICAL SMALL ONE")
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
@@ -623,6 +633,7 @@
       (=ucs              . #x2EAF)     ; ⺯
       ))
     (=ucs              . #x2EB0)       ; ⺰
+    (=big5-cdp         . #x895B)       ; &I-CDP-895B;
     ))
 (define-char
   '((name              . "CJK RADICAL NET ONE")
@@ -1100,6 +1111,7 @@
      ((=ucs              . #x9485)     ; 钅
       ))
     (=ucs              . #x2ED0)       ; ⻐
+    (=big5-cdp         . #x895A)       ; &I-CDP-895A;
     ))
 (define-char
   '((name              . "CJK RADICAL LONG ONE")