(U+9F8D): Use `->subsumptive'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / u02E00-CJK-Radical-Supplement.el

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index c914f75..9b6e100 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -148,13 +148,13 @@
     (=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)
-    (<-denotational
-     ((=ucs              . #x353E)     ; 㔾
-      ))
     (<-ideographic-component-forms
      ((=ucs              . #x5369)     ; 卩
       ))
@@ -271,13 +271,13 @@
     (=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)
-    (<-denotational
-     ((=ucs              . #x5F50)     ; 彐
-      ))
     (<-radical
      ((=ucs              . #x5F50)     ; 彐
       ))
@@ -393,6 +393,9 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-compat
+     ((=ucs              . #x6BCD)     ; 母
+      ))
     (<-radical
      ((=ucs              . #x6BCD)     ; 母
       ))
@@ -450,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)     ; 爪
       ))
@@ -610,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)     ; 糸
       ))
@@ -627,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)     ; 糸
       ))
@@ -648,16 +655,16 @@
     (=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)     ; 罓
       ))
@@ -809,7 +816,6 @@
     ))
 (define-char
   '((name              . "CJK RADICAL MEAT")
-    (=>daikanwa                . 29237)        ; &GT-37857;
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
@@ -835,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")
@@ -845,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]
@@ -866,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]
@@ -887,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;
@@ -909,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)     ; 艹
       ))
     ))
@@ -965,6 +992,7 @@
      ((=ucs              . #x89C1)     ; 见
       ))
     (=ucs              . #x2EC5)       ; ⻅
+    (=big5-cdp         . #x89A1)       ; &I-CDP-89A1;
     ))
 (define-char
   '((name              . "CJK RADICAL SIMPLIFIED HORN")
@@ -1028,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)     ; ⻍
@@ -1053,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]
@@ -1073,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)     ; ⻍
@@ -1093,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)     ; 金
       ))
@@ -1176,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)     ; 阝
       ))
@@ -1324,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)     ; 馬
       ))
@@ -1341,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")
@@ -1362,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)     ; 魚
       ))
@@ -1419,6 +1462,7 @@
      ((=ucs              . #x9EC4)     ; 黄
       ))
     (=ucs              . #x2EE9)       ; ⻩
+    (=big5-cdp         . #x8A5E)       ; &I-CDP-8A5E;
     ))
 (define-char
   '((name              . "CJK RADICAL C-SIMPLIFIED FROG")
@@ -1515,6 +1559,9 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-compat
+     ((=ucs              . #x9F9F)     ; 龟
+      ))
     (<-radical
      ((=ucs              . #x9F9F)     ; 龟
       ))