From: tomo <tomo>
Date: Fri, 13 May 2005 16:22:55 +0000 (+0000)
Subject: (U+5C54): Use `->subsumptive'.
X-Git-Tag: r21-4-15-chise-0_22^2~95
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=96c1c2a4e507ce5e9142cfcfb0cfe9b49af9e4fc;p=chise%2Fxemacs-chise.git.1

(U+5C54): Use `->subsumptive'.
(U+5C56): Unify B-D16A; delete `=>daikanwa'.
(M-07716): Separate B-D16A.
---

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index 52a2dd8..295d19f 100644
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -1055,9 +1055,13 @@
     (ideographic-strokes . 7)
     (total-strokes	 . 10)
     (=ucs		. #x5C54)	; 屔
-    (=cns11643-2	. #x2E6D)	; &I-C2-2E6D; [14-77]
-    (=big5		. #xD16B)	; &I-B-D16B;
-    (=daikanwa		. 07714)	; &I-M-07714;
+    (->subsumptive
+     ((=big5		  . #xD16B)	; &M-07714;
+      (=daikanwa	  . 07714)	; &I-M-07714;
+      (=ucs@unicode	  . #x5C54)	; &M-07714;
+      )
+     ((=cns11643-2	  . #x2E6D)	; &C2-2E6D; [14-77]
+      ))
     ))
 (define-char
   '((ideographic-radical . 44)	; ⼫
@@ -1076,14 +1080,13 @@
     (=daikanwa		. 07715)	; &I-M-07715;
     ))
 (define-char
-  '((=>daikanwa		. 07716)	; &M-07716;
-    (ideographic-radical . 44)	; ⼫
+  '((ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 7)
     (total-strokes	 . 10)
     (=ucs		. #x5C56)	; 屖
+    (=big5		. #xD16A)	; &I-B-D16A;
     (->subsumptive
-     ((=big5		  . #xD16A)	; &M-07716;
-      (=daikanwa	  . 07716)	; &I-M-07716;
+     ((=daikanwa	  . 07716)	; &M-07716;
       )
      ((=cns11643-2	  . #x2E6C)	; &C2-2E6C; [14-76]
       (=ucs@unicode	  . #x5C56)	; &C2-2E6C;