From: tomo <tomo>
Date: Thu, 11 Aug 2005 09:47:36 +0000 (+0000)
Subject: (<CJK RADICAL MOTHER>): Add `<-compat' for U+6BCD.
X-Git-Tag: r21-4-17-chise-0_22-4^20~287
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb7c60becdb422e80ff65005820a9346fa1f69ef;p=chise%2Fxemacs-chise.git

(<CJK RADICAL MOTHER>): Add `<-compat' for U+6BCD.
(U+FA49): Add `name'; add `->canonical' for U+722B.
(U+FA5E): Add `name'; add `->canonical' for U+8279.
(U+FA5D): Add `name'; add `->canonical' for U+8279.
(<CJK RADICAL C-SIMPLIFIED TURTLE>): Add `<-compat' for U+9F9F.
---

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 3622d30..9b6e100 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -393,6 +393,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-compat
+     ((=ucs		  . #x6BCD)	; 母
+      ))
     (<-radical
      ((=ucs		  . #x6BCD)	; 母
       ))
@@ -466,7 +469,11 @@
     (=ucs@unicode	. #x722B)	; ⺤
     (=ucs@jis		. #xFA49)	; ⺤
     (->subsumptive
-     ((=>ucs*		  . #x722B)	; 爫
+     ((name		  . "CJK COMPATIBILITY IDEOGRAPH-FA49")
+      (=>ucs*		  . #x722B)	; 爫
+      (->canonical
+       ((=ucs		    . #x722B)	; 爫
+	))
       (=ucs		  . #xFA49)	; 爫
       ))
     ))
@@ -899,7 +906,11 @@
     (=ucs@cns		. #x8279)	; ⺿
     (=ucs@jis		. #xFA5E)	; ⺿
     (->subsumptive
-     ((=>ucs*		  . #x8279)	; 艹
+     ((name		  . "CJK COMPATIBILITY IDEOGRAPH-FA5E")
+      (=>ucs*		  . #x8279)	; 艹
+      (->canonical
+       ((=ucs		    . #x8279)	; 艹
+	))
       (=ucs		  . #xFA5E)	; 艹
       ))
     ))
@@ -921,7 +932,11 @@
     (=gt-pj-9		. #x4E5A)	; &I-GT-39645; [46-58]
     (=ucs@jis		. #xFA5D)	; ⻀
     (->subsumptive
-     ((=>ucs*		  . #x8279)	; 艹
+     ((name		  . "CJK COMPATIBILITY IDEOGRAPH-FA5D")
+      (=>ucs*		  . #x8279)	; 艹
+      (->canonical
+       ((=ucs		    . #x8279)	; 艹
+	))
       (=ucs		  . #xFA5D)	; 艹
       ))
     ))
@@ -1544,6 +1559,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-compat
+     ((=ucs		  . #x9F9F)	; 龟
+      ))
     (<-radical
      ((=ucs		  . #x9F9F)	; 龟
       ))