From: tomo <tomo>
Date: Thu, 8 Sep 2005 13:01:39 +0000 (+0000)
Subject: (GT-K00049): Use `<-denotational' for U+4EBA; add `<-formed@component'
X-Git-Tag: r21-4-17-chise-0_22-4^20~181
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=423752fc02c808cd6005e090a4ec5624d1b2db24;p=chise%2Fxemacs-chise.git

(GT-K00049): Use `<-denotational' for U+4EBA; add `<-formed@component'
for U+4EBA.
(GT-K00058): Use `<-denotational' for U+4EBA; add
`<-formed@component/connect-below' for U+4EBA.
(BC-8B5D): Likewise.
(<CJK RADICAL PERSON>): Copied from u02E00-CJK-Radical-Supplement.el.
(U+4EBB): Add `<-formed@component/connect-right' for U+4EBA; unify
BC-8AF5.
---

diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 394a98d..f8b31eb 100644
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -18,22 +18,43 @@
     (=daikanwa		. 00344)	; &I-M-00344;
     ))
 (define-char
-  '((=>ucs		. #x4EBA)	; 人
-    (morohashi-daikanwa	344 0 0)
+  '((<-denotational
+     ((=ucs		  . #x4EBA)	; 人
+      ))
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
+    (<-formed@component
+     ((=ucs		  . #x4EBA)	; 人
+      ))
     (=gt-k		. 00049)	; &GT-K00049;
     (=gt-pj-k1		. #x3357)	; &GT-K00049; [19-55]
     ))
 (define-char
-  '((name*		. "ideographic component person as roof")
-    (=>ucs		. #x4EBA)	; 人
-    (morohashi-daikanwa	344 0 1)
+  '((<-denotational
+     ((=ucs		  . #x4EBA)	; 人
+      ))
+    (name*		. "ideographic component person as left roof")
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
-    (ideograph-cdp	. -70)
+    (<-formed@component/connect-below
+     ((=ucs		  . #x4EBA)	; 人
+      ))
+    (=gt-k		. 00058)	; &GT-K00058;
+    (=gt-pj-k1		. #x3C53)	; &GT-K00058; [28-51]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x4EBA)	; 人
+      ))
+    (name*		. "ideographic component person as roof")
+    (ideographic-radical . 9)	; ⼈
+    (ideographic-strokes . 0)
+    (total-strokes	 . 2)
+    (<-formed@component/connect-below
+     ((=ucs		  . #x4EBA)	; 人
+      ))
     (=big5-cdp		. #x8B5D)	; &GT-00458;
     (=gt		. 00458)	; &I-GT-00458;
     (=gt-k		. 00057)	; &I-GT-K00057;
@@ -41,22 +62,30 @@
     (=jef-china3	. #x71FA)	; &I-JC3-71FA;
     ))
 (define-char
-  '((name*		. "ideographic component person as left roof")
-    (=>ucs		. #x4EBA)	; 人
-    (morohashi-daikanwa	344 0 2)
-    (ideographic-radical . 9)	; ⼈
-    (ideographic-strokes . 0)
+  '((<-denotational
+     ((=ucs		  . #x4EBB)	; 亻
+      ))
+    (name		. "CJK RADICAL PERSON")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
     (total-strokes	 . 2)
-    (=gt-k		. 00058)	; &GT-K00058;
-    (=gt-pj-k1		. #x3C53)	; &GT-K00058; [28-51]
+    (<-identical@component/connect-right
+     ((=ucs		  . #x4EBB)	; 亻
+      ))
+    (=ucs		. #x2E85)	; ⺅
     ))
 (define-char
   '((ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
+    (<-formed@component/connect-right
+     ((=ucs		  . #x4EBA)	; 人
+      ))
     (=ucs		. #x4EBB)	; 亻
     (=gb2312		. #x5869)	; &I-G0-5869; [56-73]
     (=jis-x0213-2-2000	. #x2135)	; &I-JX2-2135; [01-21]
+    (=big5-cdp		. #x8AF5)	; &I-CDP-8AF5;
     (=gt		. 00457)	; &I-GT-00457;
     (=gt-k		. 00141)	; &I-GT-K00141;
     (=gt-pj-9		. #x4D4D)	; &I-GT-00457; [45-45]