From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 17 Aug 2024 05:38:48 +0000 (+0900)
Subject: (U-00024C04): New character; use `<-denotational' for A-cgnU+752C; use
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=429506c602ed8074261e4619ee2b0bdba883211b;p=chise%2Fxemacs-chise.git

(U-00024C04): New character; use `<-denotational' for A-cgnU+752C; use
`<-denotational@usage' for BUCS+752C.
---

diff --git a/lisp/utf-2000/Ideograph-R101-Use.el b/lisp/utf-2000/Ideograph-R101-Use.el
index eee1356..4fb75e4 100644
--- a/lisp/utf-2000/Ideograph-R101-Use.el
+++ b/lisp/utf-2000/Ideograph-R101-Use.el
@@ -500,6 +500,45 @@
     (=ucs-itaiji-005	. #x752C)	; &U-i005+752C;
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x752C)	; &A-cgnU+752C;
+      ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x752C)	; &BUCS+752C;
+      ))
+    (ideographic-radical . 101)	; ⽤
+    (ideographic-strokes . 2)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x5200)	; &A-compU+5200;
+      (=>iwds-1		  .  0149)	; &A-compU+5200;
+      )
+     ((=>ucs@iwds-1	  . #x7528)	; &A-IWDSU+7528;
+      ))
+    (=ucs		. #x24C04)	; 𤰄
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x24C04)	; 𤰄
+      ))
+    (ideographic-radical . 101)	; ⽤
+    (ideographic-strokes . 2)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5200)	; 刀
+      )
+     ((=ucs@unicode	  . #x7528)	; &AJ1-03899;
+      (=adobe-japan1-0	  . 03899)	; &AJ1-03899;
+      ))
+    (=ucs@iso		. #x24C04)	; &U-00024C04;
+    ))
+(define-char
   '((<-denotational@usage
      ((==>ucs@bucs	  . #x752C)	; &BUCS+752C;
       ))