From: tomo <tomo>
Date: Mon, 21 Mar 2005 08:17:02 +0000 (+0000)
Subject: (U+2E81): Add `<-ideographic-component-forms' for U+5382.
X-Git-Tag: r21-4-15-chise-0_22^2~295
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=283e6df0c5fb684a6adc2fd897914a3d957b8314;p=chise%2Fxemacs-chise.git

(U+2E81): Add `<-ideographic-component-forms' for U+5382.
(<CJK RADICAL GRASS TWO>): Use `->subsumptive' to integrate U+FA5E.
(<CJK RADICAL GRASS THREE>): Use `->subsumptive' to integrate U+FA5D.
---

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index c7242d9..da108e8 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -14,6 +14,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x5382)	; 厂
+      ))
     (<-radical
      ((=ucs		  . #x20086)	; 𠂆
       ))
@@ -775,6 +778,10 @@
     (=daikanwa		. 30639)	; &I-M-30639;
     (=ucs@cns		. #x8279)	; ⺿
     (=ucs@jis		. #xFA5E)	; ⺿
+    (->subsumptive
+     ((=>ucs*		  . #x8279)	; 艹
+      (=ucs		  . #xFA5E)	; 艹
+      ))
     ))
 (define-char
   '((name		. "CJK RADICAL GRASS THREE")
@@ -793,6 +800,10 @@
     (=gt-k		. 00569)	; &I-GT-K00569;
     (=gt-pj-9		. #x4E5A)	; &I-GT-39645; [46-58]
     (=ucs@jis		. #xFA5D)	; ⻀
+    (->subsumptive
+     ((=>ucs*		  . #x8279)	; 艹
+      (=ucs		  . #xFA5D)	; 艹
+      ))
     ))
 (define-char
   '((name		. "CJK RADICAL TIGER")