(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 (file)
--- 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)       ; 欠
     (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]
     (->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]
       )
      ((=ucs@unicode      . #x6B20)     ; &G0-4737;
       (=gb2312           . #x4737)     ; &G0-4737; [39-23]

-      (=big5             . #xA4ED)     ; &I-B-A4ED;

       ))
     ))
 (define-char
       ))
     ))
 (define-char

@@ -33,8 +33,9 @@
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (=ucs              . #x6B21)       ; 次
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (=ucs              . #x6B21)       ; 次

+    (=>jis-x0208       . #x3C21)       ; 次 [28-01]
+    (=>jis-x0213-1     . #x3C21)       ; 次 [28-01]

     (=big5             . #xA6B8)       ; &I-B-A6B8;
     (=big5             . #xA6B8)       ; &I-B-A6B8;

-    (=jis-x0208@1997   . #x3C21)       ; 次 [28-01]

     ))
 (define-char
   '((<-denotational
     ))
 (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]
       (=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;
       )
      ((=gt               . 20574)      ; &GT-20574;
       (=gt-k             . 01626)      ; &I-GT-K01626;

@@ -3326,7 +3333,8 @@
 (define-char
   '((ideographic-radical . 76) ; ⽋
     (=ucs              . #x6B4E)       ; 歎
 (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
     ))
 (define-char
   '((<-denotational

@@ -3339,6 +3347,7 @@
     (->subsumptive
      ((=ks-x1001         . #x7727)     ; &M-16182; [87-07]
       (=cns11643-1       . #x6D45)     ; &I-C1-6D45; [77-37]
     (->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;
       )
       (=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]
       )
       (=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-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
       ))
     ))
 (define-char

@@ -4403,7 +4419,6 @@
      ((=daikanwa         . 16234)      ; &M-16234;
       (<-same
        ((=ucs@jis          . #x5859)   ; &GT-06721;
      ((=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;
        (=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]
       (<-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
        (=daikanwa          . 16182)    ; &I-M-16182;
        ))
       (<-Large-Seal*sources