From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 19 Aug 2024 20:51:21 +0000 (+0900)
Subject: (U-00021A1D): Use A-compU+5915 instead of U+5915 as a component.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=45d018494775d31ff1a40a248b852e1786061d7f;p=chise%2Fxemacs-chise.git

(U-00021A1D): Use A-compU+5915 instead of U+5915 as a component.
(U+21A1D-itaiji-001): Modify structure.
(U+21A1D-itaiji-004): New character; use `<-denotational' for
U-00021A1D.
---

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 0159f2b..dfcaa8c 100644
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -9309,7 +9309,7 @@
       )
      ((=>ucs@component	  . #x707E)	; &A-compU+707E;
       )
-     ((=ucs		  . #x5915)	; 夕
+     ((=>ucs@component	  . #x5915)	; &A-compU+5915;
       ))
     (=ucs		. #x21A1D)	; 𡨝
     (<-formed
@@ -9349,18 +9349,33 @@
     (ideographic-strokes . 7)
     (total-strokes	 . 10)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-      (=ucs		  . #x2FF3)	; ⿳
-      )
-     ((=ucs		  . #x5B80)	; 宀
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=gt-k		  . 00859)	; &GT-K00859;
+     ((=ucs-itaiji-001	  . #x707E)	; &U-i001+707E;
       )
      ((=ucs		  . #x5915)	; 夕
       ))
     (=ucs-itaiji-001	. #x21A1D)	; &U-i001+21A1D;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x21A1D)	; 𡨝
+      ))
+    (ideographic-radical . 40)	; ⼧
+    (ideographic-strokes . 7)
+    (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs-itaiji-001	  . #x707E)	; &U-i001+707E;
+      )
+     ((=ucs		  . #x5902)	; 夂
+      ))
+    (=ucs-itaiji-004	. #x21A1D)	; &U-i004+21A1D;
+    ))
+(define-char
   '((ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 7)
     (total-strokes	 . 10)