(U+5195): Use `ideographic-{radical|strokes}@jis' instead of

`ideographic-{radical|strokes}'; add
`ideographic-{radical|strokes}@jis*sources',
`ideographic-{radical|strokes}@ucs/compat' and
`ideographic-radical@ucs/compat*sources'.
(G0-4361): Separate K0-5874.
(J78-1978): Use `<-subsumptive' for U-0002F8D3 instead of
`<-denotational' for U+5195.
(K0-5874): Separated from G0-4361; use `<-subsumptive' for U-0002F8D3
instead of `<-denotational' for U+5195; unify C6-4057.

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index b709479..147472a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -1332,8 +1332,16 @@
     (=cbeta            . 02605)        ; &I-CB02605;
     ))
 (define-char
-  '((ideographic-radical . 13) ; ⼌
-    (ideographic-strokes . 9)
+  '((ideographic-radical@ucs/compat . 73)      ; ⽈
+    (ideographic-strokes@ucs/compat . 7)
+    (ideographic-radical@ucs/compat*sources
+     cns11643-6)
+    (ideographic-radical@jis . 13)     ; ⼌
+    (ideographic-strokes@jis . 9)
+    (ideographic-radical@jis*sources
+     daikanwa jis-x0208/1997 cns11643-1)
+    (ideographic-strokes@jis*sources
+     daikanwa)
     (total-strokes      . 11)
     (=ucs              . #x5195)       ; 冕
     (=big5             . #xB0C3)       ; &I-B-B0C3;
@@ -1361,7 +1369,6 @@
     (shinjigen-2       . 524)
     (=gb2312           . #x4361)       ; &GT-02032; [35-65]
     (=jis-x0208@1983   . #x514B)       ; &I-J83-514B; [49-43]
-    (=ks-x1001         . #x5874)       ; &I-K0-5874; [56-84]
     (=jis-x0208@1990   . #x514B)       ; &I-J90-514B; [49-43]
     (=cns11643-1       . #x5928)       ; &I-C1-5928; [57-08]
     (=gt               . 02032)        ; &I-GT-02032;
@@ -1374,20 +1381,34 @@
   '((<-denotational
      ((=ucs              . #x5195)     ; 冕
       ))
-    (ideographic-radical . 13) ; ⼌
-    (ideographic-strokes . 9)
+    (=>ucs*            . #x5195)       ; 冕
+    (=>ucs@ks          . #x5195)       ; &C6-4057;
+    (ideographic-radical@cns . 73)     ; ⽈
+    (ideographic-strokes@cns . 7)
+    (ideographic-radical@jis . 13)     ; ⼌
+    (ideographic-strokes@jis . 9)
     (total-strokes      . 11)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs              . #x2FF1)     ; ⿱
-      )
-     ((=ucs              . #x65E5)     ; 日
+    (=ucs              . #x2F8D3)      ; 冕
+    (->subsumptive
+     ((ideographic-radical . 13)       ; ⼌
+      (ideographic-strokes . 9)
+      (=jis-x0208@1978   . #x514B)     ; &J78-514B; [49-43]
       )
-     ((=gb2312           . #x4362)     ; &C1-492D; [35-66]
-      (=ks-x1001         . #x5873)     ; &I-K0-5873; [56-83]
-      (=cns11643-1       . #x492D)     ; &I-C1-492D; [41-13]
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=cns11643-1       . #x454B)   ; &C1-454B; [37-43]
+       )
+       ((=gb2312           . #x4362)   ; &C1-492D; [35-66]
+       (=ks-x1001          . #x5873)   ; &I-K0-5873; [56-83]
+       (=cns11643-1        . #x492D)   ; &I-C1-492D; [41-13]
+       ))
+      (=ks-x1001         . #x5874)     ; &C6-4057; [56-84]
+      (=cns11643-6       . #x4057)     ; &I-C6-4057; [32-55]
+      (=ucs@iso                  . #x2F8D3)    ; &C6-4057;
+      (=ucs@ks           . #x5195)     ; &C6-4057;
       ))
-    (=jis-x0208@1978   . #x514B)       ; &J78-514B; [49-43]
     ))
 (define-char
   '((<-denotational