(U+51B4): Use `->subsumptive'; use `<-wrong*sources' instead of

char-ref in `<-wrong'.
(J78-3A63): Moved into U+51B4.
(J83-3A63): Likewise.
(CB06339): Likewise.

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index be8b231..c6198e8 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -216,56 +216,59 @@
     ))
 (define-char
   '((ideographic-radical . 15) ; ⼎
-    (ideographic-strokes . 4)
-    (total-strokes      . 6)
-    (<-wrong
-     (:sources (morohashi-daikanwa shinjigen-1)
-      :char    ((shinjigen-1        . 542)
-                (=daikanwa          . 01613)   ; &I-M-01613;
-                )
-      ))
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs              . #x2FF0)     ; ⿰
-      )
-     ((=ucs              . #x51AB)     ; 冫
+    (=ucs              . #x51B4)       ; 冴
+    (->subsumptive
+     ((ideographic-strokes . 4)
+      (total-strokes      . 6)
+      (->subsumptive
+       ((<-wrong
+        ((shinjigen-1        . 542)
+         (=ucs               . #x51B1) ; 冱
+         (=jis-x0208         . #x5154) ; &I-J90-5154;
+         (=daikanwa          . 01613)  ; &I-M-01613;
+         ))
+       (<-wrong*sources
+        daikanwa shinjigen-1)
+       (ideographic-structure
+        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+         (=ucs               . #x2FF0) ; ⿰
+         )
+        ((=ucs               . #x51AB) ; 冫
+         )
+        ((=ucs               . #x7259) ; 牙
+         ))
+       (shinjigen-1        . 544)
+       (shinjigen-2        . 544)
+       (=daikanwa          . 01615)    ; &M-01615;
+       (=ucs@unicode       . #x51B4)   ; &M-01615;
+       )
+       ((ideographic-structure
+        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+         (=ucs               . #x2FF0) ; ⿰
+         )
+        ((=ucs               . #x51AB) ; 冫
+         )
+        ((=cns11643-1        . #x455B) ; &M-19909;
+         (=daikanwa          . 19909)  ; &I-M-19909;
+         ))
+       (=cns11643-3        . #x227C)   ; &C3-227C;
+       ))
       )
-     ((=ucs              . #x7259)     ; 牙
+     ((ideographic-strokes . 5)
+      (total-strokes      . 7)
+      (->subsumptive
+       ((=jis-x0208-1978    . #x3A63)  ; &J78-3A63;
+       )
+       ((=jis-x0208-1983    . #x3A63)  ; &GT-02143;
+       (=jis-x0208-1990    . #x3A63)   ; &I-J90-3A63;
+       (=gt                . 02143)    ; &I-GT-02143;
+       (=gt-pj-1           . #x3A63)   ; &I-GT-02143;
+       (=jef-china3        . #x44A5)   ; &I-JC3-44A5;
+       (=ucs@jis           . #x51B4)   ; &GT-02143;
+       )
+       ((=cbeta                    . 06339)    ; &CB06339;
+       ))
       ))
-    (shinjigen-1       . 544)
-    (shinjigen-2       . 544)
-    (=ucs              . #x51B4)       ; 冴
-    (=cns11643-3       . #x227C)       ; &I-C3-227C;
-    (=daikanwa         . 01615)        ; &I-M-01615;
-    ))
-(define-char
-  '((=>ucs             . #x51B4)       ; 冴
-    (morohashi-daikanwa        1615 0 1)
-    (ideographic-radical . 15) ; ⼎
-    (ideographic-strokes . 5)
-    (total-strokes      . 7)
-    (=jis-x0208-1978   . #x3A63)       ; &J78-3A63;
-    ))
-(define-char
-  '((=>ucs             . #x51B4)       ; 冴
-    (morohashi-daikanwa        1615 0 2)
-    (ideographic-radical . 15) ; ⼎
-    (ideographic-strokes . 5)
-    (total-strokes      . 7)
-    (=jis-x0208-1983   . #x3A63)       ; &GT-02143;
-    (=jis-x0208-1990   . #x3A63)       ; &I-J90-3A63;
-    (=gt               . 02143)        ; &I-GT-02143;
-    (=gt-pj-1          . #x3A63)       ; &I-GT-02143;
-    (=jef-china3       . #x44A5)       ; &I-JC3-44A5;
-    (=ucs@jis          . #x51B4)       ; &GT-02143;
-    ))
-(define-char
-  '((=>ucs             . #x51B4)       ; 冴
-    (morohashi-daikanwa        1615 0 3)
-    (ideographic-radical . 15) ; ⼎
-    (ideographic-strokes . 5)
-    (total-strokes      . 7)
-    (=cbeta            . 06339)        ; &CB06339;
     ))
 (define-char
   '((ideographic-radical . 15) ; ⼎