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

`<-vulgar-ideograph'.
(U+5F53): Use `<-simplified' and `<-simplified*sources' instead of
`simplified-ideograph-of'.

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index 15e82f0..403f72a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -106,10 +106,10 @@
     (ideographic-strokes . 3)
     (total-strokes      . 6)
     (<-vulgar-ideograph
-     (:sources (morohashi-daikanwa)
-      :char    ((=daikanwa          . 21890)   ; �����
-                )
+     ((=daikanwa         . 21890)      ; �����
       ))
+    (<-vulgar-ideograph*sources
+     daikanwa)
     (=ucs              . #x22450)      ; 𢑐
     (=cns11643-6       . #x246E)       ; �����
     (=daikanwa         . 09912)        ; �����
@@ -118,12 +118,12 @@
   '((ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 3)
     (total-strokes      . 6)
-    (shinjigen-2       . 5071)
-    (simplified-ideograph-of
-     ((sources           morohashi-daikanwa)
-      (char . ((=daikanwa         . 21890)     ; �����
-              ))
+    (<-simplified
+     ((=daikanwa         . 21890)      ; �����
       ))
+    (<-simplified*sources
+     daikanwa)
+    (shinjigen-2       . 5071)
     (=ucs              . #x5F53)       ; 当
     (=jis-x0208                . #x4576)       ; �����
     (=gb2312           . #x3531)       ; �����