From 5728785c5edd56dc150bc24058bcf9e18bb7a94a Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 29 Dec 2015 19:55:34 +0900
Subject: [PATCH] (U+587C): Add `<-formed' for U+750E and U+5718; add
 `<-interchangeable' for UU+5C08 and U+5718; add `<-same'
 for U+750E and U+5718.

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

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index fe3cea9..51f9735 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -13988,6 +13988,40 @@
     (=big5		. #xE157)	; &I-B-E157;
     (=daikanwa		. 05400)	; &I-M-05400;
     (=jef-china3	. #x97DE)	; &I-JC3-97DE;
+    (<-formed
+     ((=ucs		  . #x750E)	; 甎
+      )
+     ((=ucs		  . #x5718)	; 團
+      ))
+    (<-formed$_1*sources
+     jiyun)
+    (<-formed$_2*sources
+     jiyun)
+    (<-interchangeable
+     ((=ucs@unicode	  . #x5C08)	; &AJ1-04642;
+      (=adobe-japan1-0	  . 04642)	; &AJ1-04642;
+      (=daikanwa	  . 07439)	; &I-M-07439;
+      )
+     ((=ucs		  . #x5718)	; 團
+      (=daikanwa	  . 04834)	; &I-M-04834;
+      ))
+    (<-interchangeable$_1*sources
+     maoshi-shu daikanwa)
+    (<-interchangeable*sources
+     daikanwa)
+    (<-same
+     ((=ucs		  . #x750E)	; 甎
+      (=daikanwa	  . 21589)	; &I-M-21589;
+      )
+     ((=ucs		  . #x5718)	; 團
+      (=daikanwa	  . 04834)	; &I-M-04834;
+      ))
+    (<-same$_1*sources
+     jiyun daikanwa)
+    (<-same$_2*sources
+     jiyun daikanwa)
+    (<-same*sources
+     daikanwa)
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
-- 
1.7.10.4