From 16b758740bb0a8bf05fc3d1f03bee03458d27a3e Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 2 Mar 2017 11:37:12 +0900
Subject: [PATCH] (U-00024C14): Separate IU+24C14. (BC-88E1): New character;
 use `<-denotational' for U-00024C14. (U+752B-var-001): New
 character; use `<-denotational' for A-GT-K03345.
 (A-GT-K03345): New abstract node; use `<-denotational' for
 A-UU+752B. (GT-K03345): Use A-GT-K03345 instead of
 A-UU+752B as its mother.

---
 lisp/utf-2000/Ideograph-R102-Field.el |   62 +++++++++++++++++++++++++++++++--
 1 file changed, 60 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R102-Field.el b/lisp/utf-2000/Ideograph-R102-Field.el
index fb1b20f..fba40e5 100644
--- a/lisp/utf-2000/Ideograph-R102-Field.el
+++ b/lisp/utf-2000/Ideograph-R102-Field.el
@@ -236,7 +236,29 @@
     (ideographic-strokes . 1)
     (total-strokes	 . 6)
     (=ucs		. #x24C14)	; 𤰔
-    (=big5-cdp		. #x8DEE)	; &I-CDP-8DEE;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x24C14)	; 𤰔
+      ))
+    (ideographic-radical . 102)	; â½¥
+    (ideographic-strokes . 1)
+    (total-strokes	 . 6)
+    (=big5-cdp		. #x88E1)	; &CDP-88E1;
+    (->subsumptive
+     ((==big5-cdp	  . #x88E1)	; &g2-CDP-88E1;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x24C14)	; 𤰔
+      ))
+    (ideographic-radical . 102)	; â½¥
+    (ideographic-strokes . 1)
+    (total-strokes	 . 6)
+    (=>ucs@iwds-1	. #x24C14)	; &CDP-8DEE;
+    (=ucs@iso		. #x24C14)	; &CDP-8DEE;
+    (=big5-cdp		. #x8DEE)	; &CDP-8DEE;
     (->subsumptive
      ((==ucs@iso	  . #x24C14)	; &g2-CDP-8DEE;
       (==big5-cdp	  . #x8DEE)	; &g2-CDP-8DEE;
@@ -609,6 +631,23 @@
     ))
 (define-char
   '((<-denotational
+     ((=>gt-k		  . 03345)	; &A-GT-K03345;
+      ))
+    (ideographic-radical . 102)	; â½¥
+    (ideographic-strokes . 2)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+      (=ucs		  . #x2FFA)	; ⿺
+      )
+     ((=big5-cdp	  . #x88E1)	; &CDP-88E1;
+      )
+     ((=ucs		  . #x4E36)	; 丶
+      ))
+    (=ucs-var-001	. #x752B)	; &U-v001+752B;
+    ))
+(define-char
+  '((<-denotational
      ((=>ucs@iwds-1	  . #x752B)	; &A-IWDSU+752B;
       (=>ucs@unicode	  . #x752B)	; &A-IWDSU+752B;
       ))
@@ -623,6 +662,25 @@
       )
      ((=ucs		  . #x4E36)	; 丶
       ))
+    (=>gt-k		. 03345)	; &A-GT-K03345;
+    ))
+(define-char
+  '((<-denotational
+     ((=>gt-k		  . 03345)	; &A-GT-K03345;
+      ))
+    (ideographic-radical . 102)	; â½¥
+    (ideographic-strokes . 2)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+      (=ucs		  . #x2FFA)	; ⿺
+      )
+     ((=>ucs@iwds-1	  . #x24C14)	; &CDP-8DEE;
+      (=ucs@iso		  . #x24C14)	; &CDP-8DEE;
+      (=big5-cdp	  . #x8DEE)	; &CDP-8DEE;
+      )
+     ((=ucs		  . #x4E36)	; 丶
+      ))
     (=gt-k		. 03345)	; &GT-K03345;
     (=gt-pj-k2		. #x3534)	; &GT-K03345; [21-20]
     (<-formed@component
@@ -1350,7 +1408,7 @@
     (=hanziku-7		. #xB5E9)	; &I-HZK07-B5E9;
     (<-ancient
      ((=ucs@unicode	  . #x90A6)	; &MJ026242;
-      (=mj		  . 026242)	; &I-MJ026242;
+      (=mj		  . 026242)	; &MJ026242;
       (=daikanwa	  . 39310)	; &I-M-39310;
       ))
     (<-ancient*sources
-- 
1.7.10.4