From e761f7411d289f23f5c6df15a0e96a2ec8db72af Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 23 Dec 2021 18:23:31 +0900
Subject: [PATCH] (U-00020B22): Use U+5C6E instead of U+FA3C as the upper
 component to clarify the inclusion of U+4DB9 and U+FA3C;
 unify GT-03965 and GT-K01532. (U+20B22-var-003): New
 character; use `<-subsumptive' for IU+20B22.

---
 lisp/utf-2000/Ideograph-R029-Again.el |   58 ++++++++++++++++++++++++++-------
 1 file changed, 46 insertions(+), 12 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R029-Again.el b/lisp/utf-2000/Ideograph-R029-Again.el
index e5cd00e..09a2a2a 100644
--- a/lisp/utf-2000/Ideograph-R029-Again.el
+++ b/lisp/utf-2000/Ideograph-R029-Again.el
@@ -1986,7 +1986,7 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #xFA3C)	; 屮
+     ((=ucs		  . #x5C6E)	; å±®
       )
      ((=ucs		  . #x53C8)	; 又
       ))
@@ -1994,6 +1994,9 @@
     (=mj		. 032014)	; &MJ032014;
     (=cns11643-4	. #x2168)	; &I-C4-2168; [01-72]
     (=koseki		. 036360)	; &MJ032014;
+    (=gt		. 03965)	; &I-GT-03965;
+    (=gt-k		. 01532)	; &I-GT-K01532;
+    (=gt-pj-2		. #x4C44)	; &I-GT-03965; [44-36]
     (=daikanwa		. 03133)	; &I-M-03133;
     (<-interchangeable
      ((=ucs		  . #x6311)	; 挑
@@ -2004,21 +2007,52 @@
     (<-interchangeable*sources
      shuowen-tongxun-dingsheng daikanwa)
     (->subsumptive
-     ((==daikanwa	  . 03133)	; &g2-M-03133;
-      )
-     ((==ucs@iso	  . #x20B22)	; &g2-MJ032014;
-      (==mj		  . 032014)	; &g2-MJ032014;
-      (==cns11643-4	  . #x2168)	; &g2-MJ032014; [01-72]
-      (==koseki		  . 036360)	; &g2-MJ032014;
-      (->subsumptive
-       ((===mj		    . 032014)	; &R-MJ032014;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((===cns11643-4	    . #x2168)	; &R-C4-2168; [01-72]
+       ((=ucs		    . #xFA3C)	; 屮
 	)
-       ((===ucs@iso	    . #x20B22)	; &R-U-00020B22;
+       ((=ucs		    . #x53C8)	; 又
+	))
+      (=>>ucs@iso	  . #x20B22)	; &G-MJ032014;
+      (=>>mj		  . 032014)	; &G-MJ032014;
+      (=>>cns11643-4	  . #x2168)	; &G-MJ032014; [01-72]
+      (=>>gt		  . 03965)	; &G-MJ032014;
+      (=>>gt-k		  . 01532)	; &G-MJ032014;
+      (=>>daikanwa	  . 03133)	; &G-MJ032014;
+      (->subsumptive
+       ((==daikanwa	    . 03133)	; &g2-M-03133;
+	)
+       ((==ucs@iso	    . #x20B22)	; &g2-MJ032014;
+	(==mj		    . 032014)	; &g2-MJ032014;
+	(==cns11643-4	    . #x2168)	; &g2-MJ032014; [01-72]
+	(==koseki	    . 036360)	; &g2-MJ032014;
+	(==gt		    . 03965)	; &g2-MJ032014;
+	(==gt-k		    . 01532)	; &g2-MJ032014;
+	(->subsumptive
+	 ((===mj	      . 032014)	; &R-MJ032014;
+	  )
+	 ((===gt	      . 03965)	; &R-GT-03965;
+	  (===gt-k	      . 01532)	; &R-GT-03965;
+	  )
+	 ((===cns11643-4      . #x2168)	; &R-C4-2168; [01-72]
+	  )
+	 ((===ucs@iso	      . #x20B22)	; &R-U-00020B22;
+	  )
+	 ((=hanziku-1	      . #xF6DC)	; &HZK01-F6DC;
+	  ))
+	))
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=hanziku-1	    . #xF6DC)	; &HZK01-F6DC;
+       ((=ucs		    . #x4DB9)	; 䶹
+	)
+       ((=ucs		    . #x53C8)	; 又
 	))
+      (=ucs-var-003	  . #x20B22)	; &U-v003+20B22;
       ))
     ))
 (define-char
-- 
1.7.10.4