From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 8 Jan 2023 00:00:01 +0000 (+0900)
Subject: (U+66C1): Add `<-denotational@usage' for BUCS+66C1; apply new
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6c11b280a265487c323d06f0dda8da1824e39d94;p=chise%2Fxemacs-chise.git

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

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 16ac36d..96eaf4e 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -4067,7 +4067,8 @@
     (=daijiten		. 04483)	; &I-DJT-04483;
     (=shinjigen		.  3280)	; &AJ1-05092;
     (<-interchangeable
-     ((=jis-x0208@1978	  . #x622B)	; &HD-FT-3365; [66-11]
+     ((=ucs@ks		  . #x7693)	; &HD-FT-3365;
+      (=jis-x0208@1978	  . #x622B)	; &HD-FT-3365; [66-11]
       (=ks-x1001	  . #x7B53)	; &I-K0-7B53; [91-51]
       (=daikanwa	  . 22732)	; &I-M-22732;
       ))
@@ -22357,6 +22358,9 @@
   '((<-denotational
      ((=>ucs@iwds-1	  . #x66C1)	; &A-IWDSU+66C1;
       ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x66C1)	; &BUCS+66C1;
+      ))
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 12)
     (total-strokes	 . 16)
@@ -22369,6 +22373,8 @@
      ((=>ucs@component	  . #x4E14)	; &A-compU+4E14;
       (=>iwds-1		  .  0114)	; &A-compU+4E14;
       ))
+    (sound@ja/on/go	"ke" "koti" "kai")
+    (sound@ja/on/kan	"ki" "kitu" "kai")
     (=ucs		. #x66C1)	; 曁
     ))
 (define-char
@@ -22397,6 +22403,47 @@
     (=gt		. 17910)	; &I-GT-17910;
     (=gt-pj-1		. #x5A7A)	; &I-GT-17910; [58-90]
     (=daikanwa		. 14165)	; &I-M-14165;
+    (=daijiten		. 04617)	; &I-DJT-04617;
+    (<-ancient
+     ((=ucs@jis		  . #x5C46)	; &AJ1-04651;
+      (=adobe-japan1-0	  . 04651)	; &AJ1-04651;
+      ))
+    (<-ancient$_1*sources
+     jiyun)
+    (<-interchangeable
+     ((=ucs@unicode	  . #x8A16)	; &AJ1-06658;
+      (=adobe-japan1-0	  . 06658)	; &AJ1-06658;
+      (=daikanwa	  . 35242)	; &I-M-35242;
+      )
+     ((=mj		  . 021300)	; &MJ021300;
+      (=daikanwa	  . 30116)	; &I-M-30116;
+      )
+     ((=ucs		  . #x6D0E)	; 洎
+      (=daikanwa	  . 17369)	; &I-M-17369;
+      )
+     ((=ucs@unicode	  . #x588D)	; &MJ009270;
+      (=mj		  . 009270)	; &MJ009270;
+      (=daikanwa	  . 05423)	; &I-M-05423;
+      ))
+    (<-interchangeable$_1*sources
+     shuowen-tongxun-dingsheng daikanwa)
+    (<-interchangeable$_2*sources
+     shuowen-tongxun-dingsheng daikanwa)
+    (<-interchangeable$_3*sources
+     zhengzitong daikanwa)
+    (<-interchangeable$_4*sources
+     shuowen-tongxun-dingsheng shiwen daikanwa)
+    (<-interchangeable*sources
+     daikanwa)
+    (<-same
+     ((=ucs@jis		  . #x5C46)	; &AJ1-04651;
+      (=adobe-japan1-0	  . 04651)	; &AJ1-04651;
+      (=daikanwa	  . 07666)	; &I-M-07666;
+      ))
+    (<-same$_1*sources
+     jiyun daikanwa)
+    (<-same*sources
+     jiyun daikanwa)
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x66C1)	; 曁
@@ -22408,15 +22455,6 @@
 	)
        ((=ucs		    . #xE0103)	; 󠄃
 	))
-      (ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((==ucs@unicode	    . #x65E3)	; &g2-M-13724;
-	(==daikanwa	    . 13724)	; &g2-M-13724;
-	)
-       ((=ucs		    . #x65E6)	; 旦
-	))
       (==ucs@jis	  . #x66C1)	; &g2-AJ1-05119;
       (==adobe-japan1-0	  . 05119)	; &g2-AJ1-05119;
       (==jis-x0208	  . #x5A7A)	; &g2-AJ1-05119; [58-90]
@@ -22442,6 +22480,8 @@
       (==ucs@JP/hanazono  . nil)
       )
      ((==adobe-japan1-5	  . 20140)	; &g2-AJ1-20140;
+      )
+     ((==daijiten	  . 04617)	; &g2-DJT-04617;
       ))
     ))
 (define-char
@@ -22467,14 +22507,6 @@
 	)
        ((=ucs		    . #xE0104)	; 󠄄
 	))
-      (ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((==daikanwa	    . 13725)	; &g2-M-13725;
-	)
-       ((=ucs		    . #x65E6)	; 旦
-	))
       (==adobe-japan1-0	  . 07992)	; &g2-AJ1-07992;
       (==hanyo-denshi/jt  . #xB2BE)	; &g2-AJ1-07992;
       (->subsumptive
@@ -28304,6 +28336,11 @@
     (==>daijiten	. 04601)	; &A2-DJT-04601;
     ))
 (define-char
+  '((ideographic-radical . 72)	; ⽇
+    (==>ucs@bucs	. #x66C1)	; &BUCS+66C1;
+    (==>daijiten	. 04617)	; &BUCS+66C1;
+    ))
+(define-char
   '((<-denotational
      ((==>ucs@bucs	  . #x661C)	; &BUCS+661C;
       ))