(U-000200D3): New character; unify BC-89DB; use

`<-simplified@CN/component' for UU+661C.

diff --git a/lisp/utf-2000/Ideograph-R005-Second.el b/lisp/utf-2000/Ideograph-R005-Second.el
index eee6df9..e949c63 100644 (file)
--- a/lisp/utf-2000/Ideograph-R005-Second.el
+++ b/lisp/utf-2000/Ideograph-R005-Second.el
@@ -524,6 +524,22 @@
     ))
 (define-char
   '((ideographic-radical . 5)  ; ⼄
+    (ideographic-strokes . 2)
+    (total-strokes      . 3)
+    (=ucs              . #x200D3)      ; 𠃓
+    (=big5-cdp         . #x89DB)       ; &I-CDP-89DB;
+    (<-simplified@CN/component
+     ((=ucs@unicode      . #x661C)     ; &AJ1-05099;
+      (=adobe-japan1-0   . 05099)      ; &AJ1-05099;
+      ))
+    (->subsumptive
+     ((==ucs@iso         . #x200D3)    ; &g2-IU-000200D3;
+      )
+     ((==big5-cdp        . #x89DB)     ; &g2-CDP-89DB;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 5)  ; ⼄
     (ideographic-strokes . 3)
     (total-strokes      . 4)
     (=ucs              . #x200D5)      ; 𠃕