From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 5 Dec 2024 16:19:26 +0000 (+0900)
Subject: (U+752D): Add `<-denotational@usage' for BUCS+752D.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b1714c3887f0f9f27bc5227a4918a1a9878b44e7;p=chise%2Fxemacs-chise.git

(U+752D): Add `<-denotational@usage' for BUCS+752D.
(BUCS+752D): New abstract node.
---

diff --git a/lisp/utf-2000/Ideograph-R101-Use.el b/lisp/utf-2000/Ideograph-R101-Use.el
index 73ae927..289cfd9 100644
--- a/lisp/utf-2000/Ideograph-R101-Use.el
+++ b/lisp/utf-2000/Ideograph-R101-Use.el
@@ -894,14 +894,57 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 101)	; ⽤
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x752D)	; &BUCS+752D;
+      ))
+    (ideographic-radical . 101)	; ⽤
     (ideographic-strokes . 4)
     (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@iwds-1	  . #x25605)	; &A-IWDSU+25605;
+      )
+     ((=>ucs@iwds-1	  . #x7528)	; &A-IWDSU+7528;
+      ))
+    (sound@ja/on	"hou")
     (=ucs		. #x752D)	; 甭
-    (=gb2312		. #x3142)	; &I-G0-3142; [17-34]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x752D)	; 甭
+      ))
+    (ideographic-radical . 101)	; ⽤
+    (ideographic-strokes . 4)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E0D)	; 不
+      )
+     ((=ucs@unicode	  . #x7528)	; &AJ1-03899;
+      (=adobe-japan1-0	  . 03899)	; &AJ1-03899;
+      ))
+    (=ucs@unicode	. #x752D)	; &C1-524A;
+    (=gb2312		. #x3142)	; &C1-524A; [17-34]
     (=cns11643-1	. #x524A)	; &I-C1-524A; [50-42]
     (=big5		. #xACC7)	; &I-B-ACC7;
     (=daikanwa		. 21713)	; &I-M-21713;
+    (->subsumptive
+     ((==ucs@unicode	  . #x752D)	; &g2-M-21713;
+      (==gb2312		  . #x3142)	; &g2-M-21713; [17-34]
+      (==cns11643-1	  . #x524A)	; &g2-M-21713; [50-42]
+      (==daikanwa	  . 21713)	; &g2-M-21713;
+      (->subsumptive
+       ((===daikanwa	    . 21713)	; &R-M-21713;
+	)
+       ((===cns11643-1	    . #x524A)	; &R-C1-524A; [50-42]
+	)
+       ((===ucs@unicode	    . #x752D)	; &R-UU+752D;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 101)	; ⽤
@@ -1680,5 +1723,9 @@
     ))
 (define-char
   '((ideographic-radical . 101)	; ⽤
+    (==>ucs@bucs	. #x752D)	; &BUCS+752D;
+    ))
+(define-char
+  '((ideographic-radical . 101)	; ⽤
     (==>daijiten	. 07476)	; &A2-DJT-07476;
     ))