update.

[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 7f63282..c233df1 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -118,7 +118,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=big5-cdp         . #x8B5B)     ; &CDP-8B5B;
+     ((=ucs              . #x2008A)    ; 𠂊
       ))
     (name              . "CJK RADICAL KNIFE ONE")
     (general-category  symbol other) ; Informative Category
@@ -128,13 +128,23 @@
     (ideographic-strokes . 0)
     (total-strokes      . 2)
     (=ucs              . #x2E88)       ; ⺈
-    (=gt-k             . 00091)        ; &I-GT-K00091;
-    (=gt-pj-k1         . #x3234)       ; ⺈ [18-20]
-    (<-formed@component/connect-below
+    (=big5-cdp         . #x8B5B)       ; &I-CDP-8B5B;
+    (<-formed@component
      ((=ucs              . #x5200)     ; 刀
       ))
-    (<-identical@component/connect-below
-     ((=big5-cdp         . #x8B5B)     ; &CDP-8B5B;
+    (->subsumptive
+     ((==big5-cdp        . #x8B5B)     ; &g2-CDP-8B5B;
+      )
+     ((==ucs@unicode     . #x2E88)     ; &g2-UU+2E88;
+      )
+     ((=gt-k             . 00091)      ; &GT-K00091;
+      (=gt-pj-k1         . #x3234)     ; &GT-K00091; [18-20]
+      (<-formed@component/connect-below
+       ((=ucs              . #x5200)   ; 刀
+       )
+       ((name              . "CJK RADICAL KNIFE ONE")
+       (=ucs               . #x2E88)   ; ⺈
+       ))
       ))
     ))
 (define-char
@@ -316,7 +326,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=gt-k             . 00266)      ; &GT-K00266;
+     ((=ucs              . #x5F50)     ; 彐
       ))
     (name              . "CJK RADICAL SNOUT TWO")
     (general-category  symbol other) ; Informative Category
@@ -326,28 +336,65 @@
     (ideographic-strokes . 0)
     (total-strokes      . 3)
     (=ucs              . #x2E95)       ; ⺕
-    (=ucs@unicode      . #x5F50)       ; ⺕
-    (=gb2312           . #x6566)       ; &I-G0-6566; [69-70]
+    (=>ucs@unicode     . #x5F50)       ; ⺕
+    (=>big5-cdp                . #x8BAB)       ; ⺕
+    (=>gt              . 67403)        ; ⺕
     ))
 (define-char
   '((<-denotational
-     ((=ucs              . #x5F50)     ; 彐
+     ((name              . "CJK RADICAL SNOUT TWO")
+      (=ucs              . #x2E95)     ; ⺕
       ))
-    (=>ucs             . #x2E95)       ; ⺕
     (ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 0)
     (total-strokes      . 3)
-    (=gt-k             . 00266)        ; &GT-K00266;
-    (=gt-pj-k1         . #x3663)       ; &GT-K00266; [22-67]
+    (=adobe-japan1-4   . 15391)        ; &AJ1-15391;
+    (=big5-cdp         . #x8BAB)       ; &I-CDP-8BAB;
+    (=gt               . 67403)        ; &I-GT-67403;
+    (=gt-pj-11         . #x5A40)       ; &I-GT-67403; [58-32]
+    (->subsumptive
+     ((=decomposition@cid
+       ((=ucs              . #x5F50)   ; 彐
+       )
+       ((=ucs              . #xE0101)  ; 󠄁
+       ))
+      (==adobe-japan1-4          . 15391)      ; &g2-AJ1-15391;
+      (==big5-cdp        . #x8BAB)     ; &g2-AJ1-15391;
+      (==gt              . 67403)      ; &g2-AJ1-15391;
+      (->subsumptive
+       ((===adobe-japan1-4  . 15391)   ; &R-AJ1-15391;
+       )
+       ((===big5-cdp       . #x8BAB)   ; &R-CDP-8BAB;
+       )
+       ((===gt             . 67403)    ; &R-GT-67403;
+       ))
+      )
+     ((=gt-k             . 00267)      ; &GT-K00267;
+      (=gt-pj-k1         . #x3974)     ; &GT-K00267; [25-84]
+      ))
     ))
 (define-char
   '((<-denotational
-     ((=gt-k             . 00266)      ; &GT-K00266;
+     ((name              . "CJK RADICAL SNOUT TWO")
+      (=ucs              . #x2E95)     ; ⺕
       ))
     (ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 0)
     (total-strokes      . 3)
-    (=big5-cdp         . #x897C)       ; &CDP-897C;
+    (=ucs@unicode      . #x5F50)       ; &G0-6566;
+    (=ucs@JP/hanazono  . nil)
+    (=gb2312           . #x6566)       ; &G0-6566; [69-70]
+    (=big5-cdp         . #x897C)       ; &I-CDP-897C;
+    (->subsumptive
+     ((==ucs@unicode     . #x5F50)     ; &g2-UU+5F50;
+      (==ucs@JP/hanazono  . nil)
+      (==gb2312                  . #x6566)     ; &g2-UU+5F50; [69-70]
+      )
+     ((=gt-k             . 00266)      ; &GT-K00266;
+      (=gt-pj-k1         . #x3663)     ; &GT-K00266; [22-67]
+      )
+     ((==big5-cdp        . #x897C)     ; &g2-CDP-897C;
+      ))
     ))
 (define-char
   '((<-denotational
@@ -417,19 +464,32 @@
     ))
 (define-char
   '((<-denotational
-     ((name*             . "ideographic component hood")
-      (=big5-cdp         . #x8A78)     ; &CDP-8A78;
+     ((=ucs              . #x5183)     ; 冃
+      ))
+    (<-denotational@component
+     ((=>ucs@component   . #x65E5)     ; &IWDS1-118;
+      (=>iwds-1                  .  0118)      ; &IWDS1-118;
       ))
     (name              . "CJK RADICAL SUN")
+    (name*             . "ideographic component hood")
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (ideographic-radical . 13) ; ⼌
+    (ideographic-strokes . 2)
+    (total-strokes      . 4)
     (=ucs              . #x2E9C)       ; ⺜
+    (=big5-cdp         . #x8A78)       ; &I-CDP-8A78;
     (=gt-k             . 00565)        ; &I-GT-K00565;
     (=gt-pj-k1         . #x3229)       ; ⺜ [18-09]
-    (<-identical@component/connect-below
-     ((name*             . "ideographic component hood")
-      (=big5-cdp         . #x8A78)     ; &CDP-8A78;
+    (<-same@component/connect-below
+     ((=ucs              . #x5183)     ; 冃
+      ))
+    (->subsumptive
+     ((==big5-cdp        . #x8A78)     ; &g2-CDP-8A78;
+      )
+     ((==ucs@unicode     . #x2E9C)     ; &g2-GT-K00565;
+      (==gt-k            . 00565)      ; &g2-GT-K00565;
       ))
     ))
 (define-char
@@ -624,33 +684,36 @@
       ))
     ))
 (define-char
-  '((<-denotational
-     ((=big5-cdp         . #x8B48)     ; &GT-36329;
-      ))
-    (name              . "CJK RADICAL EYE")
+  '((name              . "CJK RADICAL EYE")
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (=ucs              . #x2EAB)       ; ⺫
-    (<-formed@component/connect-below
-     ((=ucs              . #x76EE)     ; 目
-      ))
-    (<-identical@component/connect-below
-     ((=big5-cdp         . #x8B48)     ; &GT-36329;
-      ))
-    ))
-(define-char
-  '((=>ucs             . #x2EAB)       ; ⺫
     (ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 0)
     (total-strokes      . 5)
-    (=big5-cdp         . #x8B48)       ; &GT-36329;
+    (=ucs              . #x2EAB)       ; ⺫
+    (=big5-cdp         . #x8B48)       ; &I-CDP-8B48;
     (=gt               . 36329)        ; &I-GT-36329;
     (=gt-k             . 01549)        ; &I-GT-K01549;
     (=gt-pj-5          . #x7264)       ; &I-GT-36329; [82-68]
     (<-formed@component
      ((=ucs              . #x76EE)     ; 目
       ))
+    (->subsumptive
+     ((==big5-cdp        . #x8B48)     ; &g2-CDP-8B48;
+      )
+     ((==gt              . 36329)      ; &g2-GT-36329;
+      (==gt-k            . 01549)      ; &g2-GT-36329;
+      )
+     ((==ucs@unicode     . #x2EAB)     ; &g2-UU+2EAB;
+      (<-formed@component/connect-below
+       ((=ucs              . #x76EE)   ; 目
+       ))
+      (<-identical@component/connect-below
+       ((name              . "CJK RADICAL EYE")
+       (=ucs               . #x2EAB)   ; ⺫
+       ))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -880,7 +943,10 @@
       ))
     ))
 (define-char
-  '((name              . "CJK RADICAL EWE")
+  '((<-denotational
+     ((=ucs              . #x2634B)    ; 𦍋
+      ))
+    (name              . "CJK RADICAL EWE")
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
@@ -904,6 +970,15 @@
     (->mistakable
      ((=ucs              . #x8289)     ; 芉
       ))
+    (->subsumptive
+     ((==ucs@unicode     . #x2EB8)     ; &g2-CB06151;
+      (==cbeta           . 06151)      ; &g2-CB06151;
+      (->subsumptive
+       ((===ucs@unicode            . #x2EB8)   ; &R-UU+2EB8;
+       )
+       ((===cbeta          . 06151)    ; &R-CB06151;
+       ))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -945,9 +1020,9 @@
       ))
     ))
 (define-char
-  '((<-denotational
-     ((=big5-cdp         . #x8A73)     ; &GT-37857;
-      (=daikanwa         . 29237)      ; &I-M-29237;
+  '((<-denotational@component
+     ((=>ucs@component   . #x6708)     ; &IWDS1-053;
+      (=>iwds-1                  .  0053)      ; &IWDS1-053;
       ))
     (name              . "CJK RADICAL MEAT")
     (general-category  symbol other) ; Informative Category
@@ -957,12 +1032,52 @@
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (=ucs              . #x2EBC)       ; ⺼
-    (<-formed@component/connect-right
+    (=big5-cdp         . #x8A73)       ; &I-CDP-8A73;
+    (=gt               . 37857)        ; &I-GT-37857;
+    (=gt-pj-6          . #x3879)       ; &I-GT-37857; [24-89]
+    (=daikanwa         . 29237)        ; &I-M-29237;
+    (<-formed@component
      ((=ucs              . #x8089)     ; 肉
+      (=daikanwa         . 29236)      ; &I-M-29236;
       ))
-    (<-identical@component/connect-right
-     ((=big5-cdp         . #x8A73)     ; &GT-37857;
-      (=daikanwa         . 29237)      ; &I-M-29237;
+    (<-formed@component*sources
+     zihui/char-index zhengzitong daikanwa)
+    (->subsumptive
+     ((==gt              . 37857)      ; &g2-GT-37857;
+      (==daikanwa        . 29237)      ; &g2-GT-37857;
+      (->subsumptive
+       ((===daikanwa       . 29237)    ; &R-M-29237;
+       )
+       ((===gt             . 37857)    ; &R-GT-37857;
+       ))
+      )
+     ((==ucs@unicode     . #x2EBC)     ; &g2-UU+2EBC;
+      (<-formed@component/connect-right
+       ((name              . "CJK RADICAL MEAT")
+       (=ucs               . #x2EBC)   ; ⺼
+       ))
+      )
+     ((==big5-cdp        . #x8A73)     ; &g2-CDP-8A73;
+      )
+     ((=big5-cdp         . #x8958)     ; &CDP-8958;
+      (=gt-k             . 00417)      ; &I-GT-K00417;
+      (=gt-pj-k1         . #x377D)     ; &CDP-8958; [23-93]
+      (<-formed@component/connect-above
+       ((name              . "CJK RADICAL MEAT")
+       (=ucs               . #x2EBC)   ; ⺼
+       )
+       ((=ucs              . #x8089)   ; 肉
+       ))
+      (->subsumptive
+       ((==big5-cdp        . #x8958)   ; &g2-CDP-8958;
+       (==gt-k             . 00417)    ; &g2-CDP-8958;
+       (==gt-pj-k1         . #x377D)   ; &g2-CDP-8958; [23-93]
+       (->subsumptive
+        ((===big5-cdp        . #x8958) ; &R-CDP-8958;
+         )
+        ((===gt-k            . 00417)  ; &R-GT-K00417;
+         ))
+       ))
       ))
     ))
 (define-char