From b16a0211ea63ea58530c065cef19b425bb84fd44 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 7 Jan 2016 14:20:20 +0900
Subject: [PATCH] (U-000209E1): Use `->subsumptive'; add `<-ancient' for
 UU+5C08.

---
 lisp/utf-2000/Ideograph-R025-Divination.el |   28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 5eba97e..22f5ad1 100644
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -662,15 +662,27 @@
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
     (=ucs		. #x209E1)	; 𠧡
+    (=cns11643-6	. #x297B)	; &I-C6-297B; [09-91]
     (=daikanwa		. 02801)	; &I-M-02801;
-    ))
-(define-char
-  '((=>ucs		. #x209E1)	; 𠧡
-    (morohashi-daikanwa	2801 0 0)
-    (ideographic-radical . 25)	; ⼘
-    (ideographic-strokes . 6)
-    (total-strokes	 . 8)
-    (=cns11643-6	. #x297B)	; &C6-297B; [09-91]
+    (<-ancient
+     ((=ucs@unicode	  . #x5C08)	; &AJ1-04642;
+      (=adobe-japan1-0	  . 04642)	; &AJ1-04642;
+      (=daikanwa	  . 07439)	; &I-M-07439;
+      ))
+    (<-ancient*sources
+     kangxi daikanwa)
+    (->subsumptive
+     ((==ucs@iso	  . #x209E1)	; &g2-M-02801;
+      (==daikanwa	  . 02801)	; &g2-M-02801;
+      (->subsumptive
+       ((===daikanwa	    . 02801)	; &R-M-02801;
+	)
+       ((===ucs@iso	    . #x209E1)	; &R-U-000209E1;
+	))
+      )
+     ((==ucs@cns	  . #x209E1)	; &g2-CU+209E1;
+      (==cns11643-6	  . #x297B)	; &g2-CU+209E1; [09-91]
+      ))
     ))
 (define-char
   '((ideographic-radical . 25)	; ⼘
-- 
1.7.10.4