From 446999a698d97b889dc982685825e80d81080650 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 22 Jan 2016 15:57:21 +0900
Subject: [PATCH] (UU+5721): Add `ideographic-structure'. (U+5721-var-002):
 New character. (HNG-KHI0316-0): Use `<-subsumptive' for
 U+5721-var-002 instead of `<-denotational' for U+5721.

---
 lisp/utf-2000/Ideograph-R032-Earth.el |   21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 51f9735..89319b7 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -76,6 +76,14 @@
     (ideographic-strokes . 1)
     (total-strokes	 . 4)
     (hanyu-dazidian	1 417 2)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LEFT")
+      (=ucs		  . #x2FF7)	; â¿·
+      )
+     ((=ucs		  . #x571F)	; 土
+      )
+     ((=ucs		  . #x4E36)	; 丶
+      ))
     (=>ucs@iwds-1	. #x5721)	; &AJ1-13952;
     (=ucs@unicode	. #x5721)	; &AJ1-13952;
     (=adobe-japan1-4	. 13952)	; &AJ1-13952;
@@ -92,7 +100,18 @@
     (ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 1)
     (total-strokes	 . 4)
-    (===hng-khi		. 03160)	; &HNG010-03160;
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LEFT")
+      (=ucs		  . #x2FF7)	; â¿·
+      )
+     ((=ucs		  . #x571F)	; 土
+      )
+     ((=ucs		  . #x4E00)	; 一
+      ))
+    (=ucs-var-002	. #x5721)	; &U-v002+5721;
+    (->subsumptive
+     ((===hng-khi	  . 03160)	; &HNG010-03160;
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
-- 
1.7.10.4