From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 19 Jun 2023 23:40:11 +0000 (+0900)
Subject: (U+6B7B): Add `<-denotational@component' for A-IWDSU+6B7B.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9dffb20e80fff90fc9ae2aea062b889fcc10f22b;p=chise%2Fxemacs-chise.git

(U+6B7B): Add `<-denotational@component' for A-IWDSU+6B7B.
(A-IWDSU+6B7B): New abstract node; unify IWDS1-0445.
---

diff --git a/lisp/utf-2000/Ideograph-R078-Death.el b/lisp/utf-2000/Ideograph-R078-Death.el
index 2ba722a..4d520f0 100644
--- a/lisp/utf-2000/Ideograph-R078-Death.el
+++ b/lisp/utf-2000/Ideograph-R078-Death.el
@@ -428,6 +428,10 @@
   '((<-denotational
      ((=>ucs@cognate	  . #x6B7B)	; &A-cgnU+6B7B;
       ))
+    (<-denotational@component
+     ((=>ucs@iwds-1	  . #x6B7B)	; &A-IWDSU+6B7B;
+      (=>iwds-1		  .  0445)	; &A-IWDSU+6B7B;
+      ))
     (ideographic-radical . 78)	; ⽍
     (ideographic-strokes . 2)
     (total-strokes	 . 6)
@@ -8932,6 +8936,12 @@
     ))
 (define-char
   '((ideographic-radical . 78)	; ⽍
+    (=>iwds-1*level	. 2)
+    (=>ucs@iwds-1	. #x6B7B)	; &A-IWDSU+6B7B;
+    (=>iwds-1		.  0445)	; &A-IWDSU+6B7B;
+    ))
+(define-char
+  '((ideographic-radical . 78)	; ⽍
     (hanyu-dazidian	2 1381 3)
     (=ucs		. #x239BE)	; 𣦾
     (=hanziku-4		. #xC44B)	; &I-HZK04-C44B;