From 856d054f55de5a71ace9a716d2c435e95a545143 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 5 Feb 2018 11:54:47 +0900
Subject: [PATCH] (U-00020116): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R006-Hook.el |   36 ++++++++++++++++++++++++----------
 1 file changed, 26 insertions(+), 10 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R006-Hook.el b/lisp/utf-2000/Ideograph-R006-Hook.el
index 8e33ce6..75c5e30 100644
--- a/lisp/utf-2000/Ideograph-R006-Hook.el
+++ b/lisp/utf-2000/Ideograph-R006-Hook.el
@@ -522,36 +522,52 @@
     (=ucs		. #x20116)	; 𠄖
     (=cns11643-5	. #x2330)	; &I-C5-2330; [03-16]
     (=daikanwa		. 00237)	; &I-M-00237;
-    (=hanziku-1		. #xBE59)	; &I-HZK01-BE59;
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
 	(=ucs		    . #x2FF0)	; â¿°
 	)
-       ((==ucs@jis	    . #x4EE4)	; &g2-AJ1-04009;
-	(==ucs@ks	    . #x4EE4)	; &g2-AJ1-04009;
-	(==adobe-japan1-0   . 04009)	; &g2-AJ1-04009;
+       ((=>>ucs@jis	    . #x4EE4)	; &G-AJ1-04009;
+	(=>>ucs@ks	    . #x4EE4)	; &G-AJ1-04009;
+	(=>>adobe-japan1-0  . 04009)	; &G-AJ1-04009;
 	)
        ((=ucs		    . #x4E01)	; 丁
 	))
-      (==daikanwa	  . 00237)	; &g2-M-00237;
+      (=>>daikanwa	  . 00237)	; &G-M-00237;
+      (->subsumptive
+       ((==daikanwa	    . 00237)	; &g2-M-00237;
+	))
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
 	(=ucs		    . #x2FF0)	; â¿°
 	)
-       ((==ucs@cns	    . #x4EE4)	; &GT-K01023;
+       ((=>>ucs@cns	    . #x4EE4)	; &GT-K01023;
 	(=gt-k		    . 01023)	; &GT-K01023;
 	)
        ((=ucs		    . #x4E01)	; 丁
 	))
-      (==ucs@iso	  . #x20116)	; &g2-IU-00020116;
-      (==cns11643-5	  . #x2330)	; &g2-IU-00020116; [03-16]
+      (=>>ucs@iso	  . #x20116)	; &G-IU+20116;
       (->subsumptive
-       ((===cns11643-5	    . #x2330)	; &R-C5-2330; [03-16]
+       ((==ucs@iso	    . #x20116)	; &g2-IU-00020116;
+	(==cns11643-5	    . #x2330)	; &g2-IU-00020116; [03-16]
+	(->subsumptive
+	 ((===cns11643-5      . #x2330)	; &R-C5-2330; [03-16]
+	  )
+	 ((===ucs@iso	      . #x20116)	; &R-U-00020116;
+	  ))
+	))
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
 	)
-       ((===ucs@iso	    . #x20116)	; &R-U-00020116;
+       ((=>>ucs@unicode	    . #x4EE4)	; &GT-K01022;
+	(=gt-k		    . 01022)	; &GT-K01022;
+	)
+       ((=ucs		    . #x4E01)	; 丁
 	))
+      (=hanziku-1	  . #xBE59)	; &HZK01-BE59;
       ))
     ))
 (define-char
-- 
1.7.10.4