From: tomo <tomo>
Date: Wed, 23 Oct 2002 11:21:48 +0000 (+0000)
Subject: (C3-2740): Unify M-00104; don't use `->identical'.
X-Git-Tag: r21-2-44-utf-2000-0_18-m16~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f10e1157cc9571b1c44d3ef62fe0c395d09baf7e;p=chise%2Fxemacs-chise.git-

(C3-2740): Unify M-00104; don't use `->identical'.
---

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index b5906be..8095dc8 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -1912,8 +1912,7 @@
     (ideographic-strokes . 7)
     (total-strokes	 . 8)
     (->same-ideograph
-     ((ideographic-radical . 3)	; ⼂
-      (ideograph-daikanwa . 00104)	; ø¸€¨
+     ((ideograph-daikanwa . 00104)	; ø¸€¨
       ))
     (<-ancient-ideograph
      (:sources	(morohashi-daikanwa)
@@ -1928,14 +1927,33 @@
     (mojikyo		. 000059)	; ý €€€»
     ))
 (define-char
-  '((=>ucs		. #x4E3D)	; 丽
-    (morohashi-daikanwa	59 0 2)
-    (ideographic-radical . 1)	; ⼀
+  '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 7)
     (total-strokes	 . 8)
-    (->identical
-     ((ideographic-radical . 3)	; ⼂
-      (ideograph-daikanwa . 00104)	; ø¸€¨
+    (ideograph-gt-pj-2	. #x304C)	; ý¡€€“
+    (ideograph-daikanwa . 00060)	; ø¸€€¼
+    (china3-jef		. #x8EF3)	; øºˆ»³
+    (ideograph-gt	. 00083)	; ý¡€€“
+    (mojikyo		. 000060)	; ý €€€¼
+    ))
+(define-char
+  '((=>ucs		. #x4E3D)	; 丽
+    (ideographic-	(:radical	1 ; ⼀
+			 :strokes	7
+			 :sources	(cns-11643))
+			(:radical	3 ; ⼂
+			 :strokes	7
+			 :sources	(morohashi-daikanwa gt)))
+    (total-strokes	 . 8)
+    (->same-ideograph
+     ((ideographic-radical . 1)	; ⼀
+      (ideograph-daikanwa . 00059)	; ø¸€€»
+      ))
+    (<-ancient-ideograph
+     (:sources	(morohashi-daikanwa)
+      :char	((ideographic-radical . 198)	; ⿅
+		 (ideograph-daikanwa . 47663)	; ø¸‹¨¯
+		 )
       ))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -1974,16 +1992,10 @@
 	))
       ))
     (chinese-cns11643-3 . #x2740)	; ø»•Ÿ·
-    ))
-(define-char
-  '((ideographic-radical . 1)	; ⼀
-    (ideographic-strokes . 7)
-    (total-strokes	 . 8)
-    (ideograph-gt-pj-2	. #x304C)	; ý¡€€“
-    (ideograph-daikanwa . 00060)	; ø¸€€¼
-    (china3-jef		. #x8EF3)	; øºˆ»³
-    (ideograph-gt	. 00083)	; ý¡€€“
-    (mojikyo		. 000060)	; ý €€€¼
+    (ideograph-gt-pj-2	. #x3071)	; ý¡€€‚‘
+    (ideograph-daikanwa . 00104)	; ø¸€¨
+    (ideograph-gt	. 00145)	; ý¡€€‚‘
+    (mojikyo		. 000104)	; ý €€¨
     ))
 (define-char
   '((ideographic-radical . 1)	; ⼀