From: tomo <tomo>
Date: Wed, 22 Jun 2005 04:33:14 +0000 (+0000)
Subject: (U+620B): Add `<-simplified@CN' for U+6214; use `->subsumptive' to
X-Git-Tag: r21-4-15-chise-0_22-1^2~59
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=57c9d582571262abaa0721dd7da265eaeccf4733

(U+620B): Add `<-simplified@CN' for U+6214; use `->subsumptive' to
integrate BC-89DC.
(U+39AE): Add `<-simplified@component' for U+6214; use
`->subsumptive'; integrate BC-89DD.
(M-11542): Add `<-subsumptive' for U+39AE; add `<-simplified' for
U+9322.
(GT-K02180): Use `<-denotational' for U+39AE; add
`<-ideographic-component-forms' for U+39AE.
---

diff --git a/lisp/utf-2000/Ideograph-R062-Halberd.el b/lisp/utf-2000/Ideograph-R062-Halberd.el
index a280b6f..dcea038 100644
--- a/lisp/utf-2000/Ideograph-R062-Halberd.el
+++ b/lisp/utf-2000/Ideograph-R062-Halberd.el
@@ -78,8 +78,17 @@
   '((ideographic-radical . 62)	; â¼½
     (ideographic-strokes . 1)
     (total-strokes	 . 5)
+    (<-simplified@CN
+     ((=ucs		  . #x6214)	; 戔
+      (=gb12345		  . #x6A27)	; 戔 [74-07]
+      ))
     (=ucs		. #x620B)	; 戋
-    (=gb2312		. #x6A27)	; &I-G0-6A27; [74-07]
+    (->subsumptive
+     ((=gb2312		  . #x6A27)	; &G0-6A27; [74-07]
+      (=ucs@unicode	  . #x620B)	; &G0-6A27;
+      )
+     ((=big5-cdp	  . #x89DC)	; &CDP-89DC;
+      ))
     ))
 (define-char
   '((ideographic-radical . 62)	; â¼½
@@ -175,16 +184,36 @@
   '((ideographic-radical . 62)	; â¼½
     (ideographic-strokes . 2)
     (total-strokes	 . 6)
+    (<-simplified@component
+     ((=ucs		  . #x6214)	; 戔
+      ))
     (=ucs		. #x39AE)	; 㦮
-    (=cns11643-3	. #x236A)	; &I-C3-236A; [03-74]
-    (=daikanwa		. 11542)	; &I-M-11542;
+    (->subsumptive
+     ((<-simplified
+       ((=ucs		    . #x9322)	; 錢
+	(=daikanwa	    . 40563)	; &I-M-40563;
+	))
+      (<-simplified*sources
+       daikanwa)
+      (=daikanwa	  . 11542)	; &M-11542;
+      )
+     ((=cns11643-3	  . #x236A)	; &C3-236A; [03-74]
+      )
+     ((=ucs@unicode	  . #x39AE)	; &UU+39AE;
+      )
+     ((=big5-cdp	  . #x89DD)	; &CDP-89DD;
+      ))
     ))
 (define-char
-  '((=>ucs		. #x39AE)	; 㦮
-    (morohashi-daikanwa	11542 0 0)
-    (ideographic-radical . 62)	; â¼½
+  '((ideographic-radical . 62)	; â¼½
     (ideographic-strokes . 2)
     (total-strokes	 . 6)
+    (<-denotational
+     ((=ucs		  . #x39AE)	; 㦮
+      ))
+    (<-ideographic-component-forms
+     ((=ucs		  . #x39AE)	; 㦮
+      ))
     (=gt-k		. 02180)	; &GT-K02180;
     (=gt-pj-k1		. #x3564)	; &GT-K02180; [21-68]
     ))