(C4-213F): Use `<-original-ideograph*sources' instead of char-ref in

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R015-Ice.el

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index 0204f20..d838725 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -176,9 +176,10 @@
       (=daikanwa         . 00360)      ; ø¸€…¨
       ))
     (<-original-ideograph
-     (:char    ((=daikanwa          . 01612)   ; ø¸€™Œ
-                )
-      :sources (morohashi-daikanwa)))
+     ((=daikanwa         . 01612)      ; ø¸€™Œ
+      ))
+    (<-original-ideograph*sources
+     daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱