From 847b55349f0a02c83acd13ae29a3e9c36d64cd72 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 8 Feb 2005 13:17:49 +0000
Subject: [PATCH] (<CJK RADICAL PAW ONE>): Use `<-denotational' for U+722B;
 unify JX2-7029, UU+722B and JU+FA49; add `->subsumptive'
 for U+FA49. (<CJK RADICAL PAW TWO>): Use `<-denotational'
 for U+722B; add `<-radical' for U+722A.

---
 lisp/utf-2000/u02E00-CJK-Radical-Supplement.el |   18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index c2188b1..c7242d9 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -404,19 +404,33 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (ideographic-radical . 87)	; ⽖
+    (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-radical
+    (<-denotational
      ((=ucs		  . #x722B)	; 爫
       ))
-    (ideograph-cdp	. -493)
     (=ucs		. #x2EA4)	; ⺤
+    (=jis-x0213-2-2000	. #x7029)	; &I-JX2-7029; [80-09]
     (=big5-cdp		. #x8B58)	; &I-CDP-8B58;
+    (=ucs@unicode	. #x722B)	; ⺤
+    (=ucs@jis		. #xFA49)	; ⺤
+    (->subsumptive
+     ((=>ucs*		  . #x722B)	; 爫
+      (=ucs		  . #xFA49)	; 爫
+      ))
     ))
 (define-char
   '((name		. "CJK RADICAL PAW TWO")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-denotational
+     ((=ucs		  . #x722B)	; 爫
+      ))
+    (<-radical
+     ((=ucs		  . #x722A)	; 爪
+      ))
     (=ucs		. #x2EA5)	; ⺥
     ))
 (define-char
-- 
1.7.10.4