From: tomo <tomo>
Date: Fri, 16 Apr 2004 04:36:39 +0000 (+0000)
Subject: (U+5C08): Use `->subsumptive'.
X-Git-Tag: r21-4-14-chise-0_21-26^2~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ecde0ed06b47f53b67c1c801a045b0071aa115e2;p=chise%2Fxemacs-chise.git.1

(U+5C08): Use `->subsumptive'.
(JC3-4ACE): Moved into U+5C08.
(U+5C02): Use `=>daikanwa' instead of `morohashi-daikanwa' for
M-07439.
---

diff --git a/lisp/utf-2000/Ideograph-R041-Inch.el b/lisp/utf-2000/Ideograph-R041-Inch.el
index e2fceb4..230b1e5 100644
--- a/lisp/utf-2000/Ideograph-R041-Inch.el
+++ b/lisp/utf-2000/Ideograph-R041-Inch.el
@@ -383,34 +383,33 @@
   '((ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 8)
     (total-strokes	 . 11)
-    (shinjigen-2	. 1885)
     (=ucs		. #x5C08)	; 專
-    (=jis-x0208		. #x5573)	; &I-J90-5573;
-    (=ks-x1001		. #x6E76)	; &I-K0-6E76;
-    (=cns11643-1	. #x5971)	; &I-C1-5971;
-    (=gb12345		. #x5728)	; 專
-    (=big5		. #xB14D)	; &I-B-B14D;
-    (=gt		. 09367)	; &I-GT-09367;
-    (=gt-k		. 07926)	; &I-GT-K07926;
-    (=gt-pj-1		. #x5573)	; &I-GT-09367;
-    (=daikanwa		. 07439)	; &I-M-07439;
-    ))
-(define-char
-  '((=>ucs		. #x5C08)	; 專
-    (morohashi-daikanwa	7439 0 1)
-    (ideographic-radical . 41)	; ⼨
-    (ideographic-strokes . 8)
-    (total-strokes	 . 11)
-    (=jef-china3	. #x4ACE)	; &JC3-4ACE;
+    (->subsumptive
+     ((shinjigen-2	  . 1885)
+      (=jis-x0208	  . #x5573)	; &GT-09367;
+      (=ks-x1001	  . #x6E76)	; &I-K0-6E76;
+      (=cns11643-1	  . #x5971)	; &I-C1-5971;
+      (=gb12345		  . #x5728)	; &GT-09367;
+      (=big5		  . #xB14D)	; &I-B-B14D;
+      (=gt		  . 09367)	; &I-GT-09367;
+      (=gt-k		  . 07926)	; &I-GT-K07926;
+      (=gt-pj-1		  . #x5573)	; &I-GT-09367;
+      (=daikanwa	  . 07439)	; &I-M-07439;
+      (=ucs@unicode	  . #x5C08)	; &GT-09367;
+      )
+     ((=jef-china3	  . #x4ACE)	; &JC3-4ACE;
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa	7439 0 5)
+  '((=>daikanwa		. 07439)	; &GT-09367;
     (ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
     (<-simplified@JP/Jouyou
-     ((=ucs		  . #x5C08)	; 專
-      (=jis-x0208	  . #x5573)	; &I-J90-5573;
+     ((=jis-x0208	  . #x5573)	; &GT-09367;
+      (=ks-x1001	  . #x6E76)	; &I-K0-6E76;
+      (=cns11643-1	  . #x5971)	; &I-C1-5971;
+      (=daikanwa	  . 07439)	; &I-M-07439;
       ))
     (=ucs		. #x5C02)	; 専
     (=jis-x0208		. #x406C)	; &I-J90-406C;