From 4d7da7e2573c6580442d2e32d313dbba4f209675 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 18 Mar 2016 03:36:37 +0900
Subject: [PATCH] (U+9F14): Add U+9F14-var-001 to subsume HNG-KHI0630-0 and
 HNG-KHM0594-0.

---
 lisp/utf-2000/Ideograph-R207-Drum.el |   35 +++++++++++++++++++++++++++++++++-
 1 file changed, 34 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/Ideograph-R207-Drum.el b/lisp/utf-2000/Ideograph-R207-Drum.el
index f50e194..6e3f481 100644
--- a/lisp/utf-2000/Ideograph-R207-Drum.el
+++ b/lisp/utf-2000/Ideograph-R207-Drum.el
@@ -56,6 +56,14 @@
   '((ideographic-radical . 207)	; ⿎
     (ideographic-strokes . 0)
     (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x58F4)	; 壴
+      )
+     ((=ucs		  . #x6534)	; 攴
+      ))
     (=ucs		. #x9F14)	; 鼔
     (=adobe-japan1-5	. 20046)	; &I-AJ1-20046;
     (=jis-x0212		. #x6D2A)	; &I-JSP-6D2A; [77-10]
@@ -68,6 +76,15 @@
 	)
        ((=ucs		    . #xE0100)	; 󠄀
 	))
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=gt-k		    . 05309)	; &GT-K05309;
+	)
+       ((==ucs@unicode	    . #x6534)	; &g2-AJ1-05058;
+	(==adobe-japan1-0   . 05058)	; &g2-AJ1-05058;
+	))
       (==ucs@unicode	  . #x9F14)	; &g2-AJ1-20046;
       (==adobe-japan1-5	  . 20046)	; &g2-AJ1-20046;
       (==jis-x0212	  . #x6D2A)	; &g2-AJ1-20046; [77-10]
@@ -88,10 +105,26 @@
        ((===ucs@unicode	    . #x9F14)	; &R-UU+9F14;
 	))
       )
-     ((===hng-khi	  . 06300)	; &HNG010-06300;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((==ucs@unicode	    . #x58F4)	; &g2-AJ1-17467;
+	(==adobe-japan1-5   . 17467)	; &g2-AJ1-17467;
+	)
+       ((=ucs-var-001	    . #x6534)	; &U-v001+6534;
+	))
+      (=ucs-var-001	  . #x9F14)	; &U-v001+9F14;
       (<-formed
        ((=ucs		    . #x9F13)	; 鼓
 	))
+      (<-formed*sources
+       hng)
+      (->subsumptive
+       ((===hng-khi	    . 06300)	; &HNG010-06300;
+	)
+       ((===hng-khm	    . 05940)	; &HNG011-05940;
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4