From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 13 Oct 2024 23:40:04 +0000 (+0900)
Subject: (U-00027E5C): New character.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2b79f6b95c2e58aa877bab9cb15a0fcde7ed34c0;p=chise%2Fxemacs-chise.git

(U-00027E5C): New character.
(U+8D67): Add `<-denotational@usage' for BUCS+8D67; apply new
conventions for glyph granularity.
(U-00027E67): Apply new conventions for glyph granularity.
(U-00027E73): Use `->denotational' and `->subsumptive'.
(BUCS+8D67): New abstract node; unify A2-DJT-11448.
---

diff --git a/lisp/utf-2000/Ideograph-R155-Red.el b/lisp/utf-2000/Ideograph-R155-Red.el
index da358fb..dc5bc82 100644
--- a/lisp/utf-2000/Ideograph-R155-Red.el
+++ b/lisp/utf-2000/Ideograph-R155-Red.el
@@ -163,6 +163,37 @@
     ))
 (define-char
   '((ideographic-radical . 155)	; ⾚
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x8D64)	; 赤
+      )
+     ((=ucs		  . #x53CA)	; 及
+      ))
+    (=ucs		. #x27E5C)	; 𧹜
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x27E5C)	; 𧹜
+      ))
+    (ideographic-radical . 155)	; ⾚
+    (ideographic-strokes . 4)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x8D64)	; 赤
+      )
+     ((=ucs@cns		  . #x53CA)	; &MJ007989;
+      (=ucs@ks		  . #x53CA)	; &MJ007989;
+      (=mj		  . 007989)	; &MJ007989;
+      ))
+    (=ucs@iso		. #x27E5C)	; &U-00027E5C;
+    ))
+(define-char
+  '((ideographic-radical . 155)	; ⾚
     (ideographic-strokes . 5)
     (total-strokes	 . 12)
     (=ucs		. #x27E5D)	; 𧹝
@@ -174,9 +205,21 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 155)	; ⾚
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x8D67)	; &BUCS+8D67;
+      ))
+    (ideographic-radical . 155)	; ⾚
     (ideographic-strokes . 5)
     (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x8D64)	; 赤
+      )
+     ((=>ucs@iwds-1	  . #x378B)	; &A-IWDSU+378B;
+      (=>iwds-1		  .  0125)	; &A-IWDSU+378B;
+      ))
     (=ucs		. #x8D67)	; 赧
     ))
 (define-char
@@ -192,7 +235,7 @@
       )
      ((=ucs		  . #x8D64)	; 赤
       )
-     ((=ucs		  . #x378B)	; 㞋
+     ((=>ucs@component	  . #x378B)	; &A-compU+378B;
       ))
     (=ucs@jis		. #x8D67)	; &AJ1-06784;
     (=adobe-japan1-0	. 06784)	; &AJ1-06784;
@@ -201,26 +244,56 @@
     (=gt		. 49542)	; &I-GT-49542;
     (=gt-pj-1		. #x6C5F)	; &I-GT-49542; [76-63]
     (=daikanwa		. 37001)	; &I-M-37001;
+    (=daijiten		. 11448)	; &I-DJT-11448;
     (=shinjigen		.  7948)	; &AJ1-06784;
     (->subsumptive
-     ((==gt		  . 49542)	; &g2-GT-49542;
-      (==daikanwa	  . 37001)	; &g2-GT-49542;
-      (->subsumptive
-       ((===daikanwa	    . 37001)	; &R-M-37001;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x8D64)	; 赤
 	)
-       ((===gt		    . 49542)	; &R-GT-49542;
+       ((=ucs		    . #x378B)	; 㞋
 	))
-      )
-     ((==ucs@jis	  . #x8D67)	; &g2-AJ1-06784;
-      (==adobe-japan1-0	  . 06784)	; &g2-AJ1-06784;
-      (==jis-x0208	  . #x6C5F)	; &g2-AJ1-06784; [76-63]
-      (==jis-x0213-1	  . #x6C5F)	; &g2-AJ1-06784; [76-63]
-      (==shinjigen	  .  7948)	; &g2-AJ1-06784;
+      (=>>gt		  . 49542)	; &G-GT-49542;
+      (=>>daikanwa	  . 37001)	; &G-GT-49542;
       (->subsumptive
-       ((===jis-x0208	    . #x6C5F)	; &R-J0-6C5F; [76-63]
-	(===jis-x0213-1	    . #x6C5F)	; &R-J0-6C5F; [76-63]
+       ((==gt		    . 49542)	; &g2-GT-49542;
+	(==daikanwa	    . 37001)	; &g2-GT-49542;
+	(->subsumptive
+	 ((===daikanwa	      . 37001)	; &R-M-37001;
+	  )
+	 ((===gt	      . 49542)	; &R-GT-49542;
+	  ))
+	))
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
 	)
-       ((===adobe-japan1-0  . 06784)	; &R-AJ1-06784;
+       ((=ucs		    . #x8D64)	; 赤
+	)
+       ((=ucs-itaiji-001    . #x20B1D)	; &U-i001+20B1D;
+	))
+      (=>>ucs@jis	  . #x8D67)	; &G-AJ1-06784;
+      (=>>adobe-japan1-0  . 06784)	; &G-AJ1-06784;
+      (=>>jis-x0208	  . #x6C5F)	; &G-AJ1-06784; [76-63]
+      (=>>jis-x0213-1	  . #x6C5F)	; &G-AJ1-06784; [76-63]
+      (->subsumptive
+       ((==ucs@jis	    . #x8D67)	; &g2-AJ1-06784;
+	(==adobe-japan1-0   . 06784)	; &g2-AJ1-06784;
+	(==jis-x0208	    . #x6C5F)	; &g2-AJ1-06784; [76-63]
+	(==jis-x0213-1	    . #x6C5F)	; &g2-AJ1-06784; [76-63]
+	(==daijiten	    . 11448)	; &g2-AJ1-06784;
+	(==shinjigen	    .  7948)	; &g2-AJ1-06784;
+	(->subsumptive
+	 ((===daijiten	      . 11448)	; &R-DJT-11448;
+	  )
+	 ((===jis-x0208	      . #x6C5F)	; &R-J0-6C5F; [76-63]
+	  (===jis-x0213-1     . #x6C5F)	; &R-J0-6C5F; [76-63]
+	  )
+	 ((===adobe-japan1-0  . 06784)	; &R-AJ1-06784;
+	  ))
 	))
       ))
     ))
@@ -359,12 +432,33 @@
   '((ideographic-radical . 155)	; ⾚
     (ideographic-strokes . 8)
     (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x8D64)	; 赤
+      )
+     ((=ucs		  . #x3791)	; 㞑
+      ))
     (=ucs		. #x27E67)	; 𧹧
+    (=cns11643-7	. #x293A)	; &I-C7-293A; [09-26]
+    (=daikanwa		. 37011)	; &I-M-37011;
     (->subsumptive
-     ((=daikanwa	  . 37011)	; &M-37011;
+     ((=>>daikanwa	  . 37011)	; &G-M-37011;
+      (->subsumptive
+       ((==daikanwa	    . 37011)	; &g2-M-37011;
+	))
       )
-     ((=ucs@iso		  . #x27E67)	; &C7-293A;
-      (=cns11643-7	  . #x293A)	; &C7-293A; [09-26]
+     ((=>>ucs@iso	  . #x27E67)	; &G-IU+27E67;
+      (->subsumptive
+       ((==ucs@iso	    . #x27E67)	; &g2-IU-00027E67;
+	(==cns11643-7	    . #x293A)	; &g2-IU-00027E67; [09-26]
+	(->subsumptive
+	 ((===cns11643-7      . #x293A)	; &R-C7-293A; [09-26]
+	  )
+	 ((===ucs@iso	      . #x27E67)	; &R-U-00027E67;
+	  ))
+	))
       ))
     ))
 (define-char
@@ -557,16 +651,65 @@
   '((ideographic-radical . 155)	; ⾚
     (ideographic-strokes . 10)
     (total-strokes	 . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x501D)	; 倝
+      )
+     ((=ucs		  . #x8D64)	; 赤
+      ))
     (=ucs		. #x27E73)	; 𧹳
-    (=daikanwa		. 37022)	; &I-M-37022;
     ))
 (define-char
-  '((=>ucs		. #x27E73)	; 𧹳
-    (morohashi-daikanwa	37022 0 0)
+  '((<-denotational
+     ((=ucs		  . #x27E73)	; 𧹳
+      ))
     (ideographic-radical . 155)	; ⾚
     (ideographic-strokes . 10)
     (total-strokes	 . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs-var-001	  . #x501D)	; &U-v001+501D;
+      )
+     ((=ucs		  . #x8D64)	; 赤
+      ))
+    (=ucs@iso		. #x27E73)	; &M-37022;
+    (=daikanwa		. 37022)	; &M-37022;
+    (->subsumptive
+     ((==ucs@iso	  . #x27E73)	; &g2-M-37022;
+      (==daikanwa	  . 37022)	; &g2-M-37022;
+      (->subsumptive
+       ((===daikanwa	    . 37022)	; &R-M-37022;
+	)
+       ((===ucs@iso	    . #x27E73)	; &R-U-00027E73;
+	))
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x27E73)	; 𧹳
+      ))
+    (ideographic-radical . 155)	; ⾚
+    (ideographic-strokes . 10)
+    (total-strokes	 . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs@unicode	  . #x501D)	; &AJ1-21127;
+      (=adobe-japan1-6	  . 21127)	; &AJ1-21127;
+      )
+     ((=ucs		  . #x8D64)	; 赤
+      ))
+    (=ucs@cns		. #x27E73)	; &C5-5E6A;
     (=cns11643-5	. #x5E6A)	; &C5-5E6A; [62-74]
+    (->subsumptive
+     ((==ucs@cns	  . #x27E73)	; &g2-CU+27E73;
+      (==cns11643-5	  . #x5E6A)	; &g2-CU+27E73; [62-74]
+      ))
     ))
 (define-char
   '((=>ucs		. #x27E74)	; 𧹴
@@ -691,3 +834,8 @@
     (=ucs		. #x27E85)	; 𧺅
     (=daikanwa		. 37033)	; &I-M-37033;
     ))
+(define-char
+  '((ideographic-radical . 155)	; ⾚
+    (==>ucs@bucs	. #x8D67)	; &BUCS+8D67;
+    (==>daijiten	. 11448)	; &BUCS+8D67;
+    ))