From b8a625742f89499d0653f445cd9c7691bb14fb46 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 18 Aug 2015 14:59:56 +0900
Subject: [PATCH] (U+5817): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R032-Earth.el |   64 ++++++++++++++++++++++++++-------
 1 file changed, 51 insertions(+), 13 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 576aa62..0a8aaaa 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -8543,9 +8543,36 @@
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x571F)	; 土
+      )
+     ((=ucs		  . #x7A81)	; 突
+      ))
+    (=ucs		. #x5817)	; 堗
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5817)	; 堗
+      ))
+    (ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
-    (=ucs		. #x5817)	; 堗
+    (hanyu-dazidian	1 467 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x571F)	; 土
+      )
+     ((=ucs		  . #xFA55)	; 突
+      ))
+    (=ucs@unicode	. #x5817)	; &C4-3669;
+    (=cns11643-4	. #x3669)	; &C4-3669; [22-73]
+    (=daikanwa		. 05235)	; &I-M-05235;
+    (=cbeta		. 02027)	; &I-CB02027;
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -8553,10 +8580,17 @@
 	)
        ((=gt-k		    . 00199)	; &GT-K00199;
 	)
-       ((=ucs		    . #xFA55)	; 突
+       ((==ucs@unicode	    . #xFA55)	; &g2-JX1-7951;
+	(==ucs@ks	    . #x7A81)	; &g2-JX1-7951;
+	(==jis-x0213-1	    . #x7951)	; &g2-JX1-7951; [89-49]
+	))
+      (==daikanwa	  . 05235)	; &g2-M-05235;
+      (==cbeta		  . 02027)	; &g2-M-05235;
+      (->subsumptive
+       ((===daikanwa	    . 05235)	; &R-M-05235;
+	)
+       ((===cbeta	    . 02027)	; &R-CB02027;
 	))
-      (=daikanwa	  . 05235)	; &M-05235;
-      (=cbeta		  . 02027)	; &I-CB02027;
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -8564,23 +8598,27 @@
 	)
        ((=gt-k		    . 00199)	; &GT-K00199;
 	)
-       ((=ucs@cns	    . #x7A81)	; &C1-5273;
-	(=cns11643-1	    . #x5273)	; &C1-5273; [50-83]
+       ((==ucs@cns	    . #x7A81)	; &g2-CU+7A81;
+	(==cns11643-1	    . #x5273)	; &g2-CU+7A81; [50-83]
 	))
-      (=cns11643-4	  . #x3669)	; &C4-3669; [22-73]
+      (==ucs@cns	  . #x5817)	; &g2-CU+5817;
+      (==cns11643-4	  . #x3669)	; &g2-CU+5817; [22-73]
       )
-     ((hanyu-dazidian	  1 467 7)
-      (ideographic-structure
+     ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
 	(=ucs		    . #x2FF0)	; â¿°
 	)
        ((=gt-k		    . 00199)	; &GT-K00199;
 	)
-       ((=ucs@unicode	    . #x7A81)	; &G0-4D3B;
-	(=gb2312	    . #x4D3B)	; &G0-4D3B; [45-27]
+       ((==ucs@unicode	    . #x7A81)	; &g2-UU+7A81;
+	))
+      (==ucs@unicode	  . #x5817)	; &g2-UU+5817;
+      (==ucs@JP/hanazono  . nil)
+      (->subsumptive
+       ((===ucs@unicode	    . #x5817)	; &R-UU+5817;
+	)
+       ((=hanziku-2	    . #xB04D)	; &HZK02-B04D;
 	))
-      (=ucs@unicode	  . #x5817)	; &HZK02-B04D;
-      (=hanziku-2	  . #xB04D)	; &HZK02-B04D;
       ))
     ))
 (define-char
-- 
1.7.10.4