From: tomo <tomo>
Date: Wed, 22 Sep 2010 10:41:04 +0000 (+0000)
Subject: (U+5370): Use `->subsumptive'.
X-Git-Tag: chise-base-0_25-1^20~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=890dbd564c2639ac561c3053f77b4ae483a44249;p=chise%2Fxemacs-chise.git

(U+5370): Use `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index ff0a87d..e8a53d0 100644
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -264,54 +264,37 @@
     (=ruimoku-v6	. #xE00F)	; &RUI6-E00F;
     ))
 (define-char
-  '((=>ucs		. #x5370)	; 印
-    (ideographic-radical . 26)	; ⼙
-    (ideographic-strokes . 4)
-    (total-strokes	 . 6)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=big5-cdp	  . #x8CAC)	; &CDP-8CAC;
-      )
-     ((=ucs		  . #x5369)	; 卩
-      ))
-    (=ucs@jis		. #x5370)	; &GT-03622;
-    (=jis-x0208		. #x3075)	; &GT-03622; [16-85]
-    (=ks-x1001		. #x6C54)	; &I-K0-6C54; [76-52]
-    (=jis-x0213-1	. #x3075)	; &I-JX1-3075; [16-85]
-    (=gt		. 03622)	; &I-GT-03622;
-    (=gt-k		. 01561)	; &I-GT-K01561;
-    (=gt-pj-1		. #x3075)	; &I-GT-03622; [16-85]
-    (=daikanwa		. 02848)	; &I-M-02848;
-    (=shinjigen		.  0852)	; &GT-03622;
-    ))
-(define-char
-  '((=>ucs		. #x5370)	; 印
-    (morohashi-daikanwa	2848 0 1)
-    (ideographic-radical . 26)	; ⼙
-    (ideographic-strokes . 4)
-    (total-strokes	 . 6)
-    (=shinjigen		.  0851)	; &SJG2-0851;
-    ))
-(define-char
-  '((morohashi-daikanwa	2848 0 2)
-    (ideographic-radical . 26)	; ⼙
+  '((ideographic-radical . 26)	; ⼙
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
-    (hanyu-dazidian	1 312 2)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=big5-cdp	  . #x8CAC)	; &CDP-8CAC;
-      )
-     ((=ucs		  . #x5369)	; 卩
-      ))
     (=ucs		. #x5370)	; 印
-    (=gb2312		. #x5321)	; &I-G0-5321; [51-01]
-    (=cns11643-1	. #x474D)	; &I-C1-474D; [39-45]
-    (=big5		. #xA64C)	; &I-B-A64C;
+    (->subsumptive
+     ((=ucs@jis		  . #x5370)	; &GT-03622;
+      (=jis-x0208	  . #x3075)	; &GT-03622; [16-85]
+      (=ks-x1001	  . #x6C54)	; &I-K0-6C54; [76-52]
+      (=jis-x0213-1	  . #x3075)	; &I-JX1-3075; [16-85]
+      (=gt		  . 03622)	; &I-GT-03622;
+      (=gt-k		  . 01561)	; &I-GT-K01561;
+      (=gt-pj-1		  . #x3075)	; &I-GT-03622; [16-85]
+      (=daikanwa	  . 02848)	; &I-M-02848;
+      (=shinjigen	  .  0852)	; &GT-03622;
+      )
+     ((=shinjigen	  .  0851)	; &SJG2-0851;
+      )
+     ((hanyu-dazidian	  1 312 2)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=big5-cdp	    . #x8CAC)	; &CDP-8CAC;
+	)
+       ((=ucs		    . #x5369)	; 卩
+	))
+      (=ucs@unicode	  . #x5370)	; &C1-474D;
+      (=gb2312		  . #x5321)	; &C1-474D; [51-01]
+      (=cns11643-1	  . #x474D)	; &I-C1-474D; [39-45]
+      (=big5		  . #xA64C)	; &I-B-A64C;
+      ))
     ))
 (define-char
   '((ideographic-radical . 26)	; ⼙