(M-02775): Add `->same-ideograph' and `<-ancient-ideograph'; relate to

U-00020061.

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 78f3c08..f410207 100644 (file)
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -16,9 +16,18 @@
     (ucs                       . #x535C)       ; 卜
     ))
 (define-char
-  '((ideographic-radical . 25) ; ⼘
+  '((=>ucs             . #x20061)      ; 𠁡
+    (ideographic-radical . 25) ; ⼘
     (ideographic-strokes . 0)
     (total-strokes      . 2)
+    (->same-ideograph
+     ((ideograph-daikanwa . 00069)     ; �����
+      ))
+    (<-ancient-ideograph
+     (:sources (shuowen morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 02774)   ; �����
+                )
+      ))
     (chinese-cns11643-6 . #x212C)      ; �����
     (ideograph-daikanwa . 02775)       ; �����
     ))