From: tomo <tomo>
Date: Wed, 18 Feb 2004 10:44:55 +0000 (+0000)
Subject: (GT-00010): Separate U+624D, G0-3245 and C1-445F; use
X-Git-Tag: r21-4-14-chise-0_21-25^2~30
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=659ccfcb8562bef9326c17b4b779cccf640fa99a;p=chise%2Fxemacs-chise.git

(GT-00010): Separate U+624D, G0-3245 and C1-445F; use
`ideographic-{radical|strokes}' instead of `ideographic-'; use
`<-unknown' for U+624D.
(U+4E22): Unify C3-2263, GT-00193, GT-K02131, M-00144, H1-F56D and
JC3-41BA instead of using `->same-ideograph' for M-00144; use
`ideographic-radical@{ucs|cns}'; don't use
`hanyu-dazidian-{vol|page|char}'.
(C6-2936): Use `<-ancient-ideograph*sources' instead of char-ref in
`<-ancient-ideograph'.
(C3-2740): Likewise.
---

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 5879515..1093184 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -402,17 +402,12 @@
     (=daikanwa		. 00018)	; ø¸€€’
     ))
 (define-char
-  '((morohashi-daikanwa	11769 0 1)
-    (ideographic-	(:radical	64 ; ⼿
-			 :strokes	0
-			 :sources	(morohashi-daikanwa cns-11643 ucs))
-			(:radical	1 ; ⼀
-			 :strokes	2
-			 :sources	(gt)))
+  '((ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 2)
     (total-strokes	 . 3)
-    (=ucs		. #x624D)	; 才
-    (=gb2312		. #x3245)	; ø»„Ÿ¦
-    (=cns11643-1	. #x445F)	; ø»‘¶´
+    (<-unknown
+     ((=ucs		  . #x624D)	; 才
+      ))
     (=gt		. 00010)	; ý¡€€€Š
     (=gt-k		. 00176)	; ý¡„€‚°
     (=gt-pj-9		. #x4A2B)	; ý¡€€€Š
@@ -1377,6 +1372,30 @@
     (=daikanwa		. 00046)	; ø¸€€®
     ))
 (define-char
+  '((ideographic-radical@ucs . 1)	; ⼀
+    (ideographic-radical@cns . 4)	; ⼃
+    (ideographic-strokes . 5)
+    (total-strokes	 . 6)
+    (hanyu-dazidian	1 386 3)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E3F)	; 丿
+      )
+     ((=ucs		  . #x53BB)	; 去
+      ))
+    (=ucs		. #x4E22)	; 丢
+    (=gb2312		. #x362A)	; ø»„¥ƒ
+    (=cns11643-3	. #x2263)	; ø»•™„
+    (=gt		. 00193)	; ý¡€€ƒ
+    (=gt-k		. 02131)	; ý¡„€¡“
+    (=gt-pj-2		. #x3132)	; ý¡€€ƒ
+    (=daikanwa		. 00144)	; ø¸€‚
+    (=hanziku-1		. #xF56D)	; ý¢€Ÿ•­
+    (=jef-china3	. #x41BA)	; øº„†º
+    ))
+(define-char
   '((ideographic-	(:radical	1 ; ⼀
 			 :strokes	5)
 			(:radical	55 ; ⼶
@@ -1419,27 +1438,6 @@
   '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 5)
     (total-strokes	 . 6)
-    (hanyu-dazidian-vol	 . 1)
-    (hanyu-dazidian-page . 386)
-    (hanyu-dazidian-char . 3)
-    (->same-ideograph
-     ((=daikanwa	  . 00144)	; ø¸€‚
-      ))
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=ucs		  . #x4E3F)	; 丿
-      )
-     ((=ucs		  . #x53BB)	; 去
-      ))
-    (=ucs		. #x4E22)	; 丢
-    (=gb2312		. #x362A)	; ø»„¥ƒ
-    ))
-(define-char
-  '((ideographic-radical . 1)	; ⼀
-    (ideographic-strokes . 5)
-    (total-strokes	 . 6)
     (hanyu-dazidian	1 17 9)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -1896,11 +1894,11 @@
      ((=daikanwa	  . 00104)	; ø¸€¨
       ))
     (<-ancient-ideograph
-     (:sources	(morohashi-daikanwa)
-      :char	((ideographic-radical . 198)	; ⿅
-		 (=daikanwa	     . 47663)	; ø¸‹¨¯
-		 )
+     ((ideographic-radical . 198)	; ⿅
+      (=daikanwa	  . 47663)	; ø¸‹¨¯
       ))
+    (<-ancient-ideograph*sources
+     daikanwa)
     (=cns11643-6	. #x2936)	; ø»œ€µ
     (=gt		. 00087)	; ý¡€€—
     (=gt-pj-2		. #x304B)	; ý¡€€—
@@ -1935,10 +1933,11 @@
       (=daikanwa	  . 00059)	; ø¸€€»
       ))
     (<-ancient-ideograph
-     (:char	((ideographic-radical . 198)	; ⿅
-		 (=daikanwa	     . 47663)	; ø¸‹¨¯
-		 )
-      :sources	(morohashi-daikanwa)))
+     ((ideographic-radical . 198)	; ⿅
+      (=daikanwa	  . 47663)	; ø¸‹¨¯
+      ))
+    (<-ancient-ideograph*sources
+     daikanwa)
     (hanyu-dazidian	1 24 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")