From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 11 Sep 2024 11:19:27 +0000 (+0900)
Subject: (U-000212A3): Apply new conventions for glyph granularity; add
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fdc65a58993ed266e82218a348fa42c02714a94d;p=chise%2Fxemacs-chise.git

(U-000212A3): Apply new conventions for glyph granularity; add
`<-ancient' for U+4E18.
(U+3633): Add `<-ancient' for U+4E18.
(U-00024918): Likewise.
(U-00021447): Apply new conventions for glyph granularity.
(U-0002144A): Likewise.
---

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index cbc48d0..891857d 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -7881,10 +7881,56 @@
   '((ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E18)	; 丘
+      )
+     ((=>ucs@iwds-1	  . #x571F)	; &A-IWDSU+571F;
+      (=>iwds-1		  .  0312)	; &A-IWDSU+571F;
+      ))
     (=ucs		. #x212A3)	; 𡊣
-    (=cns11643-6	. #x2A50)	; &I-C6-2A50; [10-48]
+    (<-ancient
+     ((=ucs		  . #x4E18)	; 丘
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x212A3)	; 𡊣
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E18)	; 丘
+      )
+     ((=ucs		  . #x571F)	; 土
+      ))
+    (=ucs@iso		. #x212A3)	; &C6-2A50;
+    (=cns11643-6	. #x2A50)	; &C6-2A50; [10-48]
     (=daikanwa		. 04991)	; &I-M-04991;
     (=cbeta		. 10581)	; &I-CB10581;
+    (->subsumptive
+     ((==ucs@iso	  . #x212A3)	; &g2-M-04991;
+      (==cns11643-6	  . #x2A50)	; &g2-M-04991; [10-48]
+      (==daikanwa	  . 04991)	; &g2-M-04991;
+      (==cbeta		  . 10581)	; &g2-M-04991;
+      (->subsumptive
+       ((===daikanwa	    . 04991)	; &R-M-04991;
+	)
+       ((===cbeta	    . 10581)	; &R-CB10581;
+	)
+       ((===cns11643-6	    . #x2A50)	; &R-C6-2A50; [10-48]
+	)
+       ((===ucs@iso	    . #x212A3)	; &R-U-000212A3;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
@@ -8943,6 +8989,13 @@
       ))
     (sound@ja/on	"kIu")
     (=ucs		. #x3633)	; 㘳
+    (<-ancient
+     ((=ucs		  . #x4E18)	; 丘
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    (<-ancient*sources
+     shuowen)
     ))
 (define-char
   '((<-denotational
@@ -12391,6 +12444,13 @@
       ))
     (sound@ja/on	"kIu")
     (=ucs		. #x24918)	; 𤤘
+    (<-ancient
+     ((=ucs		  . #x4E18)	; 丘
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    (<-ancient*sources
+     shuowen)
     ))
 (define-char
   '((<-denotational
@@ -38147,17 +38207,96 @@
   '((ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=>ucs@iwds-1	  . #x571F)	; &A-IWDSU+571F;
+      (=>iwds-1		  .  0312)	; &A-IWDSU+571F;
+      )
+     ((=ucs		  . #x35BE)	; 㖾
+      ))
     (=ucs		. #x21447)	; 𡑇
-    (=cns11643-7	. #x216E)	; &I-C7-216E; [01-78]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x21447)	; 𡑇
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 12)
+    (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=gt-k		  . 00199)	; &GT-K00199;
+      )
+     ((=ucs@unicode	  . #x35BE)	; &C3-3A3E;
+      (=cns11643-3	  . #x3A3E)	; &C3-3A3E; [26-30]
+      (=daikanwa	  . 03928)	; &I-M-03928;
+      ))
+    (=ucs@iso		. #x21447)	; &C7-216E;
+    (=cns11643-7	. #x216E)	; &C7-216E; [01-78]
     (=daikanwa		. 48992)	; &I-M-48992;
+    (->subsumptive
+     ((==ucs@iso	  . #x21447)	; &g2-M-48992;
+      (==cns11643-7	  . #x216E)	; &g2-M-48992; [01-78]
+      (==daikanwa	  . 48992)	; &g2-M-48992;
+      (->subsumptive
+       ((===daikanwa	    . 48992)	; &R-M-48992;
+	)
+       ((===cns11643-7	    . #x216E)	; &R-C7-216E; [01-78]
+	)
+       ((===ucs@iso	    . #x21447)	; &R-U-00021447;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=>ucs@iwds-1	  . #x571F)	; &A-IWDSU+571F;
+      (=>iwds-1		  .  0312)	; &A-IWDSU+571F;
+      )
+     ((=ucs		  . #x2136E)	; 𡍮
+      ))
     (=ucs		. #x2144A)	; 𡑊
-    (=cns11643-7	. #x2171)	; &I-C7-2171; [01-81]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2144A)	; 𡑊
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 12)
+    (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=gt-k		  . 00199)	; &GT-K00199;
+      )
+     ((=ucs@cns		  . #x2136E)	; &C4-3675;
+      (=cns11643-4	  . #x3675)	; &C4-3675; [22-85]
+      ))
+    (=ucs@iso		. #x2144A)	; &C7-2171;
+    (=cns11643-7	. #x2171)	; &C7-2171; [01-81]
     (=daikanwa		. 48993)	; &I-M-48993;
+    (->subsumptive
+     ((==ucs@iso	  . #x2144A)	; &g2-M-48993;
+      (==cns11643-7	  . #x2171)	; &g2-M-48993; [01-81]
+      (==daikanwa	  . 48993)	; &g2-M-48993;
+      (->subsumptive
+       ((===daikanwa	    . 48993)	; &R-M-48993;
+	)
+       ((===cns11643-7	    . #x2171)	; &R-C7-2171; [01-81]
+	)
+       ((===ucs@iso	    . #x2144A)	; &R-U-0002144A;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟