From 05f736630cb89fe5465ac5208542aee3863f7099 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 13 May 2011 14:15:06 +0000
Subject: [PATCH] (U+6BBF): Use `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R079-Weapon.el |   39 ++++++++++++++++----------------
 1 file changed, 19 insertions(+), 20 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R079-Weapon.el b/lisp/utf-2000/Ideograph-R079-Weapon.el
index b810dac..90da185 100644
--- a/lisp/utf-2000/Ideograph-R079-Weapon.el
+++ b/lisp/utf-2000/Ideograph-R079-Weapon.el
@@ -953,29 +953,26 @@
     (=cns11643-3	. #x3C4B)	; &C3-3C4B; [28-43]
     ))
 (define-char
-  '((=>ucs		. #x6BBF)	; 殿
-    (ideographic-radical . 79)	; ⽎
-    (ideographic-strokes . 9)
-    (total-strokes	 . 13)
-    (=ucs@jis		. #x6BBF)	; &GT-21359;
-    (=jis-x0208		. #x4542)	; &GT-21359; [37-34]
-    (=ks-x1001		. #x6E7C)	; &I-K0-6E7C; [78-92]
-    (=jis-x0213-1	. #x4542)	; &I-JX1-4542; [37-34]
-    (=gt		. 21359)	; &I-GT-21359;
-    (=gt-k		. 10253)	; &I-GT-K10253;
-    (=gt-pj-1		. #x4542)	; &I-GT-21359; [37-34]
-    (=daikanwa		. 16651)	; &I-M-16651;
-    (=shinjigen@rev	.  4004)	; &GT-21359;
-    ))
-(define-char
-  '((morohashi-daikanwa	16651 0 0)
-    (ideographic-radical . 79)	; ⽎
+  '((ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
     (=ucs		. #x6BBF)	; 殿
-    (=gb2312		. #x356E)	; &I-G0-356E; [21-78]
-    (=cns11643-1	. #x645B)	; &I-C1-645B; [68-59]
     (=big5		. #xB7B5)	; &I-B-B7B5;
+    (->subsumptive
+     ((=ucs@jis		  . #x6BBF)	; &GT-21359;
+      (=jis-x0208	  . #x4542)	; &GT-21359; [37-34]
+      (=ks-x1001	  . #x6E7C)	; &I-K0-6E7C; [78-92]
+      (=jis-x0213-1	  . #x4542)	; &I-JX1-4542; [37-34]
+      (=gt		  . 21359)	; &I-GT-21359;
+      (=gt-k		  . 10253)	; &I-GT-K10253;
+      (=gt-pj-1		  . #x4542)	; &I-GT-21359; [37-34]
+      (=daikanwa	  . 16651)	; &I-M-16651;
+      (=shinjigen	  .  4004)	; &GT-21359;
+      )
+     ((=ucs@unicode	  . #x6BBF)	; &C1-645B;
+      (=gb2312		  . #x356E)	; &C1-645B; [21-78]
+      (=cns11643-1	  . #x645B)	; &I-C1-645B; [68-59]
+      ))
     ))
 (define-char
   '((ideographic-radical . 79)	; ⽎
@@ -985,7 +982,9 @@
     (->subsumptive
      ((=daikanwa	  . 16652)	; &M-16652;
       (<-wrong
-       ((=daikanwa	    . 16668)	; &I-M-16668;
+       ((=ucs@jis	    . #x6BC4)	; &M-16668;
+	(=jis-x0212	    . #x4635)	; &M-16668; [38-21]
+	(=daikanwa	    . 16668)	; &I-M-16668;
 	))
       (<-wrong*sources
        zhengzitong daikanwa)
-- 
1.7.10.4