X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R135-Tongue.el;fp=lisp%2Futf-2000%2FIdeograph-R135-Tongue.el;h=297e8eef77b8e3a7f8ab44a6c808a90af63a3928;hb=89a9a783cc652b06022d0b63693521a1a72aa9c9;hp=a189484de79ed5ae536ae4f5cff76d19a6fe2d98;hpb=d188c3494e05d7c3368e7b8651c34d9209e72a48;p=chise%2Fxemacs-chise.git-

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