From 0dc670f02714dbfbbd4b9d1aa540ca23778d6c4e Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 1 Jul 2004 15:48:44 +0000
Subject: [PATCH] (GT-K00061): Use `<-denotational' for U+535C; use
 `=>daikanwa' instead of `morohashi-daikanwa'. (C6-212C):
 Unify U-00020061, BC-87B1 and GT-00103 instead of using
 `->same'; use `->subsumptive' for M-00069 and M-02775.
 (U-000209EA): Use `<-ancient*sources' and
 `<-ancient*denied' instead of char-ref in `<-ancient'.

---
 lisp/utf-2000/Ideograph-R025-Divination.el |   50 ++++++++++++++++++----------
 1 file changed, 33 insertions(+), 17 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index e78dbb6..054471c 100644
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -18,29 +18,41 @@
     (=daikanwa		. 02774)	; &I-M-02774;
     ))
 (define-char
-  '((=>ucs		. #x535C)	; 卜
-    (morohashi-daikanwa	2774 0 0)
+  '((=>daikanwa		. 02774)	; 卜
     (ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
+    (<-denotational
+     ((=ucs		  . #x535C)	; 卜
+      ))
     (=gt-k		. 00061)	; &GT-K00061;
     (=gt-pj-k1		. #x3671)	; &GT-K00061; [22-81]
     ))
 (define-char
-  '((=>ucs		. #x20061)	; 𠁡
-    (ideographic-radical . 25)	; ⼘
-    (ideographic-strokes . 0)
-    (total-strokes	 . 2)
-    (->same
-     ((=ucs		  . #x20061)	; 𠁡
-      ))
+  '((total-strokes	 . 2)
     (<-ancient
-     ((=daikanwa	  . 02774)	; &I-M-02774;
+     ((=ucs		  . #x535C)	; 卜
+      (=daikanwa	  . 02774)	; &I-M-02774;
       ))
     (<-ancient*sources
      shuowen daikanwa)
-    (=cns11643-6	. #x212C)	; &M-02775; [01-12]
-    (=daikanwa		. 02775)	; &I-M-02775;
+    (hanyu-dazidian	1 28 4)
+    (=ucs		. #x20061)	; 𠁡
+    (=cns11643-6	. #x212C)	; &I-C6-212C; [01-12]
+    (=big5-cdp		. #x87B1)	; &I-CDP-87B1;
+    (=gt		. 00103)	; &I-GT-00103;
+    (=gt-pj-2		. #x3055)	; &I-GT-00103; [16-53]
+    (->subsumptive
+     ((ideographic-radical . 2)	; ⼁
+      (ideographic-strokes . 1)
+      (ideographic-radical*sources daikanwa=00069 gt ucs)
+      (=daikanwa	  . 00069)	; &M-00069;
+      )
+     ((ideographic-radical . 25)	; ⼘
+      (ideographic-strokes . 0)
+      (ideographic-radical*sources daikanwa=02775 cns11643)
+      (=daikanwa	  . 02775)	; &M-02775;
+      ))
     ))
 (define-char
   '((ideographic-radical . 25)	; ⼘
@@ -543,11 +555,15 @@
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
     (<-ancient
-     (:sources	(shinjigen-1)
-      :char	((shinjigen-1	     . 839)
-		 (=daikanwa	     . 02791)	; &I-M-02791;
-		 )
-      :denied	(setsumon-tsuukun-teisei morohashi-daikanwa)))
+     ((shinjigen-1	  . 839)
+      (=ucs		  . #x5363)	; 卣
+      (=jis-x0212	  . #x343C)	; &I-JSP-343C; [20-28]
+      (=jis-x0213-1-2000  . #x2E70)	; &I-JX1-2E70; [14-80]
+      ))
+    (<-ancient*denied
+     shuowen-tongxun-dingsheng daikanwa)
+    (<-ancient*sources
+     shinjigen-1)
     (shinjigen-1	. 840)
     (=ucs		. #x209EA)	; 𠧪
     (=cns11643-4	. #x2851)	; &I-C4-2851; [08-49]
-- 
1.7.10.4