update.

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R028-Private.el

diff --git a/lisp/utf-2000/Ideograph-R028-Private.el b/lisp/utf-2000/Ideograph-R028-Private.el
index eafdcb9..282e62c 100644 (file)
--- a/lisp/utf-2000/Ideograph-R028-Private.el
+++ b/lisp/utf-2000/Ideograph-R028-Private.el
@@ -1208,6 +1208,23 @@
   '((ideographic-radical . 28) ; ⼛
     (ideographic-strokes . 4)
     (total-strokes      . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x53B6)     ; 厶
+      )
+     ((=ucs              . #x6728)     ; 木
+      ))
+    (=ucs              . #x20AE1)      ; 𠫡
+    (->subsumptive
+     ((==ucs@iso         . #x20AE1)    ; &g2-IU-00020AE1;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 28) ; ⼛
+    (ideographic-strokes . 4)
+    (total-strokes      . 6)
     (=ucs              . #x20AE3)      ; 𠫣
     ))
 (define-char
@@ -1363,7 +1380,8 @@
     (=gt-k             . 03587)        ; &GT-K03587;
     (=gt-pj-k1         . #x4875)       ; &GT-K03587; [40-85]
     (<-formed
-     ((=ucs              . #x7CF8)     ; 糸
+     ((=ucs@unicode      . #x7CF8)     ; &AJ1-02227;
+      (=adobe-japan1-0   . 02227)      ; &AJ1-02227;
       ))
     (->subsumptive
      ((==gt-k            . 03587)      ; &g2-GT-K03587;
@@ -2532,15 +2550,7 @@
     (<-vulgar*sources
      guangyun daikanwa shinjigen)
     (->subsumptive
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-       (=ucs               . #x2FF1)   ; ⿱
-       )
-       ((=ucs              . #x53BD)   ; 厽
-       )
-       ((=ucs              . #x201CD)  ; 𠇍
-       ))
-      (==ucs@unicode     . #x53C5)     ; &g2-M-03100;
+     ((==ucs@unicode     . #x53C5)     ; &g2-M-03100;
       (==ucs@JP/hanazono  . nil)
       (==cns11643-3      . #x3A29)     ; &g2-M-03100; [26-09]
       (==daikanwa        . 03100)      ; &g2-M-03100;
@@ -2561,14 +2571,6 @@
        )
        ((=ucs              . #xE0100)  ; 󠄀
        ))
-      (ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
-       (=ucs               . #x2FF5)   ; ⿵
-       )
-       ((=ucs              . #x53BD)   ; 厽
-       )
-       ((=ucs              . #x201CD)  ; 𠇍
-       ))
       (==ucs@jis         . #x53C5)     ; &g2-AJ1-19218;
       (==adobe-japan1-5          . 19218)      ; &g2-AJ1-19218;
       (==jis-x0212       . #x3458)     ; &g2-AJ1-19218; [20-56]
@@ -2939,6 +2941,23 @@
   '((ideographic-radical . 28) ; ⼛
     (ideographic-strokes . 12)
     (total-strokes      . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=>ucs@iwds-1      . #x20AD3)    ; &A-IWDSU+20AD3;
+      )
+     ((=ucs              . #x7231)     ; 爱
+      ))
+    (=ucs              . #x53C6)       ; 叆
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x53C6)     ; 叆
+      ))
+    (ideographic-radical . 28) ; ⼛
+    (ideographic-strokes . 12)
+    (total-strokes      . 14)
     (hanyu-dazidian    1 389 9)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -2946,18 +2965,24 @@
       )
      ((=ucs              . #x4E91)     ; 云
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-       (=ucs               . #x2FF0)   ; ⿰
-       )
-       ((=big5-cdp         . #x8BB8)   ; &CDP-8BB8;
+     ((=ucs@unicode      . #x7231)     ; &G0-302E;
+      (=gb2312           . #x302E)     ; &G0-302E; [16-14]
+      ))
+    (=ucs@unicode      . #x53C6)       ; &EGB-7A45;
+    (=iso-ir165                . #x7A45)       ; &EGB-7A45; [90-37]
+    (<-simplified@CN
+     ((=ucs@unicode      . #x9749)     ; &MJ027887;
+      (=mj               . 027887)     ; &MJ027887;
+      ))
+    (->subsumptive
+     ((==ucs@unicode     . #x53C6)     ; &g2-UU+53C6;
+      (==iso-ir165       . #x7A45)     ; &g2-UU+53C6; [90-37]
+      (->subsumptive
+       ((===ucs@unicode            . #x53C6)   ; &R-UU+53C6;
        )
-       ((=ucs              . #x53CB)   ; 友
+       ((=hanziku-1        . #xF5F5)   ; &HZK01-F5F5;
        ))
       ))
-    (=ucs              . #x53C6)       ; 叆
-    (=iso-ir165                . #x7A45)       ; &I-EGB-7A45; [90-37]
-    (=hanziku-1                . #xF5F5)       ; &I-HZK01-F5F5;
     ))
 (define-char
   '((<-denotational@component