(U+5187): Use `->subsumptive'; use

`ideographic-{radical|strokes}@{ucs|cns}' instead of `ideographic-'.

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index b03b8f8..820d231 100644 (file)
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -830,25 +830,42 @@
       ))
     ))
 (define-char
-  '((=>ucs             . #x5187)       ; 冇
-    (ideographic-      (:radical       1 ; ⼀
-                        :strokes       3
-                        :sources       (cns-11643))
-                       (:radical       13 ; ⼌
-                        :strokes       2
-                        :sources       (ucs)))
+  '((ideographic-radical@ucs . 13)     ; ⼌
+    (ideographic-strokes@ucs . 2)
+    (ideographic-radical@cns . 1)      ; ⼀
+    (ideographic-strokes@cns . 3)
     (total-strokes      . 4)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
-      (=ucs              . #x2FF8)     ; ⿸
-      )
-     ((=ucs              . #x20087)    ; 𠂇
+    (hanyu-dazidian    1 96 17)
+    (=ucs              . #x5187)       ; 冇
+    (=big5             . #xC94E)       ; &I-B-C94E;
+    (->subsumptive
+     ((ideographic-radical . 13)       ; ⼌
+      (ideographic-strokes . 2)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=ucs              . #x20087)  ; 𠂇
+       )
+       ((name              . "CJK RADICAL BOX")
+       (=ucs               . #x2E86)   ; ⺆
+       ))
+      (=iso-ir165        . #x7A29)     ; &EGB-7A29; [90-09]
+      (=ucs@unicode      . #x5187)     ; &EGB-7A29;
       )
-     ((name              . "CJK RADICAL BOX")
-      (=ucs              . #x2E86)     ; ⺆
+     ((ideographic-radical . 1)        ; ⼀
+      (ideographic-strokes . 3)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+       (=ucs               . #x2FF8)   ; ⿸
+       )
+       ((=ucs              . #x20087)  ; 𠂇
+       )
+       ((=big5-cdp         . #x8BF2)   ; &CDP-8BF2;
+       ))
+      (=cns11643-2       . #x212E)     ; &C2-212E; [01-14]
+      (=ucs@cns                  . #x5187)     ; &C2-212E;
       ))
-    (=cns11643-2       . #x212E)       ; &C2-212E; [01-14]
-    (=ucs@cns          . #x5187)       ; &C2-212E;
     ))
 (define-char
   '((ideographic-radical . 1)  ; ⼀