From: tomo <tomo>
Date: Thu, 22 Oct 2009 09:25:40 +0000 (+0000)
Subject: (U+6B21): Use `=>jis-x0208' and `=>jis-x0213-1' instead of
X-Git-Tag: r21-4-22-chise-0_24-jis-x0213-rep-diffs^20~208
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cde41fa9fd20303ef9d79d34676e72c328321488;p=chise%2Fxemacs-chise.git

(U+6B21): Use `=>jis-x0208' and `=>jis-x0213-1' instead of
`=jis-x0208@1997'.
(J0-3C21): Add `<-same' for K0-732D.
(U+6B4E): Use `=>jis-x0208' and `=>jis-x0213-1' instead of
`=jis-x0208@1997'.
(C1-6D45): Unify JX3-4337.
(J0-4337): Use `=jis-x0213-1@2000' instead of `=jis-x0213-1' for
JX1-4337; add `<-simplified@JP/jis' for JX3-4337.
---

diff --git a/lisp/utf-2000/Ideograph-R076-Lack.el b/lisp/utf-2000/Ideograph-R076-Lack.el
index 09ab10d..3a23633 100644
--- a/lisp/utf-2000/Ideograph-R076-Lack.el
+++ b/lisp/utf-2000/Ideograph-R076-Lack.el
@@ -4,6 +4,7 @@
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
     (=ucs		. #x6B20)	; 欠
+    (=big5		. #xA4ED)	; &I-B-A4ED;
     (->subsumptive
      ((=ucs@jis		  . #x6B20)	; &GT-20571;
       (=jis-x0208	  . #x3767)	; &GT-20571; [23-71]
@@ -25,7 +26,6 @@
       )
      ((=ucs@unicode	  . #x6B20)	; &G0-4737;
       (=gb2312		  . #x4737)	; &G0-4737; [39-23]
-      (=big5		  . #xA4ED)	; &I-B-A4ED;
       ))
     ))
 (define-char
@@ -33,8 +33,9 @@
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
     (=ucs		. #x6B21)	; 次
+    (=>jis-x0208	. #x3C21)	; 次 [28-01]
+    (=>jis-x0213-1	. #x3C21)	; 次 [28-01]
     (=big5		. #xA6B8)	; &I-B-A6B8;
-    (=jis-x0208@1997	. #x3C21)	; 次 [28-01]
     ))
 (define-char
   '((<-denotational
@@ -72,6 +73,12 @@
       (=ucs@jis		  . #x6B21)	; &J90-3C21;
       (=jis-x0208	  . #x3C21)	; &J90-3C21; [28-01]
       (=jis-x0213-1	  . #x3C21)	; &I-JX1-3C21; [28-01]
+      (<-same
+       ((=ks-x1001	    . #x732D)	; &M-15992; [83-13]
+	(=daikanwa	    . 15992)	; &I-M-15992;
+	))
+      (<-same*sources
+       daikanwa)
       )
      ((=gt		  . 20574)	; &GT-20574;
       (=gt-k		  . 01626)	; &I-GT-K01626;
@@ -3326,7 +3333,8 @@
 (define-char
   '((ideographic-radical . 76)	; ⽋
     (=ucs		. #x6B4E)	; 歎
-    (=jis-x0208@1997	. #x4337)	; 歎 [35-23]
+    (=>jis-x0208	. #x4337)	; 歎 [35-23]
+    (=>jis-x0213-1	. #x4337)	; 歎 [35-23]
     ))
 (define-char
   '((<-denotational
@@ -3339,6 +3347,7 @@
     (->subsumptive
      ((=ks-x1001	  . #x7727)	; &M-16182; [87-07]
       (=cns11643-1	  . #x6D45)	; &I-C1-6D45; [77-37]
+      (=jis-x0213-1@2004  . #x4337)	; &I-JX3-4337; [35-23]
       (=daikanwa	  . 16182)	; &I-M-16182;
       (=jef-china3	  . #x54D3)	; &I-JC3-54D3;
       )
@@ -3357,9 +3366,16 @@
       (=gt-k		  . 11150)	; &I-GT-K11150;
       (=gt-pj-1		  . #x4337)	; &GT-20780; [35-23]
       )
-     ((=ucs@jis		  . #x6B4E)	; &J90-4337;
+     ((=ucs@jis/1990	  . #x6B4E)	; &J90-4337;
+      (=ucs@jis/2000	  . #x6B4E)	; &J90-4337;
       (=jis-x0208	  . #x4337)	; &J90-4337; [35-23]
-      (=jis-x0213-1	  . #x4337)	; &I-JX1-4337; [35-23]
+      (=jis-x0213-1@2000  . #x4337)	; &I-JX1-4337; [35-23]
+      (<-simplified@JP/jis
+       ((=ks-x1001	    . #x7727)	; &M-16182; [87-07]
+	(=cns11643-1	    . #x6D45)	; &I-C1-6D45; [77-37]
+	(=jis-x0213-1@2004  . #x4337)	; &I-JX3-4337; [35-23]
+	(=daikanwa	    . 16182)	; &I-M-16182;
+	))
       ))
     ))
 (define-char
@@ -4403,7 +4419,6 @@
      ((=daikanwa	  . 16234)	; &M-16234;
       (<-same
        ((=ucs@jis	    . #x5859)	; &GT-06721;
-	(=ucs@big5	    . #x5859)	; &GT-06721;
 	(=jis-x0208	    . #x4839)	; &GT-06721; [40-25]
 	(=jis-x0213-1	    . #x4839)	; &I-JX1-4839; [40-25]
 	(=daikanwa	    . 05341)	; &I-M-05341;
@@ -4705,6 +4720,7 @@
       (<-Large-Seal
        ((=ks-x1001	    . #x7727)	; &M-16182; [87-07]
 	(=cns11643-1	    . #x6D45)	; &I-C1-6D45; [77-37]
+	(=jis-x0213-1@2004  . #x4337)	; &I-JX3-4337; [35-23]
 	(=daikanwa	    . 16182)	; &I-M-16182;
 	))
       (<-Large-Seal*sources