X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R087-Claw.el;h=ae53da4a209182bf8843d9bcacaf42999297e049;hb=8c2d8df8909c7e2d39a5aa82fc6b9e48482e611a;hp=2680e18fd21e6b78b99a315df51fda55e82eff94;hpb=f47bf84e084f3058253277e8c393c497322cbd80;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index 2680e18..ae53da4 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,34 @@
   '((<-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		  . #xFA49)	; 爫
+      ))
+    (name		. "CJK RADICAL PAW ONE")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component/connect-below
      ((name		  . "CJK COMPATIBILITY IDEOGRAPH-FA49")
-      (=>ucs*		  . #x722B)	; 爫
       (=ucs		  . #xFA49)	; 爫
-      (->canonical
-       ((=ucs		    . #x722B)	; 爫
-	))
       ))
+    (=ucs		. #x2EA4)	; ⺤
     ))
 (define-char
   '((ideographic-radical . 87)	; ⽖