From 7c612fc38b21a6874da72b9525a91390add10546 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 4 Oct 2024 12:16:09 +0900
Subject: [PATCH] (GT-K02027): New character; use `<-denotational@component'
 for A-U+5C17-itaiji-002; unify U+70CF-itaiji-003.

---
 lisp/utf-2000/Ideograph-R036-Evening.el |   28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/Ideograph-R036-Evening.el b/lisp/utf-2000/Ideograph-R036-Evening.el
index 0fdd67a..5a28af4 100644
--- a/lisp/utf-2000/Ideograph-R036-Evening.el
+++ b/lisp/utf-2000/Ideograph-R036-Evening.el
@@ -1054,6 +1054,31 @@
       ))
     ))
 (define-char
+  '((<-denotational@component
+     ((=>ucs-itaiji-002	  . #x5C17)	; &A-U-i002+5C17;
+      ))
+    (ideographic-radical . 36)	; â¼£
+    (ideographic-strokes . 3)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5915)	; 夕
+      )
+     ((=big5-cdp	  . #x885E)	; &CDP-885E;
+      ))
+    (=gt-k		. 02027)	; &GT-K02027;
+    (=gt-pj-k1		. #x3849)	; &GT-K02027; [24-41]
+    (=ucs-itaiji-003	. #x70CF)	; &GT-K02027;
+    (->subsumptive
+     ((==ucs-itaiji-003	  . #x70CF)	; &g2-U-i003+70CF;
+      )
+     ((==gt-k		  . 02027)	; &g2-GT-K02027;
+      (==gt-pj-k1	  . #x3849)	; &g2-GT-K02027; [24-41]
+      ))
+    ))
+(define-char
   '((ideographic-radical . 36)	; â¼£
     (ideographic-strokes . 4)
     (total-strokes	 . 7)
@@ -3690,7 +3715,8 @@
     (=cns11643-7	. #x3F3B)	; &C7-3F3B; [31-27]
     (=daikanwa		. 49007)	; &I-M-49007;
     (<-ancient
-     ((=ucs		  . #x70CF)	; 烏
+     ((=ucs@unicode	  . #x70CF)	; &AJ1-01226;
+      (=adobe-japan1-0	  . 01226)	; &AJ1-01226;
       (=daikanwa	  . 18998)	; &I-M-18998;
       ))
     (<-ancient*sources
-- 
1.7.10.4