From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 8 Feb 2022 07:01:41 +0000 (+0900)
Subject: (U+65E9): Apply new conventions for glyph granularity.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7f135b2edb0de72f71428201a77eb46711debb3b;p=chise%2Fxemacs-chise.git

(U+65E9): Apply new conventions for glyph granularity.
(A-cgnU+2317C): New abstract node.
(U-0002317C): Add `<-denotational' for A-cgnU+2317C; apply new
conventions for glyph granularity.
(A-U+2317C-itaiji-001): New abstract node; use `<-denotational' for
A-cgnU+2317C; unify A-U+2317C-itaiji-002.
(U+2317C-itaiji-001): Add `<-denotational' for A-U+2317C-itaiji-001.
(U-0002AC44): Apply new conventions for glyph granularity.
(U+3B1F): New character.
---

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index f787639..3d91c64 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -597,8 +597,35 @@
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 2)
     (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x65E5)	; &A-compU+65E5;
+      (=>iwds-1		  .  0118)	; &A-compU+65E5;
+      )
+     ((=>ucs@iwds-1	  . #x5341)	; &A-IWDSU+5341;
+      (=>iwds-1		  .  0037)	; &A-IWDSU+5341;
+      ))
     (=ucs		. #x65E9)	; 早
-    (=adobe-japan1-0	. 02787)	; &I-AJ1-02787;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x65E9)	; 早
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 2)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs		  . #x5341)	; 十
+      ))
+    (=ucs@unicode	. #x65E9)	; &AJ1-02787;
+    (=adobe-japan1-0	. 02787)	; &AJ1-02787;
     (=jis-x0208		. #x4161)	; &I-J90-4161; [33-65]
     (=gb2312		. #x5467)	; &I-G0-5467; [52-71]
     (=ks-x1001		. #x7044)	; &I-K0-7044; [80-36]
@@ -609,7 +636,38 @@
     (=gt-k		. 01661)	; &I-GT-K01661;
     (=gt-pj-1		. #x4161)	; &I-GT-17375; [33-65]
     (=daikanwa		. 13742)	; &I-M-13742;
-    (=shinjigen@rev	.  3271)	; 早
+    (=shinjigen		.  3271)	; &AJ1-02787;
+    (->subsumptive
+     ((==ucs@unicode	  . #x65E9)	; &g2-AJ1-02787;
+      (==adobe-japan1-0	  . 02787)	; &g2-AJ1-02787;
+      (==gb2312		  . #x5467)	; &g2-AJ1-02787; [52-71]
+      (==ks-x1001	  . #x7044)	; &g2-AJ1-02787; [80-36]
+      (==jis-x0208	  . #x4161)	; &g2-AJ1-02787; [33-65]
+      (==cns11643-1	  . #x482E)	; &g2-AJ1-02787; [40-14]
+      (==jis-x0213-1	  . #x4161)	; &g2-AJ1-02787; [33-65]
+      (==gt		  . 17375)	; &g2-AJ1-02787;
+      (==gt-k		  . 01661)	; &g2-AJ1-02787;
+      (==daikanwa	  . 13742)	; &g2-AJ1-02787;
+      (==shinjigen	  .  3271)	; &g2-AJ1-02787;
+      (->subsumptive
+       ((===daikanwa	    . 13742)	; &R-M-13742;
+	)
+       ((===jis-x0208	    . #x4161)	; &R-J0-4161; [33-65]
+	(===jis-x0213-1	    . #x4161)	; &R-J0-4161; [33-65]
+	)
+       ((===adobe-japan1-0  . 02787)	; &R-AJ1-02787;
+	)
+       ((===cns11643-1	    . #x482E)	; &R-C1-482E; [40-14]
+	)
+       ((===gt		    . 17375)	; &R-GT-17375;
+	(===gt-k	    . 01661)	; &R-GT-17375;
+	)
+       ((===ucs@ks	    . #x65E9)	; &R-K0-7044;
+	(===ks-x1001	    . #x7044)	; &R-K0-7044; [80-36]
+	)
+       ((===ucs@unicode	    . #x65E9)	; &R-UU+65E9;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
@@ -7332,11 +7390,104 @@
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
+    (=>ucs@cognate	. #x2317C)	; &A-cgnU+2317C;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x2317C)	; &A-cgnU+2317C;
+      ))
+    (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 5)
     (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x65E5)	; &A-compU+65E5;
+      (=>iwds-1		  .  0118)	; &A-compU+65E5;
+      )
+     ((=ucs		  . #x7532)	; 甲
+      ))
+    (sound@ja/on	"sAu")
     (=ucs		. #x2317C)	; 𣅼
-    (=cns11643-6	. #x3168)	; &I-C6-3168; [17-72]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2317C)	; 𣅼
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 5)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs		  . #x7532)	; 甲
+      ))
+    (=ucs@iso		. #x2317C)	; &C6-3168;
+    (=cns11643-6	. #x3168)	; &C6-3168; [17-72]
     (=daikanwa		. 13872)	; &I-M-13872;
+    (<-original
+     ((=ucs@unicode	  . #x65E9)	; &AJ1-02787;
+      (=adobe-japan1-0	  . 02787)	; &AJ1-02787;
+      (=daikanwa	  . 13742)	; &I-M-13742;
+      ))
+    (<-original*sources
+     kangxi daikanwa)
+    (->subsumptive
+     ((==ucs@iso	  . #x2317C)	; &g2-M-13872;
+      (==cns11643-6	  . #x3168)	; &g2-M-13872; [17-72]
+      (==daikanwa	  . 13872)	; &g2-M-13872;
+      (->subsumptive
+       ((===daikanwa	    . 13872)	; &R-M-13872;
+	)
+       ((===cns11643-6	    . #x3168)	; &R-C6-3168; [17-72]
+	)
+       ((===ucs@iso	    . #x2317C)	; &R-U-0002317C;
+	))
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x2317C)	; &A-cgnU+2317C;
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x65E5)	; &A-compU+65E5;
+      (=>iwds-1		  .  0118)	; &A-compU+65E5;
+      )
+     ((=big5-cdp	  . #x87BC)	; &CDP-87BC;
+      ))
+    (=>ucs-itaiji-001	. #x2317C)	; &A-U-i001+2317C;
+    (=>ucs-itaiji-002	. #x2317C)	; &A-U-i001+2317C;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-001	  . #x2317C)	; &A-U-i001+2317C;
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 5)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=big5-cdp	  . #x87BC)	; &CDP-87BC;
+      ))
+    (=ucs-itaiji-001	. #x2317C)	; &U-i001+2317C;
+    (=ucs-itaiji-002	. #x2317C)	; &U-i001+2317C;
+    (->subsumptive
+     ((==ucs-itaiji-001	  . #x2317C)	; &g2-U-i001+2317C;
+      )
+     ((==ucs-itaiji-002	  . #x2317C)	; &g2-U-i002+2317C;
+      ))
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
@@ -8240,26 +8391,6 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 72)	; ⽇
-    (ideographic-strokes . 5)
-    (total-strokes	 . 9)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=ucs		  . #x65E5)	; 日
-      )
-     ((=big5-cdp	  . #x87BC)	; &CDP-87BC;
-      ))
-    (=ucs-itaiji-001	. #x2317C)	; &U-i001+2317C;
-    (=ucs-itaiji-002	. #x2317C)	; &U-i001+2317C;
-    (->subsumptive
-     ((==ucs-itaiji-001	  . #x2317C)	; &g2-U-i001+2317C;
-      )
-     ((==ucs-itaiji-002	  . #x2317C)	; &g2-U-i002+2317C;
-      ))
-    ))
-(define-char
   '((<-denotational@usage
      ((==>ucs@bucs	  . #x661F)	; &BUCS+661F;
       ))
@@ -20309,6 +20440,21 @@
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=>ucs@iwds-1	  . #x5BC5)	; &A-IWDSU+5BC5;
+      ))
+    (=ucs		. #x2AC44)	; 𪱄
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2AC44)	; 𪱄
+      ))
+    (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 11)
     (total-strokes	 . 15)
     (ideographic-structure
@@ -20319,8 +20465,33 @@
       )
      ((=ucs		  . #x5BC5)	; 寅
       ))
-    (=ucs		. #x2AC44)	; 𪱄
-    (=cbeta		. 10503)	; &I-CB10503;
+    (=>cbeta		. 10503)	; &A-CB10503;
+    ))
+(define-char
+  '((<-denotational
+     ((=>cbeta		  . 10503)	; &A-CB10503;
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 11)
+    (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs@unicode	  . #x5BC5)	; &AJ1-03242;
+      (=adobe-japan1-0	  . 03242)	; &AJ1-03242;
+      ))
+    (=ucs@JP/hanazono	. #x2AC44)	; &CB10503;
+    (=cbeta		. 10503)	; &CB10503;
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x2AC44)	; &g2-CB10503;
+      (==cbeta		  . 10503)	; &g2-CB10503;
+      (->subsumptive
+       ((===cbeta	    . 10503)	; &R-CB10503;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
@@ -22331,6 +22502,64 @@
       ))
     ))
 (define-char
+  '((ideographic-radical . 72)	; ⽇
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x52FF)	; 勿
+      )
+     ((=>ucs@component	  . #x66FE)	; &A-compU+66FE;
+      (=>iwds-1		  .  0187)	; &A-compU+66FE;
+      ))
+    (=ucs		. #x3B1F)	; 㬟
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3B1F)	; 㬟
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 12)
+    (total-strokes	 . 16)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x52FF)	; 勿
+      )
+     ((=ucs@unicode	  . #x66FE)	; &MJ013502;
+      (=mj		  . 013502)	; &MJ013502;
+      ))
+    (=ucs@unicode	. #x3B1F)	; &UU+3B1F;
+    (=ucs@JP/hanazono	. nil)
+    (->subsumptive
+     ((==ucs@unicode	  . #x3B1F)	; &g2-UU+3B1F;
+      (==ucs@JP/hanazono  . nil)
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3B1F)	; 㬟
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 12)
+    (total-strokes	 . 16)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x52FF)	; 勿
+      )
+     ((=ucs@jis		  . #x66FE)	; &MJ013501;
+      (=ucs@ks		  . #x66FE)	; &MJ013501;
+      (=mj		  . 013501)	; &MJ013501;
+      ))
+    (=ucs@JP/hanazono	. #x3B1F)	; &hanaJU+3B1F;
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x3B1F)	; &g2-hanaJU+3B1F;
+      ))
+    ))
+(define-char
   '((<-denotational
      ((=>ucs@iwds-1	  . #x232AD)	; &A-IWDSU+232AD;
       (=>ucs@iwds-1/normalized . #x232AD)	; &A-IWDSU+232AD;