From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 12 Jan 2023 12:37:19 +0000 (+0900)
Subject: (U-00020477): Apply new conventions for glyph granularity.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=23e6385fd551d4290d222ab1688dfe63eeb5c8d3;p=chise%2Fxemacs-chise.git

(U-00020477): Apply new conventions for glyph granularity.
(U+514F): Likewise.
(A-GT-K06142): New abstract node; unify A-U+56E7-itaiji-006 and
A-U+56E7-itaiji-007.
(U+56E7-itaiji-007): New character; use `<-denotational' for
A-GT-K06142.
(GT-K06142): Likewise; unify U+56E7-itaiji-006.
---

diff --git a/lisp/utf-2000/Ideograph-R010-Legs.el b/lisp/utf-2000/Ideograph-R010-Legs.el
index 779207c..7e44630 100644
--- a/lisp/utf-2000/Ideograph-R010-Legs.el
+++ b/lisp/utf-2000/Ideograph-R010-Legs.el
@@ -638,6 +638,50 @@
   '((ideographic-radical . 10)	; ⼉
     (ideographic-strokes . 3)
     (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E0A)	; 上
+      )
+     ((=>ucs@iwds-1	  . #x513F)	; &A-IWDSU+513F;
+      (=>iwds-1		  .  11922)	; &A-IWDSU+513F;
+      ))
+    (sound@ja/on	"tIyAu")
+    (=ucs		. #x20477)	; 𠑷
+    (<-ancient
+     ((=ucs		  . #x9577)	; 長
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    (<-ancient*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x20477)	; 𠑷
+      ))
+    (ideographic-radical . 10)	; ⼉
+    (ideographic-strokes . 3)
+    (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E0A)	; 上
+      )
+     ((=>ucs@component	  . #x513F)	; &A-compU+513F;
+      (=>iwds-1		  .  0222)	; &A-compU+513F;
+      ))
+    (=+>ucs@iso		. #x20477)	; &o-IU+20477;
+    ))
+(define-char
+  '((<-denotational
+     ((=+>ucs@iso	  . #x20477)	; &o-IU+20477;
+      ))
+    (ideographic-radical . 10)	; ⼉
+    (ideographic-strokes . 3)
+    (total-strokes	 . 5)
     (hanyu-dazidian	1 266 3)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -647,11 +691,17 @@
       )
      ((=ucs		  . #x513F)	; 儿
       ))
-    (=ucs		. #x20477)	; 𠑷
-    (=mj		. 030905)	; &I-MJ030905;
+    (=ucs@iso		. #x20477)	; &MJ030905;
+    (=mj		. 030905)	; &MJ030905;
     (=cns11643-4	. #x215C)	; &I-C4-215C; [01-60]
-    (=koseki		. 015540)	; 𠑷
+    (=koseki		. 015540)	; &MJ030905;
     (=daikanwa		. 01342)	; &I-M-01342;
+    (<-ancient
+     ((=ucs		  . #x9577)	; 長
+      (=daikanwa	  . 41100)	; &I-M-41100;
+      ))
+    (<-ancient*sources
+     shuowen jiyun daikanwa)
     (->subsumptive
      ((==ucs@iso	  . #x20477)	; &g2-MJ030905;
       (==mj		  . 030905)	; &g2-MJ030905;
@@ -3213,7 +3263,42 @@
   '((ideographic-radical . 10)	; ⼉
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=>ucs@component	  . #x5382)	; &A-compU+5382;
+      )
+     ((=ucs		  . #x20477)	; 𠑷
+      ))
+    (sound@ja/on	"tIyAu")
     (=ucs		. #x514F)	; 兏
+    (<-ancient
+     ((=ucs		  . #x9577)	; 長
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    (<-ancient*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x514F)	; 兏
+      ))
+    (ideographic-radical . 10)	; ⼉
+    (ideographic-strokes . 5)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=>ucs@component	  . #x5382)	; &A-compU+5382;
+      )
+     ((=ucs@iso		  . #x20477)	; &MJ030905;
+      (=mj		  . 030905)	; &MJ030905;
+      ))
+    (=+>ucs@unicode	. #x514F)	; &o-AJ1-21178;
+    (=+>adobe-japan1-6	. 21178)	; &o-AJ1-21178;
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
@@ -3221,7 +3306,8 @@
 	)
        ((=ucs		    . #x20086)	; 𠂆
 	)
-       ((=ucs		    . #x20477)	; 𠑷
+       ((=ucs@iso	    . #x20477)	; &MJ030905;
+	(=mj		    . 030905)	; &MJ030905;
 	))
       (=ucs@cns		  . #x514F)	; &MJ007233;
       (=ucs@jis		  . #x514F)	; &MJ007233;
@@ -3232,6 +3318,12 @@
       (=koseki		  . 015800)	; &MJ007233;
       (=daikanwa	  . 01362)	; &I-M-01362;
       (=jef-china3	  . #x43D6)	; &I-JC3-43D6;
+      (<-same
+       ((=ucs		    . #x9577)	; 長
+	(=daikanwa	    . 41100)	; &I-M-41100;
+	))
+      (<-same*sources
+       zihui-bu daikanwa)
       (->subsumptive
        ((=decomposition@cid
 	 ((=ucs		      . #x514F)	; 兏
@@ -3269,7 +3361,8 @@
 	)
        ((=ucs		    . #x5382)	; 厂
 	)
-       ((=ucs		    . #x20477)	; 𠑷
+       ((=ucs@iso	    . #x20477)	; &MJ030905;
+	(=mj		    . 030905)	; &MJ030905;
 	))
       (=ucs@unicode	  . #x514F)	; &UU+514F;
       (=ucs@JP/hanazono	  . nil)
@@ -5694,6 +5787,40 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
+     ((=ucs		  . #x56E7)	; 囧
+      )
+     ((=>ucs@iwds-1	  . #x513F)	; &A-IWDSU+513F;
+      (=>iwds-1		  .  11922)	; &A-IWDSU+513F;
+      ))
+    (=>gt-k		. 06142)	; &A-GT-K06142;
+    (=>ucs-itaiji-006	. #x56E7)	; &A-GT-K06142;
+    (=>ucs-itaiji-007	. #x56E7)	; &A-GT-K06142;
+    ))
+(define-char
+  '((<-denotational
+     ((=>gt-k		  . 06142)	; &A-GT-K06142;
+      ))
+    (ideographic-radical . 10)	; ⼉
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure@apparent
+     ((name		  . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
+      (=ucs		  . #x2FFB)	; â¿»
+      )
+     ((=ucs@unicode	  . #x56DB)	; &AJ1-02203;
+      )
+     ((=ucs		  . #x51E0)	; 几
+      ))
+    (=ucs-itaiji-007	. #x56E7)	; &U-i007+56E7;
+    ))
+(define-char
+  '((ideographic-radical . 10)	; ⼉
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
      ((=>ucs@component	  . #x4E30)	; &A-compU+4E30;
       )
      ((=ucs		  . #x5144)	; 兄
@@ -5748,6 +5875,33 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>gt-k		  . 06142)	; &A-GT-K06142;
+      ))
+    (ideographic-radical . 10)	; ⼉
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x56E7)	; &AJ1-21316;
+      (=adobe-japan1-6	  . 21316)	; &AJ1-21316;
+      )
+     ((=>ucs@component	  . #x513F)	; &A-compU+513F;
+      (=>iwds-1		  .  0222)	; &A-compU+513F;
+      ))
+    (=gt-k		. 06142)	; &U-i006+56E7;
+    (=gt-pj-k1		. #x4D39)	; &U-i006+56E7; [45-25]
+    (=ucs-itaiji-006	. #x56E7)	; &U-i006+56E7;
+    (->subsumptive
+     ((==gt-k		  . 06142)	; &g2-GT-K06142;
+      (==gt-pj-k1	  . #x4D39)	; &g2-GT-K06142; [45-25]
+      )
+     ((==ucs-itaiji-006	  . #x56E7)	; &g2-U-i006+56E7;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 10)	; ⼉
     (ideographic-strokes . 8)
     (ideographic-structure