(U+663C): Use `->subsumptive' for M-07705, M-13886 and C3-2C37.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R025-Divination.el

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 71c112b..0b01c9c 100644 (file)
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -32,13 +32,13 @@
     (ideographic-strokes . 0)
     (total-strokes      . 2)
     (->same
-     ((=daikanwa         . 00069)      ; �����
+     ((=ucs              . #x20061)    ; 𠁡
       ))
     (<-ancient-ideograph
-     (:sources (shuowen morohashi-daikanwa)
-      :char    ((=daikanwa          . 02774)   ; �����
-                )
+     ((=daikanwa         . 02774)      ; �����
       ))
+    (<-ancient-ideograph*sources
+     shuowen daikanwa)
     (=cns11643-6       . #x212C)       ; �����
     (=daikanwa         . 02775)        ; �����
     ))