From: tomo <tomo>
Date: Tue, 2 Dec 2003 11:18:25 +0000 (+0000)
Subject: (<CJK RADICAL REPEAT>): Add `<-ideographic-component-forms' for
X-Git-Tag: r21-4-14-chise-0_21-c5-ext-b-r160^2~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f6c8f61b0646b02d960d2e3db7ee2a1af99f71ed;p=chise%2Fxemacs-chise.git

(<CJK RADICAL REPEAT>): Add `<-ideographic-component-forms' for
U-00020120.
(<CJK RADICAL MEAT>): Add `<-ideographic-component-forms' for U+8089.
(BC-8958): Likewise.
(BC-8A73): Likewise.
(<CJK RADICAL RAIN>): Add `<-ideographic-component-forms' for U+96E8.
---

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 60905c7..e75b46a 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -4,6 +4,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x20120)	; 𠄠
+      ))
     (=ucs		. #x2E80)	; ⺀
     ))
 (define-char
@@ -641,6 +644,9 @@
     (ideographic-radical . 130)	; ⾁
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x8089)	; 肉
+      ))
     (=ucs		. #x2EBC)	; ⺼
     (=gt		. 37857)	; ý¡€‰¡
     (=gt-pj-6		. #x3879)	; ý¡€‰¡
@@ -652,6 +658,9 @@
     (ideographic-radical . 130)	; ⾁
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x8089)	; 肉
+      ))
     (=big5-cdp		. #x8958)	; ý¢€ˆ¥˜
     (=gt-k		. 00417)	; ý¡„€†¡
     (=gt-pj-k1		. #x377D)	; ý¢€ˆ¥˜
@@ -662,6 +671,9 @@
     (ideographic-radical . 130)	; ⾁
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x8089)	; 肉
+      ))
     (=big5-cdp		. #x8A73)	; ý¢€ˆ©³
     ))
 (define-char
@@ -939,6 +951,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x96E8)	; 雨
+      ))
     (=ucs		. #x2ED7)	; ⻗
     ))
 (define-char