From 6e7468e21203f40eae7c7dbe96e6c326b11c13f9 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 27 Oct 2016 00:27:23 +0900
Subject: [PATCH] (U+38B4): Separate UU+38B4. (MJ001076): Add `<-denotational'
 for U+38B4; unify HD-JT-B10A.

---
 lisp/utf-2000/Ideograph-R057-Bow.el |   55 ++++++++++++++++++++++++++++++-----
 1 file changed, 47 insertions(+), 8 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R057-Bow.el b/lisp/utf-2000/Ideograph-R057-Bow.el
index a8b3d72..03ba7b3 100644
--- a/lisp/utf-2000/Ideograph-R057-Bow.el
+++ b/lisp/utf-2000/Ideograph-R057-Bow.el
@@ -2196,17 +2196,22 @@
   '((ideographic-radical . 57)	; ⼸
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
-    (sound@ja/on	"sei")
     (=ucs		. #x38B4)	; 㢴
-    (=cns11643-6	. #x307A)	; &I-C6-307A; [16-90]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x38B4)	; 㢴
+      ))
+    (ideographic-radical . 57)	; ⼸
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (sound@ja/on	"sei")
+    (=ucs@unicode	. #x38B4)	; &C6-307A;
+    (=cns11643-6	. #x307A)	; &C6-307A; [16-90]
     (=daikanwa		. 09776)	; &I-M-09776;
     (<-ancient
-     ((=ucs@unicode	  . #x897F)	; &GT-46803;
-      (=jis-x0208	  . #x403E)	; &GT-46803; [32-30]
-      (=gb2312		  . #x4E77)	; &I-G0-4E77; [46-87]
-      (=ks-x1001	  . #x6024)	; &I-K0-6024; [64-04]
-      (=cns11643-1	  . #x4869)	; &I-C1-4869; [40-73]
-      (=jis-x0213-1	  . #x403E)	; &I-JX1-403E; [32-30]
+     ((=ucs@unicode	  . #x897F)	; &AJ1-02658;
+      (=adobe-japan1-0	  . 02658)	; &AJ1-02658;
       (=daikanwa	  . 34763)	; &I-M-34763;
       ))
     (<-ancient*sources
@@ -2225,6 +2230,40 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x38B4)	; 㢴
+      ))
+    (ideographic-radical . 57)	; ⼸
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+      (=ucs		  . #x2FF9)	; ⿹
+      )
+     ((=ucs		  . #x5F13)	; 弓
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
+	(=ucs		    . #x2FF4)	; â¿´
+	)
+       ((=ucs		    . #x56D7)	; 囗
+	)
+       ((=ucs		    . #x590A)	; 夊
+	))
+      ))
+    (=mj		. 001076)	; &MJ001076;
+    (=hanyo-denshi/jt	. #xB10A)	; &I-HD-JT-B10A;
+    (->subsumptive
+     ((==mj		  . 001076)	; &g2-MJ001076;
+      (==hanyo-denshi/jt  . #xB10A)	; &g2-MJ001076;
+      (->subsumptive
+       ((===hanyo-denshi/jt . #xB10A)	; &R-HD-JT-B10A;
+	)
+       ((===mj		    . 001076)	; &R-MJ001076;
+	))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 57)	; ⼸
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
-- 
1.7.10.4