(M-01718): Use `<-vulgar-ideograph*sources' instead of char-ref in

`<-vulgar-ideograph'; simplify `ideographic-structure'.
(C3-4B30): Simplify `ideographic-structure'.
(J90-515B): Likewise.
(U+51DB): Likewise.

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index d838725..eea4ccb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -2407,24 +2407,18 @@
     (ideographic-strokes . 13)
     (total-strokes      . 15)
     (<-vulgar-ideograph
-     (:char    ((shinjigen-1        . 561)
-                (=daikanwa          . 01717)   ; �����
-                )
-      :sources (henkai morohashi-daikanwa shinjigen-1)))
+     ((shinjigen-1       . 561)
+      (=daikanwa         . 01717)      ; �����
+      ))
+    (<-vulgar-ideograph*sources
+     pianhai daikanwa shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰
       )
      ((=ucs              . #x51AB)     ; 冫
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-       (=ucs               . #x2FF1)   ; ⿱
-       )
-       ((=daikanwa         . 00300)    ; �����
-       )
-       ((=daikanwa         . 24623)    ; �����
-       ))
+     ((=daikanwa         . 24742)      ; �����
       ))
     (shinjigen-1       . 563)
     (shinjigen-2       . 563)
@@ -2444,14 +2438,7 @@
       )
      ((=ucs              . #x51AB)     ; 冫
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-       (=ucs               . #x2FF1)   ; ⿱
-       )
-       ((=ucs              . #x342D)   ; 㐭
-       )
-       ((=daikanwa         . 24623)    ; �����
-       ))
+     ((=cns11643-3       . #x433D)     ; �����
       ))
     (=cns11643-3       . #x4B30)       ; �����
     ))
@@ -2467,14 +2454,7 @@
       )
      ((=ucs              . #x51AB)     ; 冫
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-       (=ucs               . #x2FF1)   ; ⿱
-       )
-       ((=daikanwa         . 00300)    ; �����
-       )
-       ((=ucs              . #x793A)   ; 示
-       ))
+     ((=jis-x0208        . #x6349)     ; �����
       ))
     (=jis-x0208-1990   . #x515B)       ; �����
     (=gt               . 02257)        ; ������
@@ -2493,14 +2473,7 @@
       )
      ((=ucs              . #x51AB)     ; 冫
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-       (=ucs               . #x2FF1)   ; ⿱
-       )
-       ((=ucs              . #x342D)   ; 㐭
-       )
-       ((=ucs              . #x793A)   ; 示
-       ))
+     ((=ucs              . #x7980)     ; 禀
       ))
     (=ucs              . #x51DB)       ; 凛
     (=gb2312           . #x415D)       ; �����