From 7180912cc3ad8eb9a7876fc7e66d03c4e6e4780e Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 4 Jul 2022 15:21:34 +0900
Subject: [PATCH] (U+662D): Apply new conventions for glyph granularity; add
 `<-denotational@usage' for BUCS+662D. (A-IWDSU+3ADF): New
 abstract node. (BUCS+662D): New abstract node; unify
 A2-DJT-04510.

---
 lisp/utf-2000/Ideograph-R072-Sun.el |   83 ++++++++++++++++++++++++++---------
 1 file changed, 62 insertions(+), 21 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 5de7c0c..540fe16 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -6937,7 +6937,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 72)	; ⽇
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x662D)	; &BUCS+662D;
+      ))
+    (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 5)
     (total-strokes	 . 9)
     (ideographic-structure
@@ -6946,10 +6949,27 @@
       )
      ((=ucs		  . #x65E5)	; 日
       )
-     ((=ucs		  . #x53EC)	; 召
+     ((=>ucs@iwds-1	  . #x53EC)	; &A-IWDSU+53EC;
       ))
     (=ucs		. #x662D)	; 昭
-    (=adobe-japan1-0	. 02468)	; &I-AJ1-02468;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x662D)	; 昭
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 5)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs		  . #x53EC)	; 召
+      ))
+    (=ucs@unicode	. #x662D)	; &AJ1-02468;
+    (=adobe-japan1-0	. 02468)	; &AJ1-02468;
     (=jis-x0208		. #x3E3C)	; &I-J90-3E3C; [30-28]
     (=gb2312		. #x5551)	; &I-G0-5551; [53-49]
     (=ks-x1001		. #x6139)	; &I-K0-6139; [65-25]
@@ -6960,7 +6980,8 @@
     (=gt-k		. 05106)	; &I-GT-K05106;
     (=gt-pj-1		. #x3E3C)	; &I-GT-17506; [30-28]
     (=daikanwa		. 13855)	; &I-M-13855;
-    (=shinjigen		.  3304)	; 昭
+    (=daijiten		. 04510)	; &I-DJT-04510;
+    (=shinjigen		.  3304)	; &AJ1-02468;
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x662D)	; 昭
@@ -6977,10 +6998,13 @@
       (==gt		  . 17506)	; &g2-AJ1-02468;
       (==gt-k		  . 05106)	; &g2-AJ1-02468;
       (==daikanwa	  . 13855)	; &g2-AJ1-02468;
+      (==daijiten	  . 04510)	; &g2-AJ1-02468;
       (==shinjigen	  .  3304)	; &g2-AJ1-02468;
       (->subsumptive
        ((===daikanwa	    . 13855)	; &R-M-13855;
 	)
+       ((===daijiten	    . 04510)	; &R-DJT-04510;
+	)
        ((===jis-x0208	    . #x3E3C)	; &R-J0-3E3C; [30-28]
 	(===jis-x0213-1	    . #x3E3C)	; &R-J0-3E3C; [30-28]
 	)
@@ -7252,6 +7276,23 @@
       ))
     ))
 (define-char
+  '((<-denotational@component
+     ((=>ucs@iwds-1	  . #x3ADF)	; &A-IWDSU+3ADF;
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 5)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=ucs		  . #x20BA6)	; 𠮦
+      ))
+    (=ucs		. #x2B783)	; 𫞃
+    ))
+(define-char
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 5)
     (total-strokes	 . 9)
@@ -8406,23 +8447,6 @@
     (=ucs		. #x2AC11)	; 𪰑
     ))
 (define-char
-  '((<-denotational@component
-     ((=>ucs@iwds-1	  . #x3ADF)	; &A-IWDSU+3ADF;
-      ))
-    (ideographic-radical . 72)	; ⽇
-    (ideographic-strokes . 5)
-    (total-strokes	 . 9)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x65E5)	; 日
-      )
-     ((=ucs		  . #x20BA6)	; 𠮦
-      ))
-    (=ucs		. #x2B783)	; 𫞃
-    ))
-(define-char
   '((ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 5)
     (total-strokes	 . 9)
@@ -27814,6 +27838,18 @@
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((=>ucs@iwds-1	  . #x3563)	; &A-IWDSU+3563;
+      ))
+    (=>ucs@iwds-1	. #x3ADF)	; &A-IWDSU+3ADF;
+    ))
+(define-char
+  '((ideographic-radical . 72)	; ⽇
     (=>ucs@iwds-1	. #x23196)	; &A-IWDSU+23196;
     ))
 (define-char
@@ -27887,6 +27923,11 @@
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
+    (==>ucs@bucs	. #x662D)	; &BUCS+662D;
+    (==>daijiten	. 04510)	; &BUCS+662D;
+    ))
+(define-char
+  '((ideographic-radical . 72)	; ⽇
     (==>ucs@bucs	. #x664F)	; &BUCS+664F;
     (==>daijiten	. 04533)	; &BUCS+664F;
     ))
-- 
1.7.10.4