From: tomo <tomo>
Date: Thu, 26 Aug 2004 09:40:04 +0000 (+0000)
Subject: (U+5BC6): Use `->subsumptive'.
X-Git-Tag: r21-4-15-chise-0_21-31^2~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=592c5a1b20589af04c7aca20e3c97f36281a6309;p=chise%2Fxemacs-chise.git-

(U+5BC6): Use `->subsumptive'.
(U+375D): Use `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index e12450f..661ce92 100644
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -2700,37 +2700,37 @@
     (=cns11643-1	. #x596B)	; &I-C1-596B; [57-75]
     ))
 (define-char
-  '((=>ucs		. #x5BC6)	; 密
-    (ideographic-radical . 40)	; ⼧
-    (ideographic-strokes . 8)
-    (total-strokes	 . 11)
-    (shinjigen-2	. 2009)
-    (=jis-x0208		. #x4C29)	; &GT-09073; [44-09]
-    (=ks-x1001		. #x5A4B)	; &I-K0-5A4B; [58-43]
-    (=big5		. #xB14B)	; &I-B-B14B;
-    (=gt		. 09073)	; &I-GT-09073;
-    (=gt-k		. 07880)	; &I-GT-K07880;
-    (=gt-pj-1		. #x4C29)	; &I-GT-09073; [44-09]
-    (=daikanwa		. 07205)	; &I-M-07205;
-    (=ucs@jis		. #x5BC6)	; &GT-09073;
-    (=ucs@big5		. #x5BC6)	; &GT-09073;
-    ))
-(define-char
-  '((morohashi-daikanwa	7205 0 0)
-    (ideographic-radical . 40)	; ⼧
+  '((ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 8)
     (total-strokes	 . 11)
     (=ucs		. #x5BC6)	; 密
-    (=gb2312		. #x435C)	; &I-G0-435C; [35-60]
-    (=cns11643-1	. #x596F)	; &I-C1-596F; [57-79]
+    (=big5		. #xB14B)	; &I-B-B14B;
+    (->subsumptive
+     ((shinjigen-2	  . 2009)
+      (=jis-x0208	  . #x4C29)	; &GT-09073; [44-09]
+      (=ks-x1001	  . #x5A4B)	; &I-K0-5A4B; [58-43]
+      (=gt		  . 09073)	; &I-GT-09073;
+      (=gt-k		  . 07880)	; &I-GT-K07880;
+      (=gt-pj-1		  . #x4C29)	; &I-GT-09073; [44-09]
+      (=daikanwa	  . 07205)	; &I-M-07205;
+      (=ucs@jis		  . #x5BC6)	; &GT-09073;
+      )
+     ((=gb2312		  . #x435C)	; &C1-596F; [35-60]
+      (=cns11643-1	  . #x596F)	; &I-C1-596F; [57-79]
+      (=ucs@unicode	  . #x5BC6)	; &C1-596F;
+      ))
     ))
 (define-char
   '((ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 8)
     (total-strokes	 . 11)
     (=ucs		. #x375D)	; 㝝
-    (=cns11643-3	. #x353E)	; &I-C3-353E; [21-30]
-    (=daikanwa		. 07206)	; &I-M-07206;
+    (->subsumptive
+     ((=daikanwa	  . 07206)	; &M-07206;
+      )
+     ((=cns11643-3	  . #x353E)	; &C3-353E; [21-30]
+      (=ucs@unicode	  . #x375D)	; &C3-353E;
+      ))
     ))
 (define-char
   '((ideographic-radical . 40)	; ⼧