From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 17 Oct 2018 08:37:33 +0000 (+0900)
Subject: (A-GT-K03030): New abstract node; unify A-U+9000-itaiji-001.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=21e66b1ea5e26fe700ae3da5a57634d1355b1e37;p=chise%2Fxemacs-chise.git

(A-GT-K03030): New abstract node; unify A-U+9000-itaiji-001.
(U+9000-itaiji-001): New character; use `<-denotational' for
A-GT-K03030.
(GT-K03030): Ditto.
---

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 92f5761..8204b52 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -1232,9 +1232,67 @@
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 3)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=>ucs@component	  . #x590A)	; &A-compU+590A;
+      (=>iwds-1		  .  0092)	; &A-compU+590A;
+      ))
+    (=>gt-k		. 03030)	; &A-GT-K03030;
+    (=>ucs-itaiji-001	. #x9000)	; &A-GT-K03030;
+    ))
+(define-char
+  '((<-denotational
+     ((=>gt-k		  . 03030)	; &A-GT-K03030;
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 3)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs		  . #x590A)	; 夊
+      ))
+    (=ucs-itaiji-001	. #x9000)	; &U-i001+9000;
+    (->subsumptive
+     ((==ucs-itaiji-001	  . #x9000)	; &g2-U-i001+9000;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 3)
+    (total-strokes	 . 7)
     (=>ucs-itaiji-002	. #x81FD)	; &A-U-i002+81FD;
     ))
 (define-char
+  '((<-denotational
+     ((=>gt-k		  . 03030)	; &A-GT-K03030;
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 3)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs		  . #x5902)	; 夂
+      ))
+    (=gt-k		. 03030)	; &GT-K03030;
+    (=gt-pj-k2		. #x383B)	; &GT-K03030; [24-27]
+    (->subsumptive
+     ((==gt-k		  . 03030)	; &g2-GT-K03030;
+      (==gt-pj-k2	  . #x383B)	; &g2-GT-K03030; [24-27]
+      ))
+    ))
+(define-char
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 3)
     (total-strokes	 . 7)