From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 18 Feb 2023 04:28:12 +0000 (+0900)
Subject: (U-000230E6): Add `<-denotational@usage' for A2-DJT-04396; apply new
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9004f96bb37a2a1b36b4a6d161d3318127df07c7;p=chise%2Fxemacs-chise.git

(U-000230E6): Add `<-denotational@usage' for A2-DJT-04396; apply new
conventions for glyph granularity.
(A2-DJT-04396): New abstract node.
---

diff --git a/lisp/utf-2000/Ideograph-R070-Square.el b/lisp/utf-2000/Ideograph-R070-Square.el
index d59a7fc..b52169f 100644
--- a/lisp/utf-2000/Ideograph-R070-Square.el
+++ b/lisp/utf-2000/Ideograph-R070-Square.el
@@ -1050,15 +1050,61 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 70)	; ⽅
+  '((<-denotational@usage
+     ((==>daijiten	  . 04396)	; &A2-DJT-04396;
+      ))
+    (ideographic-radical . 70)	; ⽅
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x2D928)	; 𭤨
+      )
+     ((=ucs		  . #x52FF)	; 勿
+      ))
+    (sound@ja/on/go	"moti")
+    (sound@ja/on/kan	"butu")
     (=ucs		. #x230E6)	; 𣃦
+    (=cns11643-4	. #x2D4A)	; &I-C4-2D4A; [13-42]
+    (=daikanwa		. 13639)	; &I-M-13639;
+    (=daijiten		. 04396)	; &I-DJT-04396;
+    (<-formed
+     ((=ucs		  . #x52FF)	; 勿
+      ))
+    (<-formed$_1*sources
+     shuowen)
+    (<-same
+     ((=ucs		  . #x52FF)	; 勿
+      (=daikanwa	  . 02501)	; &I-M-02501;
+      ))
+    (<-same$_1*sources
+     shuowen daikanwa)
+    (<-same*sources
+     shuowen daikanwa)
+    (->interchangeable
+     ((=ucs		  . #x7269)	; 物
+      (=daikanwa	  . 19959)	; &I-M-19959;
+      ))
+    (->interchangeable$_1*sources
+     shuowen-zhu daikanwa)
+    (->interchangeable*sources
+     shuowen-zhu daikanwa)
     (->subsumptive
-     ((=daikanwa	  . 13639)	; &M-13639;
-      )
-     ((=ucs@iso		  . #x230E6)	; &C4-2D4A;
-      (=cns11643-4	  . #x2D4A)	; &C4-2D4A; [13-42]
+     ((==ucs@iso	  . #x230E6)	; &g2-M-13639;
+      (==cns11643-4	  . #x2D4A)	; &g2-M-13639; [13-42]
+      (==daikanwa	  . 13639)	; &g2-M-13639;
+      (==daijiten	  . 04396)	; &g2-M-13639;
+      (->subsumptive
+       ((===daikanwa	    . 13639)	; &R-M-13639;
+	)
+       ((===daijiten	    . 04396)	; &R-DJT-04396;
+	)
+       ((===cns11643-4	    . #x2D4A)	; &R-C4-2D4A; [13-42]
+	)
+       ((===ucs@iso	    . #x230E6)	; &R-U-000230E6;
+	))
       ))
     ))
 (define-char
@@ -4275,6 +4321,10 @@
     ))
 (define-char
   '((ideographic-radical . 70)	; ⽅
+    (==>daijiten	. 04396)	; &A2-DJT-04396;
+    ))
+(define-char
+  '((ideographic-radical . 70)	; ⽅
     (==>ucs@bucs	. #x65C5)	; &BUCS+65C5;
     (==>daijiten	. 04402)	; &BUCS+65C5;
     ))