From: tomo <tomo>
Date: Thu, 6 Oct 2005 07:29:38 +0000 (+0000)
Subject: (<CJK RADICAL MEAT>): Use `<-formed@component/connect-right' instead
X-Git-Tag: r21-4-17-chise-0_22-4^20~31
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e4bfb0d074c5c8a676a488b47a780b04a5ec0f04;p=chise%2Fxemacs-chise.git-

(<CJK RADICAL MEAT>): Use `<-formed@component/connect-right' instead
of `<-ideographic-component-forms' for U+8089.
(GT-37857): Add `<-formed@component/connect-right' for U+8089.
(BC-8958): Add `<-formed@component/connect-above' for U+8089.
(BC-88F0): Use `<-formed@component' instead of
`<-ideographic-component-forms' for U+8089.
---

diff --git a/lisp/utf-2000/Ideograph-R130-Meat.el b/lisp/utf-2000/Ideograph-R130-Meat.el
index 337db6a..97525ba 100644
--- a/lisp/utf-2000/Ideograph-R130-Meat.el
+++ b/lisp/utf-2000/Ideograph-R130-Meat.el
@@ -23,12 +23,18 @@
     (ideographic-radical . 130)	; ⾁
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-ideographic-component-forms
+    (<-formed@component/connect-right
      ((=ucs		  . #x8089)	; 肉
       ))
     (=ucs		. #x2EBC)	; ⺼
     (->subsumptive
-     ((=gt		  . 37857)	; &GT-37857;
+     ((<-formed@component/connect-right
+       ((=ucs		    . #x8089)	; 肉
+	(=daikanwa	    . 29236)	; &I-M-29236;
+	))
+      (<-formed@component/connect-right*sources
+       zihui/char-index zhengzitong daikanwa)
+      (=gt		  . 37857)	; &GT-37857;
       (=gt-pj-6		  . #x3879)	; &GT-37857; [24-89]
       (=daikanwa	  . 29237)	; &I-M-29237;
       )
@@ -36,7 +42,10 @@
       )
      ((=big5-cdp	  . #x8A73)	; &CDP-8A73;
       )
-     ((=big5-cdp	  . #x8958)	; &CDP-8958;
+     ((<-formed@component/connect-above
+       ((=ucs		    . #x8089)	; 肉
+	))
+      (=big5-cdp	  . #x8958)	; &CDP-8958;
       (=gt-k		  . 00417)	; &I-GT-K00417;
       (=gt-pj-k1	  . #x377D)	; &CDP-8958; [23-93]
       ))
@@ -49,7 +58,7 @@
     (ideographic-radical . 130)	; ⾁
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-ideographic-component-forms
+    (<-formed@component
      ((=ucs		  . #x8089)	; 肉
       ))
     (=big5-cdp		. #x88F0)	; &CDP-88F0;