X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R025-Divination.el;h=7a4d8096e05a0e4870ce10b2c551916a22a16ca9;hb=6f266bce9f7d3a9a88779ac0fcdd77fc9347ee5e;hp=528becc9332fdda6a4f1a30c42f7d7b940adf9e1;hpb=ed79ca47b430a917433a5f779c37c2f7c8ee11ba;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 528becc..7a4d809 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)	; 𠁡
-      ))
-    (<-ancient-ideograph
-     ((=daikanwa	  . 02774)	; &I-M-02774;
+  '((total-strokes	 . 2)
+    (<-ancient
+     ((=ucs		  . #x535C)	; 卜
+      (=daikanwa	  . 02774)	; &I-M-02774;
       ))
-    (<-ancient-ideograph*sources
+    (<-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)	; ⼘
@@ -542,12 +554,16 @@
   '((ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (<-ancient-ideograph
-     (:sources	(shinjigen-1)
-      :char	((shinjigen-1	     . 839)
-		 (=daikanwa	     . 02791)	; &I-M-02791;
-		 )
-      :denied	(setsumon-tsuukun-teisei morohashi-daikanwa)))
+    (<-ancient
+     ((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]
@@ -675,10 +691,16 @@
     (=daikanwa		. 48951)	; &I-M-48951;
     ))
 (define-char
-  '((=>ucs		. #x5368)	; 卨
-    (ideographic-radical . 25)	; ⼘
+  '((ideographic-radical . 25)	; ⼘
+    (=ucs		. #x5368)	; 卨
+    ))
+(define-char
+  '((ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
+    (<-denotational
+     ((=ucs		  . #x5368)	; 卨
+      ))
     (hanyu-dazidian	1 95 15)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -698,10 +720,12 @@
     (=cbeta		. 05348)	; &I-CB05348;
     ))
 (define-char
-  '((morohashi-daikanwa	2820 0 3)
-    (ideographic-radical . 25)	; ⼘
+  '((ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
+    (<-denotational
+     ((=ucs		  . #x5368)	; 卨
+      ))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -709,9 +733,9 @@
      ((name		  . "CJK RADICAL DIVINATION")
       (=ucs		  . #x2E8A)	; ⺊
       )
-     ((=ucs		  . #x54BC)	; 咼
+     ((=gb12345		  . #x5F43)	; &UU+54BC; [63-35]
       ))
-    (=ucs		. #x5368)	; 卨
+    (=ucs@unicode	. #x5368)	; &UU+5368;
     ))
 (define-char
   '((=>ucs		. #x209FA)	; 𠧺