From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 4 Oct 2023 20:54:25 +0000 (+0900)
Subject: (U+663C): Add `<-denotational@component' for A-IWDSU+663C; apply new
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=347753b32b6397f651a90a43f44d78740dab2062;p=chise%2Fxemacs-chise.git

(U+663C): Add `<-denotational@component' for A-IWDSU+663C; apply new
conventions for glyph granularity.
(U-000316B9): New character; use `<-denotational@component' for
A-IWDSU+663C.
(A-IWDSU+663C): New abstract node.
---

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index 841e8d1..5a66784 100644
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -3840,7 +3840,10 @@
     (=hanziku-3		. #xDFB2)	; &I-HZK03-DFB2;
     ))
 (define-char
-  '((<-denotational@usage
+  '((<-denotational@component
+     ((=>ucs@iwds-1	  . #x663C)	; &A-IWDSU+663C;
+      ))
+    (<-denotational@usage
      ((==>daijiten	  . 04542)	; &A2-DJT-04542;
       ))
     (ideographic-radical@r044 . 44)	; ⼫
@@ -3848,6 +3851,14 @@
     (ideographic-radical@r072 . 72)	; ⽇
     (ideographic-strokes@r072 . 5)
     (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
+      (=ucs		  . #x2FF5)	; ⿵
+      )
+     ((=ucs		  . #x5C3A)	; å°º
+      )
+     ((=ucs		  . #x65E6)	; 旦
+      ))
     (=ucs		. #x663C)	; 昼
     (=adobe-japan1-0	. 02985)	; &I-AJ1-02985;
     (=jis-x0208		. #x436B)	; &I-J90-436B; [35-75]
@@ -3868,15 +3879,15 @@
       (=adobe-japan1-0	  . 05105)	; &AJ1-05105;
       (=jis-x0208	  . #x5A6C)	; &I-J90-5A6C; [58-76]
       ))
+    (<-vulgar
+     ((=ucs@unicode	  . #x665D)	; &AJ1-05105;
+      (=adobe-japan1-0	  . 05105)	; &AJ1-05105;
+      (=daikanwa	  . 13948)	; &I-M-13948;
+      ))
+    (<-vulgar*sources
+     songyuan-yilai-suzipu daikanwa)
     (->subsumptive
      ((==gt		  . 17517)	; &g2-GT-17517;
-      (<-vulgar
-       ((=ucs@unicode	    . #x665D)	; &AJ1-05105;
-	(=adobe-japan1-0    . 05105)	; &AJ1-05105;
-	(=daikanwa	    . 13948)	; &I-M-13948;
-	))
-      (<-vulgar*sources
-       songyuan-yilai-suzipu daikanwa)
       (->subsumptive
        ((ideographic-radical . 44)	; ⼫
 	(ideographic-strokes . 6)
@@ -3919,6 +3930,23 @@
       ))
     ))
 (define-char
+  '((<-denotational@component
+     ((=>ucs@iwds-1	  . #x663C)	; &A-IWDSU+663C;
+      ))
+    (ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5C3A)	; å°º
+      )
+     ((=ucs		  . #x4E14)	; 且
+      ))
+    (=ucs		. #x316B9)	; 𱚹
+    ))
+(define-char
   '((ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
@@ -8572,6 +8600,19 @@
     ))
 (define-char
   '((ideographic-radical . 44)	; ⼫
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
+      (=ucs		  . #x2FF5)	; ⿵
+      )
+     ((=ucs		  . #x5C3A)	; å°º
+      )
+     ((=>ucs@component	  . #x4E14)	; &A-compU+4E14;
+      (=>iwds-1		  .  0114)	; &A-compU+4E14;
+      ))
+    (=>ucs@iwds-1	. #x663C)	; &A-IWDSU+663C;
+    ))
+(define-char
+  '((ideographic-radical . 44)	; ⼫
     (==>ucs@bucs	. #x5C39)	; &BUCS+5C39;
     (==>daijiten	. 02470)	; &BUCS+5C39;
     ))