From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 15 Oct 2024 08:23:30 +0000 (+0900)
Subject: (A-compU+5C38): New abstract node.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0ba45678396ee33e16bba3b6b7d13be9d157f901;p=chise%2Fxemacs-chise.git

(A-compU+5C38): New abstract node.
(U+5C38): Add `<-denotational@component' for A-compU+5C38.
(GT-K00304): Use `<-denotational@component' for A-compU+5C38 instead
of `<-denotational' for U+5C38.
(U+378B): Use A-compU+5C38 instead of A-IWDSU+378B as the target of
`<-denotational@component'; add `sound@ja/on/{kan|go}'.
---

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index 944ea41..872d0e3 100644
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -88,7 +88,16 @@
     (=ucs-itaiji-001	. #x21C23)	; &U-i001+21C23;
     ))
 (define-char
-  '((<-denotational@usage
+  '((ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 0)
+    (total-strokes	 . 3)
+    (=>ucs@component	. #x5C38)	; &A-compU+5C38;
+    ))
+(define-char
+  '((<-denotational@component
+     ((=>ucs@component	  . #x5C38)	; &A-compU+5C38;
+      ))
+    (<-denotational@usage
      ((==>ucs@bucs	  . #x5C38)	; &BUCS+5C38;
       )
      ((==>ucs@bucs	  . #x5C4D)	; &BUCS+5C4D;
@@ -157,10 +166,9 @@
       ))
     ))
 (define-char
-  '((<-denotational
-     ((=ucs		  . #x5C38)	; å°¸
-      ))
-    (<-denotational@component
+  '((<-denotational@component
+     ((=>ucs@component	  . #x5C38)	; &A-compU+5C38;
+      )
      ((=>ucs@component	  . #x5369)	; &A-compU+5369;
       ))
     (ideographic-radical . 44)	; ⼫
@@ -788,8 +796,7 @@
     ))
 (define-char
   '((<-denotational@component
-     ((=>ucs@iwds-1	  . #x378B)	; &A-IWDSU+378B;
-      (=>iwds-1		  .  0125)	; &A-IWDSU+378B;
+     ((=>ucs@component	  . #x378B)	; &A-compU+378B;
       ))
     (ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 2)
@@ -802,6 +809,8 @@
       )
      ((=ucs		  . #x53C8)	; 又
       ))
+    (sound@ja/on/go	"siki" "neN")
+    (sound@ja/on/kan	"syoku" "deN")
     (=ucs		. #x378B)	; 㞋
     (=mj		. 000796)	; &I-MJ000796;
     (=cns11643-3	. #x2240)	; &I-C3-2240; [02-32]