From 89a9a783cc652b06022d0b63693521a1a72aa9c9 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 10 Feb 2014 20:55:48 +0900
Subject: [PATCH] (A-HDU+8218): New node; add `<-denotational' for BUCS+9928.
 (U+8218): Use A-HDU+8218 instead of BUCS+9928 as the
 mother. (G-HD-IB1067): New node; add `<-denotational' for
 A-HDU+8218. (HD-IB1067): Use G-HD-IB1067 instead of
 BUCS+9928 as the mother; add `=decomposition@hanyo-denshi'.

---
 lisp/utf-2000/Ideograph-R135-Tongue.el |   21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index a189484..297e8ee 100644
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -908,6 +908,15 @@
     (ideographic-radical . 135)	; ⾆
     (ideographic-strokes . 10)
     (total-strokes	 . 16)
+    (=>ucs@hanyo-denshi . #x8218)	; &A-HDU+8218;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@hanyo-denshi . #x8218)	; &A-HDU+8218;
+      ))
+    (ideographic-radical . 135)	; ⾆
+    (ideographic-strokes . 10)
+    (total-strokes	 . 16)
     (=ucs		. #x8218)	; 舘
     (=jis-x0208		. #x345C)	; &I-J90-345C; [20-60]
     (=jis-x0213-1	. #x345C)	; &I-JX1-345C; [20-60]
@@ -934,12 +943,20 @@
     ))
 (define-char
   '((<-denotational
-     ((==>ucs@bucs	  . #x9928)	; &BUCS+9928;
+     ((=>ucs@hanyo-denshi . #x8218)	; &A-HDU+8218;
       ))
     (ideographic-radical . 135)	; ⾆
     (ideographic-strokes . 10)
     (total-strokes	 . 16)
-    (=hanyo-denshi/ib	. #x2A63)	; &HD-IB-2A63; [10-67]
+    (=>>hanyo-denshi/ib . #x2A63)	; &G-HD-IB-2A63; [10-67]
+    (->subsumptive
+     ((=decomposition@hanyo-denshi
+       ((=ucs		    . #x8218)	; 舘
+	)
+       ((=ucs		    . #xE0103)	; 󠄃
+	))
+      (=hanyo-denshi/ib	  . #x2A63)	; &HD-IB-2A63; [10-67]
+      ))
     ))
 (define-char
   '((=>ucs		. #x269F0)	; 𦧰
-- 
1.7.10.4