(C7-476E): Unify U-00021109 and H2-E2D9 instead of using

`->identical'; use `ideographic-{radical|strokes}@{ucs|cns}' and
`ideographic-radical@cns*sources' instead.
(U-00020442): Use `ideographic-{radical|strokes}@{ucs|cns}' and
`ideographic-radical@cns*sources' instead of `ideographic-'.

diff --git a/lisp/utf-2000/Ideograph-R089-Double-X.el b/lisp/utf-2000/Ideograph-R089-Double-X.el
index 194530e..317de6e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R089-Double-X.el
+++ b/lisp/utf-2000/Ideograph-R089-Double-X.el
@@ -324,21 +324,25 @@
 (define-char
   '((=>ucs             . #x21109)      ; 𡄉
     (morohashi-daikanwa        19756 0 0)
-    (ideographic-radical . 89) ; ⽘
-    (ideographic-strokes . 15)
+    (ideographic-radical@ucs . 30)     ; ⼝
+    (ideographic-strokes@ucs . 16)
+    (ideographic-radical@cns . 89)     ; ⽘
+    (ideographic-strokes@cns . 15)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes      . 19)
-    (->identical
-     ((=ucs              . #x21109)    ; 𡄉
-      ))
+    (hanyu-dazidian    1 703 3)
+    (=ucs              . #x21109)      ; 𡄉
     (=cns11643-7       . #x476E)       ; �����
+    (=hanziku-2                . #xE2D9)       ; ������
     ))
 (define-char
-  '((ideographic-      (:radical       89 ; ⽘
-                        :strokes       15
-                        :sources       (morohashi-daikanwa cns-11643))
-                       (:radical       9 ; ⼈
-                        :strokes       17
-                        :sources       (ucs)))
+  '((ideographic-radical@ucs . 9)      ; ⼈
+    (ideographic-strokes@ucs . 17)
+    (ideographic-radical@cns . 89)     ; ⽘
+    (ideographic-strokes@cns . 15)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes      . 19)
     (hanyu-dazidian    1 237 5)
     (ideographic-structure