From: tomo <tomo>
Date: Fri, 1 Aug 2003 12:36:53 +0000 (+0000)
Subject: (U-00020088): Separate C6-2124.
X-Git-Tag: r21-4-12-chise-0_21-pre2^2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dd3d3e69ce97b501061b86b97bf2bee1861c4e8a;p=chise%2Fxemacs-chise.git

(U-00020088): Separate C6-2124.
(C6-2124): Unify GT-K00130.
(U-00020089): Use `ideographic-{radical|strokes}@{ucs|gt|misc}' and
`ideographic-radical@{ucs|gt}*sources' instead of `ideographic-';
delete `ideograph-cdp'.
---

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index 8e7ad8b..9b87461 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -169,10 +169,19 @@
     (ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
-    (=cns11643-6	. #x2124)	; ø»›´³
     (=ucs		. #x20088)	; 𠂈
     ))
 (define-char
+  '((=>ucs		. #x20088)	; 𠂈
+    (morohashi-daikanwa	114 0 2)
+    (ideographic-radical . 4)	; ⼃
+    (ideographic-strokes . 1)
+    (total-strokes	 . 2)
+    (=cns11643-6	. #x2124)	; ø»›´³
+    (=gt-pj-k2		. #x322C)	; ø»›´³
+    (=gt-k		. 00130)	; ý¡„€‚‚
+    ))
+(define-char
   '((ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
@@ -215,16 +224,17 @@
     ))
 (define-char
   '((name*		. "ideographic component person for top")
-    (ideographic-	(:radical	4 ; ⼃
-			 :strokes	1
-			 :sources	(ucs))
-			(:radical	1 ; ⼀
-			 :strokes	1
-			 :sources	(gt))
-			(:radical	9 ; ⼈
-			 :strokes	0))
+    (ideographic-radical@ucs . 4)	; ⼃
+    (ideographic-strokes@ucs . 1)
+    (ideographic-radical@ucs*sources
+     ucs)
+    (ideographic-radical@gt . 1)	; ⼀
+    (ideographic-strokes@gt . 1)
+    (ideographic-radical@gt*sources
+     gt)
+    (ideographic-radical@misc . 9)	; ⼈
+    (ideographic-strokes@misc . 0)
     (total-strokes	 . 2)
-    (ideograph-cdp	. -63)
     (=jis-x0213-2-2000	. #x2121)	; ø»¤€
     (=gt-pj-9		. #x4D4A)	; ý¡€€€ˆ
     (=big5-cdp		. #x8B4A)	; ý¢€ˆ­Š