From 70901dbd14576308c97ed54043272f28d6d3b9db Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 5 Mar 2018 23:25:24 +0900
Subject: [PATCH] (U-00023955): Add `ideographic-structure'; unify GT-20910
 and GT-K03952; apply new conventions for glyph granularity.
 (GT-K03953): New character; use `<-subsumptive' for
 U-00023955. (A-J0-3A50): Unify A-IWDSU+6B72, A-J0-6B73 and
 IWDS1-0015.

---
 lisp/utf-2000/Ideograph-R077-Stop.el |   56 ++++++++++++++++++++++++++++++++--
 1 file changed, 53 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R077-Stop.el b/lisp/utf-2000/Ideograph-R077-Stop.el
index b8b3908..8467915 100644
--- a/lisp/utf-2000/Ideograph-R077-Stop.el
+++ b/lisp/utf-2000/Ideograph-R077-Stop.el
@@ -1041,16 +1041,59 @@
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
     (hanyu-dazidian	2 1440 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x6B62)	; æ­¢
+      )
+     ((=ucs		  . #x6B62)	; æ­¢
+      ))
     (=ucs		. #x23955)	; 𣥕
     (=cns11643-6	. #x2C37)	; &I-C6-2C37; [12-23]
+    (=gt		. 20910)	; &I-GT-20910;
+    (=gt-k		. 03952)	; &I-GT-K03952;
+    (=gt-pj-4		. #x413D)	; &I-GT-20910; [33-29]
     (=daikanwa		. 16279)	; &I-M-16279;
-    (=hanziku-4		. #xD2D5)	; &I-HZK04-D2D5;
     (<-wrong
      ((=ucs		  . #x8D70)	; èµ°
       (=daikanwa	  . 37034)	; &I-M-37034;
       ))
     (<-wrong*sources
      kangxi daikanwa)
+    (->subsumptive
+     ((=>>ucs@iso	  . #x23955)	; &G-GT-20910;
+      (=>>cns11643-6	  . #x2C37)	; &G-GT-20910; [12-23]
+      (=>>gt		  . 20910)	; &G-GT-20910;
+      (=>>gt-k		  . 03952)	; &G-GT-20910;
+      (=>>daikanwa	  . 16279)	; &G-GT-20910;
+      (->subsumptive
+       ((==ucs@iso	    . #x23955)	; &g2-GT-20910;
+	(==cns11643-6	    . #x2C37)	; &g2-GT-20910; [12-23]
+	(==gt		    . 20910)	; &g2-GT-20910;
+	(==gt-k		    . 03952)	; &g2-GT-20910;
+	(==daikanwa	    . 16279)	; &g2-GT-20910;
+	(->subsumptive
+	 ((===daikanwa	      . 16279)	; &R-M-16279;
+	  )
+	 ((===cns11643-6      . #x2C37)	; &R-C6-2C37; [12-23]
+	  )
+	 ((===gt	      . 20910)	; &R-GT-20910;
+	  (===gt-k	      . 03952)	; &R-GT-20910;
+	  )
+	 ((===ucs@iso	      . #x23955)	; &R-U-00023955;
+	  )
+	 ((=hanziku-4	      . #xD2D5)	; &HZK04-D2D5;
+	  ))
+	))
+      )
+     ((=gt-k		  . 03953)	; &GT-K03953;
+      (=gt-pj-k1	  . #x4068)	; &GT-K03953; [32-72]
+      (->subsumptive
+       ((==gt-k		    . 03953)	; &g2-GT-K03953;
+	(==gt-pj-k1	    . #x4068)	; &g2-GT-K03953; [32-72]
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 77)	; ⽌
@@ -2234,12 +2277,17 @@
   '((ideographic-radical . 77)	; ⽌
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
+    (=>ucs@iwds-1	. #x6B72)	; &J97-3A50;
+    (=>ucs@jis		. #x6B73)	; &J97-3A50;
     (=>jis-x0208	. #x3A50)	; &J97-3A50; [26-48]
     (=>jis-x0213-1	. #x3A50)	; &J97-3A50; [26-48]
+    (=>iwds-1		.  0015)	; &J97-3A50;
     ))
 (define-char
   '((<-denotational
-     ((=>jis-x0208	  . #x3A50)	; &J97-3A50; [26-48]
+     ((=>ucs@iwds-1	  . #x6B72)	; &J97-3A50;
+      (=>ucs@jis	  . #x6B73)	; &J97-3A50;
+      (=>jis-x0208	  . #x3A50)	; &J97-3A50; [26-48]
       ))
     (ideographic-radical . 77)	; ⽌
     (ideographic-strokes . 9)
@@ -2283,7 +2331,9 @@
     ))
 (define-char
   '((<-denotational
-     ((=>jis-x0208	  . #x3A50)	; &J97-3A50; [26-48]
+     ((=>ucs@iwds-1	  . #x6B72)	; &J97-3A50;
+      (=>ucs@jis	  . #x6B73)	; &J97-3A50;
+      (=>jis-x0208	  . #x3A50)	; &J97-3A50; [26-48]
       ))
     (ideographic-radical . 77)	; ⽌
     (ideographic-strokes . 9)
-- 
1.7.10.4