X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02E00-CJK-Radical-Supplement.el;h=9b6e100983520e97b15ee8bb960450c19b692de1;hb=8c2d8df8909c7e2d39a5aa82fc6b9e48482e611a;hp=1b839a09203aba789b92c151754abe1bacd37a12;hpb=bc3636c2bf4a29d175379d5f94ff5ebd3dbcb8e1;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 1b839a0..9b6e100 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -148,16 +148,26 @@
     (=gt-pj-k1		. #x3D4D)	; ⺊ [29-45]
     ))
 (define-char
-  '((name		. "CJK RADICAL SEAL")
+  '((<-denotational
+     ((=ucs		  . #x353E)	; 㔾
+      ))
+    (name		. "CJK RADICAL SEAL")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x5369)	; 卩
+      ))
     (<-radical
      ((=ucs		  . #x353E)	; 㔾
       ))
     (=ucs		. #x2E8B)	; ⺋
     ))
 (define-char
+  '((=>ucs		. #x353E)	; 㔾
+    (=jef-china3	. #x71F7)	; &JC3-71F7;
+    ))
+(define-char
   '((name		. "CJK RADICAL SMALL ONE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -261,7 +271,10 @@
     (=ucs		. #x2E94)	; ⺔
     ))
 (define-char
-  '((name		. "CJK RADICAL SNOUT TWO")
+  '((<-denotational
+     ((=ucs		  . #x5F50)	; 彐
+      ))
+    (name		. "CJK RADICAL SNOUT TWO")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
@@ -269,6 +282,15 @@
      ((=ucs		  . #x5F50)	; 彐
       ))
     (=ucs		. #x2E95)	; ⺕
+    (=gt-k		. 00266)	; &I-GT-K00266;
+    (=gt-pj-k1		. #x3663)	; ⺕ [22-67]
+    ))
+(define-char
+  '((<-denotational
+     ((name		  . "CJK RADICAL SNOUT TWO")
+      (=ucs		  . #x2E95)	; ⺕
+      ))
+    (=big5-cdp		. #x897C)	; &CDP-897C;
     ))
 (define-char
   '((name		. "CJK RADICAL HEART ONE")
@@ -371,6 +393,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-compat
+     ((=ucs		  . #x6BCD)	; 母
+      ))
     (<-radical
      ((=ucs		  . #x6BCD)	; 母
       ))
@@ -428,34 +453,38 @@
     (=ucs		. #x2EA3)	; ⺣
     ))
 (define-char
-  '((name		. "CJK RADICAL PAW ONE")
+  '((<-denotational
+     ((=ucs		  . #x722B)	; 爫
+      ))
+    (name		. "CJK RADICAL PAW ONE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 87)	; ⽖
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-denotational
-     ((=ucs		  . #x722B)	; 爫
-      ))
     (=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)	; 爫
+     ((name		  . "CJK COMPATIBILITY IDEOGRAPH-FA49")
+      (=>ucs*		  . #x722B)	; 爫
+      (->canonical
+       ((=ucs		    . #x722B)	; 爫
+	))
       (=ucs		  . #xFA49)	; 爫
       ))
     ))
 (define-char
-  '((name		. "CJK RADICAL PAW TWO")
+  '((<-denotational
+     ((=ucs		  . #x722B)	; 爫
+      ))
+    (name		. "CJK RADICAL PAW TWO")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-denotational
-     ((=ucs		  . #x722B)	; 爫
-      ))
     (<-radical
      ((=ucs		  . #x722A)	; 爪
       ))
@@ -588,13 +617,13 @@
     (=gt-pj-k1		. #x324D)	; ⺮ [18-45]
     ))
 (define-char
-  '((name		. "CJK RADICAL SILK")
+  '((<-denotational
+     ((=ucs		  . #x7CF9)	; ç³¹
+      ))
+    (name		. "CJK RADICAL SILK")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-denotational
-     ((=ucs		  . #x7CF9)	; ç³¹
-      ))
     (<-ideographic-component-forms
      ((=ucs		  . #x7CF8)	; 糸
       ))
@@ -605,13 +634,13 @@
     (=big5-cdp		. #x8AFB)	; &I-CDP-8AFB;
     ))
 (define-char
-  '((name		. "CJK RADICAL C-SIMPLIFIED SILK")
+  '((<-denotational
+     ((=ucs		  . #x7E9F)	; 纟
+      ))
+    (name		. "CJK RADICAL C-SIMPLIFIED SILK")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-denotational
-     ((=ucs		  . #x7E9F)	; 纟
-      ))
     (<-ideographic-component-forms
      ((=ucs		  . #x7CF8)	; 糸
       ))
@@ -623,18 +652,19 @@
       (=ucs		  . #x2EAF)	; ⺯
       ))
     (=ucs		. #x2EB0)	; ⺰
+    (=big5-cdp		. #x895B)	; &I-CDP-895B;
     ))
 (define-char
-  '((name		. "CJK RADICAL NET ONE")
+  '((<-denotational
+     ((=ucs		  . #x7F53)	; 罓
+      ))
+    (name		. "CJK RADICAL NET ONE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 122)	; â½¹
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-denotational
-     ((=ucs		  . #x7F53)	; 罓
-      ))
     (<-radical
      ((=ucs		  . #x7F53)	; 罓
       ))
@@ -786,7 +816,6 @@
     ))
 (define-char
   '((name		. "CJK RADICAL MEAT")
-    (=>daikanwa		. 29237)	; &GT-37857;
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
@@ -812,6 +841,19 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((name		  . "CJK RADICAL MEAT")
+      (=ucs		  . #x2EBC)	; ⺼
+      ))
+    (ideographic-radical . 130)	; ⾁
+    (ideographic-strokes . 0)
+    (total-strokes	 . 4)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x8089)	; 肉
+      ))
+    (=big5-cdp		. #x88F0)	; &CDP-88F0;
+    ))
+(define-char
   '((name		. "CJK RADICAL MORTAR")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -822,16 +864,16 @@
     (=ucs		. #x2EBD)	; ⺽
     ))
 (define-char
-  '((name		. "CJK RADICAL GRASS ONE")
+  '((<-denotational
+     ((=ucs		  . #x8279)	; 艹
+      ))
+    (name		. "CJK RADICAL GRASS ONE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 0)
     (total-strokes	 . 3)
-    (<-denotational
-     ((=ucs		  . #x8279)	; 艹
-      ))
     (=ucs		. #x2EBE)	; ⺾
     (=gb2312		. #x5C33)	; &I-G0-5C33; [60-19]
     (=jis-x0213-2-2000	. #x7576)	; &I-JX2-7576; [85-86]
@@ -843,16 +885,16 @@
     (=ucs@unicode	. #x8279)	; ⺾
     ))
 (define-char
-  '((name		. "CJK RADICAL GRASS TWO")
+  '((<-denotational
+     ((=ucs		  . #x8279)	; 艹
+      ))
+    (name		. "CJK RADICAL GRASS TWO")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-denotational
-     ((=ucs		  . #x8279)	; 艹
-      ))
     (=ucs		. #x2EBF)	; ⺿
     (=cns11643-4	. #x2153)	; &I-C4-2153; [01-51]
     (=jis-x0213-2-2000	. #x7575)	; &I-JX2-7575; [85-85]
@@ -864,21 +906,25 @@
     (=ucs@cns		. #x8279)	; ⺿
     (=ucs@jis		. #xFA5E)	; ⺿
     (->subsumptive
-     ((=>ucs*		  . #x8279)	; 艹
+     ((name		  . "CJK COMPATIBILITY IDEOGRAPH-FA5E")
+      (=>ucs*		  . #x8279)	; 艹
+      (->canonical
+       ((=ucs		    . #x8279)	; 艹
+	))
       (=ucs		  . #xFA5E)	; 艹
       ))
     ))
 (define-char
-  '((name		. "CJK RADICAL GRASS THREE")
+  '((<-denotational
+     ((=ucs		  . #x8279)	; 艹
+      ))
+    (name		. "CJK RADICAL GRASS THREE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-denotational
-     ((=ucs		  . #x8279)	; 艹
-      ))
     (=ucs		. #x2EC0)	; ⻀
     (=jis-x0213-2-2000	. #x7574)	; &I-JX2-7574; [85-84]
     (=gt		. 39645)	; &I-GT-39645;
@@ -886,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)	; 艹
       ))
     ))
@@ -942,6 +992,7 @@
      ((=ucs		  . #x89C1)	; 见
       ))
     (=ucs		. #x2EC5)	; ⻅
+    (=big5-cdp		. #x89A1)	; &I-CDP-89A1;
     ))
 (define-char
   '((name		. "CJK RADICAL SIMPLIFIED HORN")
@@ -1005,18 +1056,19 @@
      ((=ucs		  . #x8F66)	; 车
       ))
     (=ucs		. #x2ECB)	; ⻋
+    (=big5-cdp		. #x8967)	; &I-CDP-8967;
     ))
 (define-char
-  '((name		. "CJK RADICAL SIMPLIFIED WALK")
+  '((<-denotational
+     ((=ucs		  . #x8FB6)	; 辶
+      ))
+    (name		. "CJK RADICAL SIMPLIFIED WALK")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 162)	; ⾡
     (ideographic-strokes . 0)
     (total-strokes	 . 3)
-    (<-denotational
-     ((=ucs		  . #x8FB6)	; 辶
-      ))
     (<-simplified@component
      ((name		  . "CJK RADICAL WALK ONE")
       (=ucs		  . #x2ECD)	; ⻍
@@ -1030,16 +1082,22 @@
     (=ucs@jis		. #xFA66)	; ⻌
     ))
 (define-char
-  '((name		. "CJK RADICAL WALK ONE")
+  '((<-denotational
+     ((=ucs		  . #x8FB6)	; 辶
+      ))
+    (name		. "CJK RADICAL WALK ONE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 162)	; ⾡
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-denotational
-     ((=ucs		  . #x8FB6)	; 辶
+    (<-ideographic-component-forms
+     ((=ucs		  . #x8FB5)	; è¾µ
+      (=daikanwa	  . 38700)	; &I-M-38700;
       ))
+    (<-ideographic-component-forms*sources
+     zihui-jianzi daikanwa)
     (=ucs		. #x2ECD)	; ⻍
     (=jis-x0212		. #x6134)	; &I-JSP-6134; [65-20]
     (=jis-x0213-2-2000	. #x796A)	; &I-JX2-796A; [89-74]
@@ -1050,16 +1108,16 @@
     (=ucs@jis		. #x8FB6)	; ⻍
     ))
 (define-char
-  '((name		. "CJK RADICAL WALK TWO")
+  '((<-denotational
+     ((=ucs		  . #x8FB6)	; 辶
+      ))
+    (name		. "CJK RADICAL WALK TWO")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 162)	; ⾡
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (<-denotational
-     ((=ucs		  . #x8FB6)	; 辶
-      ))
     (<-simplified@component
      ((name		  . "CJK RADICAL WALK ONE")
       (=ucs		  . #x2ECD)	; ⻍
@@ -1070,29 +1128,29 @@
     (=ucs@cns		. #x8FB6)	; ⻎
     ))
 (define-char
-  '((name		. "CJK RADICAL CITY")
+  '((<-denotational
+     ((=ucs		  . #x961D)	; 阝
+      ))
+    (name		. "CJK RADICAL CITY")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 163)	; â¾¢
     (ideographic-strokes . 0)
     (total-strokes	 . 3)
-    (<-denotational
-     ((=ucs		  . #x961D)	; 阝
-      ))
     (<-ideographic-component-forms
      ((=ucs		  . #x9091)	; 邑
       ))
     (=ucs		. #x2ECF)	; ⻏
     ))
 (define-char
-  '((name		. "CJK RADICAL C-SIMPLIFIED GOLD")
+  '((<-denotational
+     ((=ucs		  . #x9485)	; 钅
+      ))
+    (name		. "CJK RADICAL C-SIMPLIFIED GOLD")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-denotational
-     ((=ucs		  . #x9485)	; 钅
-      ))
     (<-ideographic-component-forms
      ((=ucs		  . #x91D1)	; 金
       ))
@@ -1100,6 +1158,7 @@
      ((=ucs		  . #x9485)	; 钅
       ))
     (=ucs		. #x2ED0)	; ⻐
+    (=big5-cdp		. #x895A)	; &I-CDP-895A;
     ))
 (define-char
   '((name		. "CJK RADICAL LONG ONE")
@@ -1152,16 +1211,16 @@
     (=ucs		. #x2ED5)	; ⻕
     ))
 (define-char
-  '((name		. "CJK RADICAL MOUND TWO")
+  '((<-denotational
+     ((=ucs		  . #x961D)	; 阝
+      ))
+    (name		. "CJK RADICAL MOUND TWO")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (ideographic-radical . 170)	; ⾩
     (ideographic-strokes . 0)
     (total-strokes	 . 3)
-    (<-denotational
-     ((=ucs		  . #x961D)	; 阝
-      ))
     (<-radical
      ((=ucs		  . #x961D)	; 阝
       ))
@@ -1300,13 +1359,13 @@
     (=ucs		. #x2EE1)	; ⻡
     ))
 (define-char
-  '((name		. "CJK RADICAL C-SIMPLIFIED HORSE")
+  '((<-denotational
+     ((=ucs		  . #x9A6C)	; 马
+      ))
+    (name		. "CJK RADICAL C-SIMPLIFIED HORSE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-denotational
-     ((=ucs		  . #x9A6C)	; 马
-      ))
     (<-ideographic-component-forms
      ((=ucs		  . #x99AC)	; 馬
       ))
@@ -1317,19 +1376,26 @@
     (=big5-cdp		. #x8A50)	; &I-CDP-8A50;
     ))
 (define-char
-  '((name		. "CJK RADICAL BONE")
+  '((<-denotational
+     ((=ucs		  . #x9AA8)	; 骨
+      ))
+    (name		. "CJK RADICAL BONE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-denotational
-     ((=ucs		  . #x9AA8)	; 骨
-      ))
     (<-radical
      ((=ucs		  . #x9AA8)	; 骨
       ))
     (=ucs		. #x2EE3)	; ⻣
     ))
 (define-char
+  '((<-denotational
+     ((name		  . "CJK RADICAL BONE")
+      (=ucs		  . #x2EE3)	; ⻣
+      ))
+    (=big5-cdp		. #x8A5C)	; &CDP-8A5C;
+    ))
+(define-char
   '((name		. "CJK RADICAL GHOST")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -1338,15 +1404,16 @@
      ((=ucs		  . #x9B3C)	; 鬼
       ))
     (=ucs		. #x2EE4)	; ⻤
+    (=big5-cdp		. #x8A5D)	; &I-CDP-8A5D;
     ))
 (define-char
-  '((name		. "CJK RADICAL C-SIMPLIFIED FISH")
+  '((<-denotational
+     ((=ucs		  . #x9C7C)	; é±¼
+      ))
+    (name		. "CJK RADICAL C-SIMPLIFIED FISH")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-denotational
-     ((=ucs		  . #x9C7C)	; é±¼
-      ))
     (<-ideographic-component-forms
      ((=ucs		  . #x9B5A)	; 魚
       ))
@@ -1395,6 +1462,7 @@
      ((=ucs		  . #x9EC4)	; 黄
       ))
     (=ucs		. #x2EE9)	; ⻩
+    (=big5-cdp		. #x8A5E)	; &I-CDP-8A5E;
     ))
 (define-char
   '((name		. "CJK RADICAL C-SIMPLIFIED FROG")
@@ -1491,6 +1559,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-compat
+     ((=ucs		  . #x9F9F)	; 龟
+      ))
     (<-radical
      ((=ucs		  . #x9F9F)	; 龟
       ))