From: tomo <tomo>
Date: Thu, 29 Dec 2005 07:12:35 +0000 (+0000)
Subject: (GT-K00606): Use `<-formed@component' instead of
X-Git-Tag: r21-4-17-chise-0_22-6^20~154
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=90d4c145a23e13d0d8d8519eac8994c2e80ee34d;p=chise%2Fxemacs-chise.git

(GT-K00606): Use `<-formed@component' instead of
`<-ideographic-component-forms'.
(GT-K00607): Likewise.
(U-00026A07): Use `->subsumptive'.
(U-000200A8): Copied from Ideograph-R004-Slash.el.
(M-30352): Add `<-subsumptive' for U-000200A8; unify H1-ABE2.
(J90-6764): Use `<-simplified@JP/jis' instead of `<-simplified@JP' for
J78-6764.
---

diff --git a/lisp/utf-2000/Ideograph-R137-Boat.el b/lisp/utf-2000/Ideograph-R137-Boat.el
index 4a88b09..48e1b89 100644
--- a/lisp/utf-2000/Ideograph-R137-Boat.el
+++ b/lisp/utf-2000/Ideograph-R137-Boat.el
@@ -19,35 +19,57 @@
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-ideographic-component-forms
-     ((=ucs		  . #x821F)	; 舟
-      ))
     (=gt-k		. 00606)	; &GT-K00606;
     (=gt-pj-k1		. #x3973)	; &GT-K00606; [25-83]
+    (<-formed@component
+     ((=ucs		  . #x821F)	; 舟
+      ))
     ))
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-ideographic-component-forms
-     ((=ucs		  . #x821F)	; 舟
-      ))
     (=gt-k		. 00607)	; &GT-K00607;
     (=gt-pj-k1		. #x3821)	; &GT-K00607; [24-01]
+    (<-formed@component
+     ((=ucs		  . #x821F)	; 舟
+      ))
     ))
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 1)
     (total-strokes	 . 7)
     (=ucs		. #x26A07)	; 𦨇
-    (=cns11643-5	. #x2474)	; &I-C5-2474; [04-84]
-    (=daikanwa		. 30351)	; &I-M-30351;
+    (->subsumptive
+     ((=daikanwa	  . 30351)	; &M-30351;
+      )
+     ((=cns11643-5	  . #x2474)	; &C5-2474; [04-84]
+      (=ucs@iso		  . #x26A07)	; &C5-2474;
+      ))
     ))
 (define-char
-  '((ideographic-radical . 137)	; ⾈
-    (ideographic-strokes . 1)
+  '((ideographic-radical@ucs . 4)	; ⼃
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@daikanwa . 137)	; ⾈
+    (ideographic-strokes@daikanwa . 1)
     (total-strokes	 . 6)
-    (=daikanwa		. 30352)	; &M-30352;
+    (=ucs		. #x200A8)	; 𠂨
+    (->subsumptive
+     ((hanyu-dazidian	  1 38 12)
+      (=daikanwa	  . 30352)	; &M-30352;
+      (=hanziku-1	  . #xABE2)	; &I-HZK01-ABE2;
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x4E3F)	; 丿
+	)
+       ((=ucs		    . #x518A)	; 冊
+	))
+      (=cns11643-6	  . #x2343)	; &C6-2343; [03-35]
+      (=ucs@iso		  . #x200A8)	; &C6-2343;
+      ))
     ))
 (define-char
   '((ideographic-radical . 137)	; ⾈
@@ -592,14 +614,14 @@
     (ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 4)
     (total-strokes	 . 10)
-    (<-simplified@JP
-     ((=jis-x0208@1978	  . #x6764)	; &GT-39314; [71-68]
-      ))
     (=jis-x0208@1983	. #x6764)	; &GT-39313; [71-68]
     (=jis-x0208@1990	. #x6764)	; &I-J90-6764; [71-68]
     (=gt		. 39313)	; &I-GT-39313;
     (=gt-pj-1		. #x6764)	; &I-GT-39313; [71-68]
     (=ucs@jis		. #x822E)	; &GT-39313;
+    (<-simplified@JP/jis
+     ((=jis-x0208@1978	  . #x6764)	; &GT-39314; [71-68]
+      ))
     ))
 (define-char
   '((ideographic-radical . 137)	; ⾈