From 1089f9d83984b9941b2a58dba08b1623abe13183 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 20 Jun 2013 21:40:45 +0900
Subject: [PATCH] (U+3631): Use `->denotational' to separate representative
 nodes. (C3-2827): Add `<-ancient' for U+574D. (U-00021299):
 New character.

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

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index df2394d..4dc258e 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -2063,8 +2063,31 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
     (=ucs		. #x3631)	; 㘱
-    (=cns11643-3	. #x2827)	; &I-C3-2827; [08-07]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3631)	; 㘱
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (=cns11643-3	. #x2827)	; &C3-2827; [08-07]
     (=daikanwa		. 04978)	; &I-M-04978;
+    (<-ancient
+     ((=ucs		  . #x574D)	; 坍
+      (=daikanwa	  . 04927)	; &I-M-04927;
+      ))
+    (<-ancient*sources
+     zihui daikanwa)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3631)	; 㘱
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (=ucs@unicode	. #x3631)	; &UU+3631;
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
@@ -3078,6 +3101,20 @@
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x53F9)	; 叹
+      )
+     ((=ucs		  . #x571F)	; 土
+      ))
+    (=ucs		. #x21299)	; 𡊙
+    ))
+(define-char
+  '((ideographic-radical . 32)	; ⼟
     (=ucs		. #x578B)	; 型
     ))
 (define-char
-- 
1.7.10.4