From d43b52473ea9c2ad6cdacdc941d6f6861403f2ee Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 2 Mar 2006 04:15:37 +0000
Subject: [PATCH] (U-000209D7): Unify GT-03556 and GT-K01787. (U-000209D8):
 Use `->subsumptive'. (M-02786): Map to U-000209D6.

---
 lisp/utf-2000/Ideograph-R025-Divination.el |   27 ++++++++++++++++-----------
 1 file changed, 16 insertions(+), 11 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index b164900..bbd0ac9 100644
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -234,28 +234,33 @@
     (total-strokes	 . 6)
     (=ucs		. #x209D7)	; 𠧗
     (=cns11643-6	. #x2376)	; &I-C6-2376; [03-86]
+    (=gt		. 03556)	; &I-GT-03556;
+    (=gt-k		. 01787)	; &I-GT-K01787;
+    (=gt-pj-2		. #x4878)	; &I-GT-03556; [40-88]
     (=daikanwa		. 02784)	; &I-M-02784;
     ))
 (define-char
-  '((=>ucs		. #x209D8)	; 𠧘
-    (ideographic-radical . 25)	; ⼘
-    (ideographic-strokes . 4)
-    (total-strokes	 . 6)
-    (=daikanwa		. 02785)	; &M-02785;
-    ))
-(define-char
-  '((morohashi-daikanwa	2785 0 0)
-    (ideographic-radical . 25)	; ⼘
+  '((ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
     (=ucs		. #x209D8)	; 𠧘
-    (=cns11643-6	. #x2378)	; &I-C6-2378; [03-88]
+    (->subsumptive
+     ((=daikanwa	  . 02785)	; &M-02785;
+      )
+     ((=cns11643-6	  . #x2378)	; &C6-2378; [03-88]
+      (=ucs@iso		  . #x209D8)	; &C6-2378;
+      ))
     ))
 (define-char
   '((ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
-    (=daikanwa		. 02786)	; &M-02786;
+    (=ucs		. #x209D6)	; 𠧖
+    (->subsumptive
+     ((=daikanwa	  . 02786)	; &M-02786;
+      )
+     ((=ucs@iso		  . #x209D6)	; &U-000209D6;
+      ))
     ))
 (define-char
   '((ideographic-radical . 25)	; ⼘
-- 
1.7.10.4