update.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R072-Sun.el

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 9d7db5d..b58cab6 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -982,6 +982,12 @@
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 3)
     (total-strokes      . 7)
+    (=>ucs-itaiji-002  . #x81FD)       ; &A-U-i002+81FD;
+    ))
+(define-char
+  '((ideographic-radical . 72) ; ⽇
+    (ideographic-strokes . 3)
+    (total-strokes      . 7)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -990,7 +996,11 @@
       )
      ((=ucs              . #x65E7)     ; 旧
       ))
-    (=>>gt-k           . 03318)        ; &G-GT-K03318;
+    (=gt-k             . 03616)        ; &GT-K03616;
+    (=>>gt-k           . 03318)        ; &GT-K03616;
+    (=gt-pj-k1         . #x5E44)       ; &GT-K03616; [62-36]
+    (=ucs-itaiji-002   . #x81FD)       ; &GT-K03616;
+    (=ucs-itaiji-003   . #x81FD)       ; &GT-K03616;
     (<-simplified@component
      ((=ucs              . #x81FD)     ; 臽
       ))
@@ -1003,24 +1013,28 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
        (=ucs               . #x2FF1)   ; ⿱
        )
-       ((name              . "CJK RADICAL KNIFE ONE")
-       (=ucs               . #x2E88)   ; ⺈
+       ((=gt-k             . 00089)    ; &GT-K00089;
        )
        ((=ucs              . #x65E7)   ; 旧
        ))
-      (=gt-k             . 03318)      ; &GT-K03318;
-      (=gt-pj-k1         . #x357D)     ; &GT-K03318; [21-93]
+      (==gt-k            . 03616)      ; &g2-GT-K03616;
+      (==ucs-itaiji-002          . #x81FD)     ; &g2-GT-K03616;
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
        (=ucs               . #x2FF1)   ; ⿱
        )
-       ((=gt-k             . 00089)    ; &GT-K00089;
+       ((name              . "CJK RADICAL KNIFE ONE")
+       (=ucs               . #x2E88)   ; ⺈
        )
        ((=ucs              . #x65E7)   ; 旧
        ))
-      (=gt-k             . 03616)      ; &GT-K03616;
-      (=gt-pj-k1         . #x5E44)     ; &GT-K03616; [62-36]
+      (=gt-k             . 03318)      ; &GT-K03318;
+      (=gt-pj-k1         . #x357D)     ; &GT-K03318; [21-93]
+      (->subsumptive
+       ((==gt-k                    . 03318)    ; &g2-GT-K03318;
+       (==ucs-itaiji-003   . #x81FD)   ; &g2-GT-K03318;
+       ))
       ))
     ))
 (define-char
@@ -9567,11 +9581,8 @@
       )
      ((=ucs              . #x65E5)     ; 日
       )
-     ((=ucs@cns                  . #x82F1)     ; &HD-IB-3B76;
-      (=ucs@ks           . #x82F1)     ; &HD-IB-3B76;
-      (=ks-x1001         . #x6748)     ; &HD-IB-3B76; [71-40]
-      (=cns11643-1       . #x5341)     ; &I-C1-5341; [51-33]
-      (=daikanwa         . 30808)      ; &I-M-30808;
+     ((=ucs@cns                  . #x82F1)     ; &MJ021701;
+      (=mj               . 021701)     ; &I-MJ021701;
       ))
     (=ucs@cns          . #x668E)       ; &HD-KS-158300;
     (=cns11643-3       . #x415B)       ; &HD-KS-158300; [33-59]
@@ -9589,8 +9600,7 @@
        )
        ((=ucs              . #x65E5)   ; 日
        )
-       ((==ucs@ks          . #x82F1)   ; &g2-HD-IB-3B76;
-       (==hanyo-denshi/ib  . #x3B76)   ; &g2-HD-IB-3B76; [27-86]
+       ((==mj              . 021701)   ; &g2-MJ021701;
        ))
       (==hanyo-denshi/ks  . 158300)    ; &g2-HD-KS-158300;
       (==daikanwa        . 14048)      ; &g2-HD-KS-158300;
@@ -9644,8 +9654,8 @@
       )
      ((=ucs              . #x65E5)     ; 日
       )
-     ((=ucs@unicode      . #x82F1)     ; &AJ1-01267;
-      (=adobe-japan1-0   . 01267)      ; &AJ1-01267;
+     ((=ucs@unicode      . #x82F1)     ; &MJ021700;
+      (=mj               . 021700)     ; &I-MJ021700;
       ))
     (=ucs@unicode      . #x668E)       ; &AJ1-05114;
     (=adobe-japan1-0   . 05114)        ; &AJ1-05114;