From: tomo <tomo>
Date: Sat, 16 Apr 2005 23:48:15 +0000 (+0000)
Subject: (GT-K00606): Add `<-ideographic-component-forms' for U+821F.
X-Git-Tag: r21-4-15-chise-0_22^2~172
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=4f2910b9e9bd89dba5bc211352691e5082d4c3b2

(GT-K00606): Add `<-ideographic-component-forms' for U+821F.
(GT-K00607): Likewise.
---

diff --git a/lisp/utf-2000/Ideograph-R137-Boat.el b/lisp/utf-2000/Ideograph-R137-Boat.el
index e5202cd..43131ac 100644
--- a/lisp/utf-2000/Ideograph-R137-Boat.el
+++ b/lisp/utf-2000/Ideograph-R137-Boat.el
@@ -16,18 +16,22 @@
     (=daikanwa		. 30350)	; &I-M-30350;
     ))
 (define-char
-  '((morohashi-daikanwa	30350 0 7)
-    (ideographic-radical . 137)	; ⾈
+  '((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]
     ))
 (define-char
-  '((morohashi-daikanwa	30350 0 8)
-    (ideographic-radical . 137)	; ⾈
+  '((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]
     ))