(U+5DC2): Modify hierarchy; add

`ideographic-{radical|strokes}@{ucs|cns}' and
`ideographic-radical@ucs*sources'.

diff --git a/lisp/utf-2000/Ideograph-R046-Mountain.el b/lisp/utf-2000/Ideograph-R046-Mountain.el
index da3757c..7a06a5b 100644 (file)
--- a/lisp/utf-2000/Ideograph-R046-Mountain.el
+++ b/lisp/utf-2000/Ideograph-R046-Mountain.el
@@ -9307,18 +9307,26 @@
     (=daikanwa         . 08593)        ; &I-M-08593;
     ))
 (define-char
-  '((total-strokes      . 18)
+  '((ideographic-radical@ucs . 46)     ; ⼭
+    (ideographic-strokes@ucs . 15)
+    (ideographic-radical@ucs*sources
+     daikanwa ucs)
+    (ideographic-radical@cns . 172)    ; ⾫
+    (ideographic-strokes@cns . 10)
+    (total-strokes      . 18)
     (=ucs              . #x5DC2)       ; 巂
-    (=big5             . #xF172)       ; &I-B-F172;
     (->subsumptive
-     ((ideographic-radical . 46)       ; ⼭
-      (ideographic-strokes . 15)
-      (=daikanwa         . 08595)      ; &M-08595;
-      )
-     ((ideographic-radical . 172)      ; ⾫
-      (ideographic-strokes . 10)
-      (=cns11643-2       . #x643E)     ; &C2-643E; [68-30]
-      (=ucs@cns                  . #x5DC2)     ; &C2-643E;
+     ((=big5             . #xF172)     ; &B-F172;
+      (->subsumptive
+       ((ideographic-radical . 46)     ; ⼭
+       (ideographic-strokes . 15)
+       (=daikanwa          . 08595)    ; &M-08595;
+       )
+       ((ideographic-radical . 172)    ; ⾫
+       (ideographic-strokes . 10)
+       (=cns11643-2        . #x643E)   ; &C2-643E; [68-30]
+       (=ucs@cns           . #x5DC2)   ; &C2-643E;
+       ))
       )
      ((ideographic-radical . 46)       ; ⼭
       (ideographic-strokes . 15)