From: tomo <tomo>
Date: Thu, 25 Dec 2003 19:45:10 +0000 (+0000)
Subject: (C7-476E): Unify U-00021109 and H2-E2D9 instead of using
X-Git-Tag: r21-4-14-chise-0_21-16^2~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f0ea910a46199ddeecd96c092aa4663f9b1e60fc;p=chise%2Fxemacs-chise.git-

(C7-476E): Unify U-00021109 and H2-E2D9 instead of using
`->identical'; use `ideographic-{radical|strokes}@{ucs|cns}' and
`ideographic-radical@cns*sources' instead.
(U-00020442): Use `ideographic-{radical|strokes}@{ucs|cns}' and
`ideographic-radical@cns*sources' instead of `ideographic-'.
---

diff --git a/lisp/utf-2000/Ideograph-R089-Double-X.el b/lisp/utf-2000/Ideograph-R089-Double-X.el
index 194530e..317de6e 100644
--- a/lisp/utf-2000/Ideograph-R089-Double-X.el
+++ b/lisp/utf-2000/Ideograph-R089-Double-X.el
@@ -324,21 +324,25 @@
 (define-char
   '((=>ucs		. #x21109)	; 𡄉
     (morohashi-daikanwa	19756 0 0)
-    (ideographic-radical . 89)	; ⽘
-    (ideographic-strokes . 15)
+    (ideographic-radical@ucs . 30)	; ⼝
+    (ideographic-strokes@ucs . 16)
+    (ideographic-radical@cns . 89)	; ⽘
+    (ideographic-strokes@cns . 15)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes	 . 19)
-    (->identical
-     ((=ucs		  . #x21109)	; 𡄉
-      ))
+    (hanyu-dazidian	1 703 3)
+    (=ucs		. #x21109)	; 𡄉
     (=cns11643-7	. #x476E)	; ø»ž·µ
+    (=hanziku-2		. #xE2D9)	; ý¢€®‹™
     ))
 (define-char
-  '((ideographic-	(:radical	89 ; ⽘
-			 :strokes	15
-			 :sources	(morohashi-daikanwa cns-11643))
-			(:radical	9 ; ⼈
-			 :strokes	17
-			 :sources	(ucs)))
+  '((ideographic-radical@ucs . 9)	; ⼈
+    (ideographic-strokes@ucs . 17)
+    (ideographic-radical@cns . 89)	; ⽘
+    (ideographic-strokes@cns . 15)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes	 . 19)
     (hanyu-dazidian	1 237 5)
     (ideographic-structure