- Use `=jis-x0208@{1978|1983|1990}' instead of

[chise/xemacs-chise.git.1] / 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 4e74346..7daa6de 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -1785,6 +1785,12 @@
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 5)
     (total-strokes      . 9)
+    (<-same
+     ((=ucs              . #x25055)    ; 𥁕
+      (=daikanwa         . 22978)      ; &I-M-22978;
+      ))
+    (<-same*sources
+     guangyun daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -1793,6 +1799,7 @@
       )
      ((=ucs              . #x76BF)     ; 皿
       ))
+    (shinjigen-1       . 5235)
     (=ucs              . #x6637)       ; 昷
     (=jis-x0212                . #x4230)       ; &I-JSP-4230; [34-16]
     (=cns11643-3       . #x2D24)       ; &I-C3-2D24; [13-04]
@@ -1805,8 +1812,13 @@
     (ideographic-strokes . 5)
     (total-strokes      . 9)
     (=ucs              . #x6638)       ; 昸
-    (=cns11643-3       . #x2D25)       ; &I-C3-2D25; [13-05]
-    (=daikanwa         . 13875)        ; &I-M-13875;
+    (->subsumptive
+     ((=daikanwa         . 13875)      ; &M-13875;
+      )
+     ((=ucs@unicode      . #x6638)     ; &UU+6638;
+      )
+     ((=cns11643-3       . #x2D25)     ; &C3-2D25; [13-05]
+      ))
     ))
 (define-char
   '((ideographic-radical . 72) ; ⽇
@@ -3471,7 +3483,7 @@
     (=ks-x1001         . #x4F7C)       ; &M-14005; [47-92]
     (=jis-x0212                . #x4247)       ; &I-JSP-4247; [34-39]
     (=daikanwa         . 14005)        ; &I-M-14005;
-    (=ucs@jis-1990     . #x6677)       ; &M-14005;
+    (=ucs@jis/1990     . #x6677)       ; &M-14005;
     (=ucs@ks           . #x6677)       ; &M-14005;
     ))
 (define-char
@@ -3494,7 +3506,7 @@
     (=big5             . #xB4BE)       ; &I-B-B4BE;
     (=jef-china3       . #x51A7)       ; &I-JC3-51A7;
     (=ucs@cns          . #x6677)       ; &JX1-7540;
-    (=ucs@jis-2000     . #x6677)       ; &JX1-7540;
+    (=ucs@jis/2000     . #x6677)       ; &JX1-7540;
     (=ucs@big5         . #x6677)       ; &JX1-7540;
     ))
 (define-char