(<CJK RADICAL BOLT OF CLOTH>): Add

`<-identical@component/connect-right' for U-00024D14.
(BC-8DC5): Moved to Ideograph-R103-Bolt-Of-Cloth.el; use
`<-subsumptive' for U-00024D14; don't map to U+2EAA.

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 6b746a7..137bd3e 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -619,12 +619,8 @@
     (<-formed@component/connect-right
      ((=ucs              . #x758B)     ; 疋
       ))
-    ))
-(define-char
-  '((=>ucs             . #x2EAA)       ; ⺪
-    (=big5-cdp         . #x8DC5)       ; &CDP-8DC5;
-    (<-formed@component
-     ((=ucs              . #x758B)     ; 疋
+    (<-identical@component/connect-right
+     ((=ucs              . #x24D14)    ; 𤴔
       ))
     ))
 (define-char