X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02E00-CJK-Radical-Supplement.el;h=13a36ff75c30b1f1cc70fd9028deb8bd9bcca0ed;hb=df79b3d1c4f84fd235646db405c8a3bf0e10d6d4;hp=210fe441aaa20928a03c36f35468e3ed17990661;hpb=6e1982b1488f9e9d9514824f21f0de3d568e5495;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 210fe44..13a36ff 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -1,8 +1,12 @@
+;; -*- coding: utf-8-mcs -*-
 (define-char
   '((name		. "CJK RADICAL REPEAT")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x20120)	; 𠄠
+      ))
     (=ucs		. #x2E80)	; ⺀
     ))
 (define-char
@@ -35,8 +39,8 @@
      ((=ucs		  . #x4E5A)	; 乚
       ))
     (ideograph-cdp	. -21)
-    (=big5-cdp		. #x8C5D)	; ý¢€ˆ±
     (=ucs		. #x2E83)	; ⺃
+    (=big5-cdp		. #x8C5D)	; ý¢€ˆ±
     ))
 (define-char
   '((name		. "CJK RADICAL SECOND THREE")
@@ -44,9 +48,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (total-strokes	 . 1)
-    (ideograph-cdp	. -13)
-    (=big5-cdp		. #x8D43)	; ý¢€ˆµƒ
     (=ucs		. #x2E84)	; ⺄
+    (=big5-cdp		. #x8D43)	; ý¢€ˆµƒ
+    (=gt-k		. 00008)	; ý¡„€€ˆ
+    (=gt-pj-k1		. #x302E)	; ⺄
+    ))
+(define-char
+  '((=>ucs		. #x2E84)	; ⺄
+    (total-strokes	 . 1)
+    (=gt-k		. 00007)	; ý¡„€€‡
+    (=gt-pj-k1		. #x302D)	; ý¡„€€‡
     ))
 (define-char
   '((name		. "CJK RADICAL PERSON")
@@ -58,8 +69,8 @@
      ((=ucs		  . #x4EBB)	; 亻
       ))
     (ideograph-cdp	. -64)
-    (=big5-cdp		. #x8AF5)	; ý¢€ˆ«µ
     (=ucs		. #x2E85)	; ⺅
+    (=big5-cdp		. #x8AF5)	; ý¢€ˆ«µ
     ))
 (define-char
   '((name		. "CJK RADICAL BOX")
@@ -67,11 +78,19 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (total-strokes	 . 2)
-    (ideograph-cdp	. -80)
-    (=big5-cdp		. #x8BF2)	; ý¢€ˆ¯²
+    (<-radical
+     ((=ucs		  . #x5182)	; 冂
+      ))
     (=ucs		. #x2E86)	; ⺆
     ))
 (define-char
+  '((=>ucs		. #x2E86)	; ⺆
+    (total-strokes	 . 2)
+    (=big5-cdp		. #x8BF2)	; ý¢€ˆ¯²
+    (=gt-k		. 00143)	; ý¡„€‚
+    (=gt-pj-k1		. #x3D6C)	; ý¢€ˆ¯²
+    ))
+(define-char
   '((name		. "CJK RADICAL TABLE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -80,9 +99,11 @@
     (<-radical
      ((=ucs		  . #x51E0)	; 几
       ))
-    (ideograph-cdp	. -79)
-    (=big5-cdp		. #x8D66)	; ý¢€ˆµ¦
     (=ucs		. #x2E87)	; ⺇
+    (=big5-cdp		. #x8D66)	; ý¢€ˆµ¦
+    (=gt		. 02284)	; ý¡€€£¬
+    (=gt-k		. 00086)	; ý¡„€–
+    (=gt-pj-9		. #x505D)	; ý¡€€£¬
     ))
 (define-char
   '((name		. "CJK RADICAL KNIFE ONE")
@@ -90,6 +111,8 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (=ucs		. #x2E88)	; ⺈
+    (=gt-k		. 00091)	; ý¡„€›
+    (=gt-pj-k1		. #x3234)	; ⺈
     ))
 (define-char
   '((name		. "CJK RADICAL KNIFE TWO")
@@ -99,9 +122,9 @@
     (<-radical
      ((=ucs		  . #x5202)	; 刂
       ))
+    (=ucs		. #x2E89)	; ⺉
     (=big5-eten		. #xC87D)	; ý¢€Œ¡½
     (=ucs@big5		. #x5202)	; ⺉
-    (=ucs		. #x2E89)	; ⺉
     ))
 (define-char
   '((name		. "CJK RADICAL DIVINATION")
@@ -109,9 +132,10 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (total-strokes	 . 2)
-    (ideograph-cdp	. -51)
-    (=big5-cdp		. #x8B78)	; ý¢€ˆ­¸
     (=ucs		. #x2E8A)	; ⺊
+    (=big5-cdp		. #x8B78)	; ý¢€ˆ­¸
+    (=gt-k		. 00062)	; ý¡„€€¾
+    (=gt-pj-k1		. #x3D4D)	; ⺊
     ))
 (define-char
   '((name		. "CJK RADICAL SEAL")
@@ -128,24 +152,33 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=gt-pj-k1		. #x3233)	; ⺌
+    (<-ideographic-component-forms
+     ((=ucs		  . #x5C0F)	; 小
+      ))
+    (=ucs		. #x2E8C)	; ⺌
     (=big5-cdp		. #x8B54)	; ý¢€ˆ­”
     (=gt-k		. 00303)	; ý¡„€„¯
-    (=ucs		. #x2E8C)	; ⺌
+    (=gt-pj-k1		. #x3233)	; ⺌
     ))
 (define-char
   '((=>ucs		. #x2E8C)	; ⺌
-    (=gt-pj-k1		. #x324E)	; ý¡„€„±
+    (<-ideographic-component-forms
+     ((=ucs		  . #x5C0F)	; 小
+      ))
     (=gt-k		. 00305)	; ý¡„€„±
+    (=gt-pj-k1		. #x324E)	; ý¡„€„±
     ))
 (define-char
   '((name		. "CJK RADICAL SMALL TWO")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=gt-pj-k1		. #x3251)	; ⺍
-    (=gt-k		. 00325)	; ý¡„€……
+    (<-ideographic-component-forms
+     ((=ucs		  . #x5C0F)	; 小
+      ))
     (=ucs		. #x2E8D)	; ⺍
+    (=gt-k		. 00325)	; ý¡„€……
+    (=gt-pj-k1		. #x3251)	; ⺍
     ))
 (define-char
   '((name		. "CJK RADICAL LAME ONE")
@@ -235,11 +268,11 @@
     (<-radical
      ((=ucs		  . #x5FC4)	; 忄
       ))
-    (=gt-pj-3		. #x4D5F)	; ý¡€ƒ‹€
+    (=ucs		. #x2E96)	; ⺖
     (=big5-cdp		. #x8B51)	; ý¢€ˆ­‘
-    (=gt-k		. 00302)	; ý¡„€„®
     (=gt		. 12992)	; ý¡€ƒ‹€
-    (=ucs		. #x2E96)	; ⺖
+    (=gt-k		. 00302)	; ý¡„€„®
+    (=gt-pj-3		. #x4D5F)	; ý¡€ƒ‹€
     ))
 (define-char
   '((name		. "CJK RADICAL HEART TWO")
@@ -259,8 +292,8 @@
     (<-radical
      ((=ucs		  . #x624C)	; 扌
       ))
-    (=big5-cdp		. #x8AFA)	; ý¢€ˆ«º
     (=ucs		. #x2E98)	; ⺘
+    (=big5-cdp		. #x8AFA)	; ý¢€ˆ«º
     ))
 (define-char
   '((name		. "CJK RADICAL RAP")
@@ -291,6 +324,8 @@
      ((=big5-cdp	  . #x8A78)	; ý¢€ˆ©¸
       ))
     (=ucs		. #x2E9C)	; ⺜
+    (=gt-k		. 00565)	; ý¡„€ˆµ
+    (=gt-pj-k1		. #x3229)	; ⺜
     ))
 (define-char
   '((name		. "CJK RADICAL MOON")
@@ -340,8 +375,8 @@
     (<-radical
      ((=ucs		  . #x6C35)	; æ°µ
       ))
-    (=big5-cdp		. #x8AF6)	; ý¢€ˆ«¶
     (=ucs		. #x2EA1)	; ⺡
+    (=big5-cdp		. #x8AF6)	; ý¢€ˆ«¶
     ))
 (define-char
   '((name		. "CJK RADICAL WATER TWO")
@@ -351,8 +386,8 @@
     (<-radical
      ((=ucs		  . #x6C3A)	; æ°º
       ))
-    (=big5-cdp		. #x8C43)	; ý¢€ˆ±ƒ
     (=ucs		. #x2EA2)	; ⺢
+    (=big5-cdp		. #x8C43)	; ý¢€ˆ±ƒ
     ))
 (define-char
   '((name		. "CJK RADICAL FIRE")
@@ -374,8 +409,8 @@
      ((=ucs		  . #x722B)	; 爫
       ))
     (ideograph-cdp	. -493)
-    (=big5-cdp		. #x8B58)	; ý¢€ˆ­˜
     (=ucs		. #x2EA4)	; ⺤
+    (=big5-cdp		. #x8B58)	; ý¢€ˆ­˜
     ))
 (define-char
   '((name		. "CJK RADICAL PAW TWO")
@@ -396,8 +431,11 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=big5-cdp		. #x8B66)	; ý¢€ˆ­¦
+    (<-ideographic-component-forms
+     ((=ucs		  . #x725B)	; 牛
+      ))
     (=ucs		. #x2EA7)	; ⺧
+    (=big5-cdp		. #x8B66)	; ý¢€ˆ­¦
     ))
 (define-char
   '((name		. "CJK RADICAL DOG")
@@ -414,10 +452,15 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x738B)	; 王
+      ))
     (<-radical
      ((=ucs		  . #x248E9)	; 𤣩
       ))
     (=ucs		. #x2EA9)	; ⺩
+    (=gt-k		. 00402)	; ý¡„€†’
+    (=gt-pj-k1		. #x3467)	; ⺩
     ))
 (define-char
   '((name		. "CJK RADICAL BOLT OF CLOTH")
@@ -427,6 +470,10 @@
     (=ucs		. #x2EAA)	; ⺪
     ))
 (define-char
+  '((=>ucs		. #x2EAA)	; ⺪
+    (=big5-cdp		. #x8DC5)	; ý¢€ˆ·…
+    ))
+(define-char
   '((name		. "CJK RADICAL EYE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -451,16 +498,21 @@
     (<-radical
      ((=ucs		  . #x793B)	; 礻
       ))
-    (=big5-cdp		. #x8B70)	; ý¢€ˆ­°
     (=ucs		. #x2EAD)	; ⺭
+    (=big5-cdp		. #x8B70)	; ý¢€ˆ­°
     ))
 (define-char
   '((name		. "CJK RADICAL BAMBOO")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=big5-cdp		. #x8B4C)	; ý¢€ˆ­Œ
+    (<-ideographic-component-forms
+     ((=ucs		  . #x7AF9)	; 竹
+      ))
     (=ucs		. #x2EAE)	; ⺮
+    (=big5-cdp		. #x8B4C)	; ý¢€ˆ­Œ
+    (=gt-k		. 02267)	; ý¡„€£›
+    (=gt-pj-k1		. #x324D)	; ⺮
     ))
 (define-char
   '((name		. "CJK RADICAL SILK")
@@ -531,8 +583,13 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=big5-cdp		. #x8970)	; ý¢€ˆ¥°
     (=ucs		. #x2EB6)	; ⺶
+    (=big5-cdp		. #x8970)	; ý¢€ˆ¥°
+    ))
+(define-char
+  '((=>ucs		. #x2EB6)	; ⺶
+    (=gt-k		. 01701)	; ý¡„€š¥
+    (=gt-pj-k1		. #x3443)	; ý¡„€š¥
     ))
 (define-char
   '((=>ucs		. #x2EB6)	; ⺶
@@ -590,8 +647,13 @@
     (ideographic-radical . 130)	; ⾁
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (=daikanwa		. 29237)	; ø¸‡ˆµ
+    (<-ideographic-component-forms
+     ((=ucs		  . #x8089)	; 肉
+      ))
     (=ucs		. #x2EBC)	; ⺼
+    (=gt		. 37857)	; ý¡€‰¡
+    (=gt-pj-6		. #x3879)	; ý¡€‰¡
+    (=daikanwa		. 29237)	; ø¸‡ˆµ
     ))
 (define-char
   '((=>ucs		. #x2EBC)	; ⺼
@@ -599,7 +661,12 @@
     (ideographic-radical . 130)	; ⾁
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x8089)	; 肉
+      ))
     (=big5-cdp		. #x8958)	; ý¢€ˆ¥˜
+    (=gt-k		. 00417)	; ý¡„€†¡
+    (=gt-pj-k1		. #x377D)	; ý¢€ˆ¥˜
     ))
 (define-char
   '((=>ucs		. #x2EBC)	; ⺼
@@ -607,6 +674,9 @@
     (ideographic-radical . 130)	; ⾁
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x8089)	; 肉
+      ))
     (=big5-cdp		. #x8A73)	; ý¢€ˆ©³
     ))
 (define-char
@@ -669,8 +739,8 @@
      ((=ucs		  . #x8864)	; 衤
       ))
     (ideograph-cdp	. -849)
-    (=big5-cdp		. #x8BB1)	; ý¢€ˆ®±
     (=ucs		. #x2EC2)	; ⻂
+    (=big5-cdp		. #x8BB1)	; ý¢€ˆ®±
     ))
 (define-char
   '((name		. "CJK RADICAL WEST ONE")
@@ -778,11 +848,14 @@
     (ideographic-radical . 162)	; ⾡
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (=ucs		. #x2ECD)	; ⻍
     (=jis-x0212		. #x6134)	; ø»Œ‚£
     (=jis-x0213-2-2000	. #x796A)	; ø»¦Ÿ™
+    (=gt		. 51643)	; ý¡€Œ¦»
+    (=gt-k		. 00580)	; ý¡„€‰„
+    (=gt-pj-7		. #x5530)	; ý¡€Œ¦»
     (=daikanwa		. 38702)	; ø¸‰œ®
     (=ucs@jis		. #x8FB6)	; ⻍
-    (=ucs		. #x2ECD)	; ⻍
     ))
 (define-char
   '((name		. "CJK RADICAL WALK TWO")
@@ -794,10 +867,10 @@
     (ideographic-radical . 162)	; ⾡
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (=ucs		. #x2ECE)	; ⻎
     (=cns11643-4	. #x2154)	; ø»—¡›
     (=big5-cdp		. #x8AF7)	; ý¢€ˆ«·
     (=ucs@cns		. #x8FB6)	; ⻎
-    (=ucs		. #x2ECE)	; ⻎
     ))
 (define-char
   '((name		. "CJK RADICAL CITY")
@@ -881,6 +954,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x96E8)	; 雨
+      ))
     (=ucs		. #x2ED7)	; ⻗
     ))
 (define-char
@@ -948,13 +1024,32 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x98DF)	; 食
+      ))
     (=ucs		. #x2EDE)	; ⻞
     ))
 (define-char
+  '((=>ucs		. #x2EDE)	; ⻞
+    (morohashi-daikanwa	44014 0 6)
+    (ideographic-radical . 184)	; â¾·
+    (ideographic-strokes . 0)
+    (total-strokes	 . 3)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x98DF)	; 食
+      ))
+    (=gt		. 59030)	; ý¡€Žš–
+    (=gt-k		. 06140)	; ý¡„Ÿ¼
+    (=gt-pj-9		. #x4F28)	; ý¡€Žš–
+    ))
+(define-char
   '((name		. "CJK RADICAL EAT THREE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x98DF)	; 食
+      ))
     (<-radical
      ((=ucs		  . #x98E0)	; 飠
       ))
@@ -965,6 +1060,9 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (<-ideographic-component-forms
+     ((=ucs		  . #x98DF)	; 食
+      ))
     (<-radical
      ((=ucs		  . #x9963)	; 饣
       ))