From 8ae3beca9ba9b5259c382e786bcc223bd0605b84 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 16 May 2004 08:37:53 +0000
Subject: [PATCH] (U+3C7E): Use `->subsumptive'. (U+3C7F): Likewise. (U+6BB7):
 Likewise. (M-16628): Map to U-00023A89.

---
 lisp/utf-2000/Ideograph-R079-Weapon.el |   80 +++++++++++++++-----------------
 1 file changed, 38 insertions(+), 42 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R079-Weapon.el b/lisp/utf-2000/Ideograph-R079-Weapon.el
index 1aa6285..d639529 100644
--- a/lisp/utf-2000/Ideograph-R079-Weapon.el
+++ b/lisp/utf-2000/Ideograph-R079-Weapon.el
@@ -197,64 +197,66 @@
     (=daikanwa		. 16624)	; &I-M-16624;
     ))
 (define-char
-  '((=>ucs		. #x3C7E)	; ã±¾
-    (ideographic-radical . 79)	; ⽎
-    (ideographic-strokes . 6)
-    (total-strokes	 . 10)
-    (=daikanwa		. 16625)	; &M-16625;
-    ))
-(define-char
-  '((morohashi-daikanwa	16625 0 0)
-    (ideographic-radical . 79)	; ⽎
+  '((ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
     (=ucs		. #x3C7E)	; ã±¾
-    (=cns11643-4	. #x2D64)	; &I-C4-2D64;
-    ))
-(define-char
-  '((=>ucs		. #x3C7F)	; 㱿
-    (ideographic-radical . 79)	; ⽎
-    (ideographic-strokes . 6)
-    (total-strokes	 . 10)
-    (=daikanwa		. 16626)	; &M-16626;
+    (->subsumptive
+     ((=daikanwa	  . 16625)	; &M-16625;
+      )
+     ((=cns11643-4	  . #x2D64)	; &C4-2D64;
+      (=ucs@unicode	  . #x3C7E)	; &C4-2D64;
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa	16626 0 0)
-    (ideographic-radical . 79)	; ⽎
+  '((ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
     (=ucs		. #x3C7F)	; 㱿
-    (=cns11643-3	. #x316B)	; &I-C3-316B;
+    (->subsumptive
+     ((=daikanwa	  . 16626)	; &M-16626;
+      )
+     ((=cns11643-3	  . #x316B)	; &C3-316B;
+      (=ucs@unicode	  . #x3C7F)	; &C3-316B;
+      ))
     ))
 (define-char
-  '((=>ucs		. #x6BB7)	; æ®·
-    (ideographic-radical . 79)	; ⽎
+  '((ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
-    (shinjigen-2	. 3995)
-    (=jis-x0208		. #x5D56)	; &GT-21313;
-    (=ks-x1001		. #x6B5C)	; &I-K0-6B5C;
+    (=ucs		. #x6BB7)	; æ®·
     (=big5		. #xAEEF)	; &I-B-AEEF;
-    (=gt		. 21313)	; &I-GT-21313;
-    (=gt-k		. 06606)	; &I-GT-K06606;
-    (=gt-pj-1		. #x5D56)	; &I-GT-21313;
-    (=daikanwa		. 16627)	; &I-M-16627;
-    (=ucs@jis		. #x6BB7)	; &GT-21313;
+    (->subsumptive
+     ((shinjigen-2	  . 3995)
+      (=jis-x0208	  . #x5D56)	; &GT-21313;
+      (=ks-x1001	  . #x6B5C)	; &I-K0-6B5C;
+      (=gt		  . 21313)	; &I-GT-21313;
+      (=gt-k		  . 06606)	; &I-GT-K06606;
+      (=gt-pj-1		  . #x5D56)	; &I-GT-21313;
+      (=daikanwa	  . 16627)	; &I-M-16627;
+      (=ucs@jis		  . #x6BB7)	; &GT-21313;
+      )
+     ((=gb2312		  . #x5273)	; &C1-5633;
+      (=cns11643-1	  . #x5633)	; &I-C1-5633;
+      (=ucs@unicode	  . #x6BB7)	; &C1-5633;
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa	16627 0 0)
-    (ideographic-radical . 79)	; ⽎
+  '((ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
-    (=ucs		. #x6BB7)	; æ®·
-    (=gb2312		. #x5273)	; &I-G0-5273;
-    (=cns11643-1	. #x5633)	; &I-C1-5633;
+    (=ucs		. #x23A89)	; 𣪉
+    (->subsumptive
+     ((=daikanwa	  . 16628)	; &M-16628;
+      )
+     ((=ucs@iso		  . #x23A89)	; &UU+23A89;
+      ))
     ))
 (define-char
   '((ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
-    (=daikanwa		. 16628)	; &M-16628;
+    (=ucs		. #x6BBA)	; 殺
     ))
 (define-char
   '((=>ucs@cns		. #x2F8F5)	; 殺
@@ -318,12 +320,6 @@
     ))
 (define-char
   '((ideographic-radical . 79)	; ⽎
-    (ideographic-strokes . 6)
-    (total-strokes	 . 10)
-    (=ucs		. #x6BBA)	; 殺
-    ))
-(define-char
-  '((ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 7)
     (total-strokes	 . 11)
     (=ucs		. #x23A8B)	; 𣪋
-- 
1.7.10.4