X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R072-Sun.el;h=25a074e9f32652e54c83e31ae397b5d456f46b4e;hb=c87edd7fed0ba684f5d85f9c3d9168ef2d40f6fe;hp=ea564c5ce295f4c64913875556cd53044e4e0151;hpb=92d2344af63939b879fd3baade69fad83545251a;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index ea564c5..25a074e 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -3,13 +3,13 @@
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-    (=>ucs@component	. #x65E5)	; &IWDS1-118;
-    (=>iwds-1		.  0118)	; &IWDS1-118;
+    (=>ucs@component	. #x65E5)	; &A-compU+65E5;
+    (=>iwds-1		.  0118)	; &A-compU+65E5;
     ))
 (define-char
   '((<-denotational@component
-     ((=>ucs@component	  . #x65E5)	; &IWDS1-118;
-      (=>iwds-1		  .  0118)	; &IWDS1-118;
+     ((=>ucs@component	  . #x65E5)	; &A-compU+65E5;
+      (=>iwds-1		  .  0118)	; &A-compU+65E5;
       ))
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 0)
@@ -101,8 +101,8 @@
     ))
 (define-char
   '((<-denotational@component
-     ((=>ucs@component	  . #x4E14)	; &IWDS1-114;
-      (=>iwds-1		  .  0114)	; &IWDS1-114;
+     ((=>ucs@component	  . #x4E14)	; &A-compU+4E14;
+      (=>iwds-1		  .  0114)	; &A-compU+4E14;
       ))
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 1)
@@ -305,8 +305,8 @@
     ))
 (define-char
   '((<-denotational@component
-     ((=>ucs@component	  . #x7680)	; &IWDS1-355;
-      (=>iwds-1		  .  0355)	; &IWDS1-355;
+     ((=>ucs@component	  . #x7680)	; &A-compU+7680;
+      (=>iwds-1		  .  0355)	; &A-compU+7680;
       ))
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 2)
@@ -1128,6 +1128,59 @@
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 3)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x65E5)	; &A-compU+65E5;
+      (=>iwds-1		  .  0118)	; &A-compU+65E5;
+      )
+     ((=>ucs@component	  . #x4E8F)	; &A-compU+4E8F;
+      (=>iwds-1		  .  0093)	; &A-compU+4E8F;
+      ))
+    (=ucs		. #x23158)	; 𣅘
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x23158)	; 𣅘
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 3)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs		  . #x4E90)	; 亐
+      ))
+    (=ucs-var-001	. #x23158)	; &U-v001+23158;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x23158)	; 𣅘
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 3)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs		  . #x4E8F)	; 亏
+      ))
+    (=ucs@iso		. #x23158)	; &U-00023158;
+    (->subsumptive
+     ((==ucs@iso	  . #x23158)	; &g2-IU-00023158;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 3)
+    (total-strokes	 . 7)
     (=>ucs-itaiji-002	. #x81FD)	; &A-U-i002+81FD;
     ))
 (define-char
@@ -1142,11 +1195,11 @@
       )
      ((=ucs		  . #x65E7)	; 旧
       ))
-    (=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;
+    (=gt-k		. 03616)	; &U-i002+81FD;
+    (=>>gt-k		. 03318)	; &U-i002+81FD;
+    (=gt-pj-k1		. #x5E44)	; &U-i002+81FD; [62-36]
+    (=ucs-itaiji-002	. #x81FD)	; &U-i002+81FD;
+    (=ucs-itaiji-003	. #x81FD)	; &U-i002+81FD;
     (<-simplified@component
      ((=ucs		  . #x81FD)	; 臽
       ))
@@ -1178,8 +1231,8 @@
       (=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;
+       ((==gt-k		    . 03318)	; &g2-U-i003+81FD;
+	(==ucs-itaiji-003   . #x81FD)	; &g2-U-i003+81FD;
 	))
       ))
     ))
@@ -2258,8 +2311,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x5929)	; &IWDS1-008;
-      (=>iwds-1		  .  0008)	; &IWDS1-008;
+     ((=>ucs@component	  . #x5929)	; &A-compU+5929;
+      (=>iwds-1		  .  0008)	; &A-compU+5929;
       )
      ((=ucs		  . #x65E5)	; 日
       ))
@@ -4702,8 +4755,8 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x6637)	; &IWDS1-320;
-      (=>iwds-1		  .  0320)	; &IWDS1-320;
+     ((=>ucs@component	  . #x6637)	; &A-compU+6637;
+      (=>iwds-1		  .  0320)	; &A-compU+6637;
       ))
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 5)
@@ -5413,13 +5466,13 @@
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
-    (=>ucs@component	. #x6649)	; &IWDS1-388;
-    (=>iwds-1		.  0388)	; &IWDS1-388;
+    (=>ucs@component	. #x6649)	; &A-compU+6649;
+    (=>iwds-1		.  0388)	; &A-compU+6649;
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x6649)	; &IWDS1-388;
-      (=>iwds-1		  .  0388)	; &IWDS1-388;
+     ((=>ucs@component	  . #x6649)	; &A-compU+6649;
+      (=>iwds-1		  .  0388)	; &A-compU+6649;
       ))
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 6)
@@ -5497,8 +5550,8 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x6649)	; &IWDS1-388;
-      (=>iwds-1		  .  0388)	; &IWDS1-388;
+     ((=>ucs@component	  . #x6649)	; &A-compU+6649;
+      (=>iwds-1		  .  0388)	; &A-compU+6649;
       ))
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 6)
@@ -9015,13 +9068,59 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x6797)	; 林
+     ((=>ucs@component	  . #x6797)	; &A-compU+6797;
+      (=>iwds-1		  .  0229)	; &A-compU+6797;
       )
      ((=ucs		  . #x65E5)	; 日
       ))
     (=ucs		. #x23205)	; 𣈅
-    (=daikanwa		. 14020)	; &I-M-14020;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x23205)	; 𣈅
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 8)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x6797)	; 林
+      )
+     ((=ucs		  . #x65E5)	; 日
+      ))
+    (=ucs@iso		. #x23205)	; &M-14020;
+    (=daikanwa		. 14020)	; &M-14020;
     (=cbeta		. 04877)	; &I-CB04877;
+    (->subsumptive
+     ((==daikanwa	  . 14020)	; &g2-M-14020;
+      )
+     ((==ucs@iso	  . #x23205)	; &g2-CB04877;
+      (==cbeta		  . 04877)	; &g2-CB04877;
+      (->subsumptive
+       ((===ucs@iso	    . #x23205)	; &R-U-00023205;
+	)
+       ((===cbeta	    . 04877)	; &R-CB04877;
+	))
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x23205)	; 𣈅
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 8)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x233DF)	; 𣏟
+      )
+     ((=ucs		  . #x65E5)	; 日
+      ))
+    (=ucs-var-001	. #x23205)	; &U-v001+23205;
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇