From: tomo <tomo>
Date: Thu, 8 Sep 2005 17:24:22 +0000 (+0000)
Subject: (U+722A): Add S1-4696.
X-Git-Tag: r21-4-17-chise-0_22-4^20~170
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d95bd5face54f440a88d66432037f2320c2e926;p=chise%2Fxemacs-chise.git-

(U+722A): Add S1-4696.
(U+722B): Use `<-formed@component/connect-below' instead of
`<-ideographic-component-forms'.
(<CJK RADICAL PAW TWO>): Use `<-identical@component/connect-below'
instead of `<-radical'.
(<CJK COMPATIBILITY IDEOGRAPH-FA49>): Use `<-denotational' for U+722B
instead of `<-subsumptive' for <CJK RADICAL PAW ONE>; unify JX2-7029
and BC-8B58.
(<CJK RADICAL PAW ONE>): Use `<-denotational' for <CJK COMPATIBILITY
IDEOGRAPH-FA49> instead of U+722B; separate JX2-7029 and BC-8B58; add
`<-identical@component/connect-below' for U+FA49.
---

diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index 2680e18..a4c0484 100644
--- a/lisp/utf-2000/Ideograph-R087-Claw.el
+++ b/lisp/utf-2000/Ideograph-R087-Claw.el
@@ -3,6 +3,7 @@
   '((ideographic-radical . 87)	; ⽖
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (shinjigen-1	. 4696)
     (shinjigen-2	. 4696)
     (=ucs		. #x722A)	; 爪
     (=jis-x0208		. #x445E)	; &I-J90-445E; [36-62]
@@ -19,7 +20,7 @@
   '((ideographic-radical . 87)	; ⽖
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-ideographic-component-forms
+    (<-formed@component/connect-below
      ((=ucs		  . #x722A)	; 爪
       ))
     (=ucs		. #x722B)	; 爫
@@ -45,7 +46,7 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-radical
+    (<-identical@component/connect-below
      ((=ucs		  . #x722A)	; 爪
       ))
     (=ucs		. #x2EA5)	; ⺥
@@ -54,26 +55,33 @@
   '((<-denotational
      ((=ucs		  . #x722B)	; 爫
       ))
-    (name		. "CJK RADICAL PAW ONE")
-    (general-category	symbol other) ; Informative Category
-    (bidi-category	. "ON")
-    (mirrored		. nil)
+    (name		. "CJK COMPATIBILITY IDEOGRAPH-FA49")
+    (=>ucs*		. #x722B)	; 爫
     (ideographic-radical . 87)	; ⽖
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (=ucs		. #x2EA4)	; ⺤
+    (=ucs		. #xFA49)	; 爫
     (=jis-x0213-2-2000	. #x7029)	; &I-JX2-7029; [80-09]
     (=big5-cdp		. #x8B58)	; &I-CDP-8B58;
-    (=ucs@unicode	. #x722B)	; ⺤
-    (=ucs@jis		. #xFA49)	; ⺤
-    (->subsumptive
+    (=ucs@unicode	. #x722B)	; 爫
+    (=ucs@jis		. #xFA49)	; 爫
+    (->canonical
+     ((=ucs		  . #x722B)	; 爫
+      ))
+    ))
+(define-char
+  '((<-denotational
      ((name		  . "CJK COMPATIBILITY IDEOGRAPH-FA49")
-      (=>ucs*		  . #x722B)	; 爫
       (=ucs		  . #xFA49)	; 爫
-      (->canonical
-       ((=ucs		    . #x722B)	; 爫
-	))
       ))
+    (name		. "CJK RADICAL PAW ONE")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component/connect-below
+     ((=ucs		  . #xFA49)	; 爫
+      ))
+    (=ucs		. #x2EA4)	; ⺤
     ))
 (define-char
   '((ideographic-radical . 87)	; ⽖