From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 10 Feb 2014 11:55:48 +0000 (+0900)
Subject: (A-HDU+8218): New node; add `<-denotational' for BUCS+9928.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=89a9a783cc652b06022d0b63693521a1a72aa9c9;p=chise%2Fxemacs-chise.git

(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'.
---

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)	; 𦧰