From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 29 Mar 2024 17:14:11 +0000 (+0900)
Subject: (U+745A): Add `<-denotational@usage' for BUCS+745A; apply new
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=69c1f6b9bec1fe173933941f924956240b302eb2;p=chise%2Fxemacs-chise.git

(U+745A): Add `<-denotational@usage' for BUCS+745A; apply new
conventions for glyph granularity.
(BUCS+745A): New abstract node; unify A2-DJT-07343.
---

diff --git a/lisp/utf-2000/Ideograph-R096-Jade.el b/lisp/utf-2000/Ideograph-R096-Jade.el
index c38bc3b..428848c 100644
--- a/lisp/utf-2000/Ideograph-R096-Jade.el
+++ b/lisp/utf-2000/Ideograph-R096-Jade.el
@@ -11244,7 +11244,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 96)	; ⽟
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x745A)	; &BUCS+745A;
+      ))
+    (ideographic-radical . 96)	; ⽟
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
     (ideographic-structure
@@ -11256,7 +11259,25 @@
      ((=ucs		  . #x80E1)	; 胡
       ))
     (=ucs		. #x745A)	; 瑚
-    (=adobe-japan1-0	. 01950)	; &I-AJ1-01950;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x745A)	; 瑚
+      ))
+    (ideographic-radical . 96)	; ⽟
+    (ideographic-strokes . 9)
+    (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x248E9)	; 𤣩
+      )
+     ((=ucs@unicode	  . #x80E1)	; &AJ1-01929;
+      (=adobe-japan1-0	  . 01929)	; &AJ1-01929;
+      ))
+    (=ucs@unicode	. #x745A)	; &AJ1-01950;
+    (=adobe-japan1-0	. 01950)	; &AJ1-01950;
     (=jis-x0208		. #x386A)	; &I-J90-386A; [24-74]
     (=gb2312		. #x3A77)	; &I-G0-3A77; [26-87]
     (=ks-x1001		. #x7B51)	; &I-K0-7B51; [91-49]
@@ -11266,24 +11287,15 @@
     (=gt		. 27016)	; &I-GT-27016;
     (=gt-pj-1		. #x386A)	; &I-GT-27016; [24-74]
     (=daikanwa		. 21126)	; &I-M-21126;
-    (=shinjigen@1ed	.  4937)	; 瑚
-    (=shinjigen@rev	.  4934)	; 瑚
+    (=daijiten		. 07343)	; &I-DJT-07343;
+    (=shinjigen@1ed	.  4937)	; &AJ1-01950;
+    (=shinjigen@rev	.  4934)	; &AJ1-01950;
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x745A)	; 瑚
 	)
        ((=ucs		    . #xE0100)	; 󠄀
 	))
-      (ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	(=ucs		    . #x2FF0)	; â¿°
-	)
-       ((name		    . "CJK RADICAL JADE")
-	(=ucs		    . #x2EA9)	; ⺩
-	)
-       ((==ucs@unicode	    . #x80E1)	; &g2-AJ1-01929;
-	(==adobe-japan1-0   . 01929)	; &g2-AJ1-01929;
-	))
       (==ucs@unicode	  . #x745A)	; &g2-AJ1-01950;
       (==adobe-japan1-0	  . 01950)	; &g2-AJ1-01950;
       (==gb2312		  . #x3A77)	; &g2-AJ1-01950; [26-87]
@@ -11310,19 +11322,11 @@
        ((===ucs@unicode	    . #x745A)	; &R-UU+745A;
 	))
       )
+     ((==daijiten	  . 07343)	; &g2-DJT-07343;
+      )
      ((===hng-kar	  . 02430)	; &HNG018-02430;
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	(=ucs		    . #x2FF0)	; â¿°
-	)
-       ((name		    . "CJK RADICAL JADE")
-	(=ucs		    . #x2EA9)	; ⺩
-	)
-       ((==ucs@cns	    . #x80E1)	; &g2-CU+80E1;
-	(==cns11643-1	    . #x532D)	; &g2-CU+80E1; [51-13]
-	))
-      (==ucs@cns	  . #x745A)	; &g2-CU+745A;
+     ((==ucs@cns	  . #x745A)	; &g2-CU+745A;
       (==cns11643-1	  . #x652C)	; &g2-CU+745A; [69-12]
       ))
     ))
@@ -23319,6 +23323,11 @@
     ))
 (define-char
   '((ideographic-radical . 96)	; ⽟
+    (==>ucs@bucs	. #x745A)	; &BUCS+745A;
+    (==>daijiten	. 07343)	; &BUCS+745A;
+    ))
+(define-char
+  '((ideographic-radical . 96)	; ⽟
     (==>ucs@bucs	. #x7460)	; &BUCS+7460;
     ))
 (define-char