(U+7A7F): Unify abstract J0-407C; integrate JX3-407C.

(J0-407C): Separate JX3-407C; separate K0-743E and JC3-5DD7.
(U-00025A36): Use `->subsumptive'; integrate M-25701.
(U-00025A37): Integrate M-25702.
(J90-635E): Separate JX3-635E and GT-33163.

diff --git a/lisp/utf-2000/Ideograph-R116-Cave.el b/lisp/utf-2000/Ideograph-R116-Cave.el
index 604431c..be91f95 100644 (file)
--- a/lisp/utf-2000/Ideograph-R116-Cave.el
+++ b/lisp/utf-2000/Ideograph-R116-Cave.el
@@ -378,22 +378,32 @@
     (ideographic-strokes . 4)
     (total-strokes      . 9)
     (=ucs              . #x7A7F)       ; 穿
     (ideographic-strokes . 4)
     (total-strokes      . 9)
     (=ucs              . #x7A7F)       ; 穿

+    (=>jis-x0208       . #x407C)       ; 穿 [32-92]
+    (=>jis-x0213-1     . #x407C)       ; 穿 [32-92]

     (=big5             . #xACEF)       ; &I-B-ACEF;
     (->subsumptive
     (=big5             . #xACEF)       ; &I-B-ACEF;
     (->subsumptive

-     ((=daikanwa         . 25436)      ; &M-25436;
-      )
-     ((=cns11643-1       . #x5272)     ; &C1-5272; [50-82]
+     ((=>>jis-x0213-1@2004 . #x407C)   ; &aJX3-407C; [32-92]
+      (->subsumptive
+       ((=daikanwa         . 25436)    ; &M-25436;
+       )
+       ((=ucs@jis/2004     . #x7A7F)   ; &JX3-407C;
+       (=jis-x0213-1@2004  . #x407C)   ; &JX3-407C; [32-92]
+       )
+       ((=cns11643-1       . #x5272)   ; &C1-5272; [50-82]
+       ))

       )
      ((=ucs@unicode      . #x7A7F)     ; &G0-3429;
       (=gb2312           . #x3429)     ; &G0-3429; [20-09]
       )
       )
      ((=ucs@unicode      . #x7A7F)     ; &G0-3429;
       (=gb2312           . #x3429)     ; &G0-3429; [20-09]
       )

-     ((=ucs@jis                  . #x7A7F)     ; &GT-32858;
+     ((=ucs@jis/1990     . #x7A7F)     ; &GT-32858;
+      (=ucs@jis/2000     . #x7A7F)     ; &GT-32858;

       (=jis-x0208        . #x407C)     ; &GT-32858; [32-92]
       (=jis-x0208        . #x407C)     ; &GT-32858; [32-92]

-      (=ks-x1001         . #x743E)     ; &I-K0-743E; [84-30]
-      (=jis-x0213-1      . #x407C)     ; &I-JX1-407C; [32-92]
+      (=jis-x0213-1@2000  . #x407C)    ; &I-JX1-407C; [32-92]

       (=gt               . 32858)      ; &I-GT-32858;
       (=gt-k             . 06486)      ; &I-GT-K06486;
       (=gt-pj-1                  . #x407C)     ; &I-GT-32858; [32-92]
       (=gt               . 32858)      ; &I-GT-32858;
       (=gt-k             . 06486)      ; &I-GT-K06486;
       (=gt-pj-1                  . #x407C)     ; &I-GT-32858; [32-92]

+      )
+     ((=ks-x1001         . #x743E)     ; &K0-743E; [84-30]

       (=jef-china3       . #x5DD7)     ; &I-JC3-5DD7;
       ))
     ))
       (=jef-china3       . #x5DD7)     ; &I-JC3-5DD7;
       ))
     ))

@@ -3915,7 +3925,12 @@
     (ideographic-strokes . 15)
     (total-strokes      . 20)
     (=ucs              . #x25A36)      ; 𥨶
     (ideographic-strokes . 15)
     (total-strokes      . 20)
     (=ucs              . #x25A36)      ; 𥨶

-    (=cns11643-7       . #x4E67)       ; &I-C7-4E67; [46-71]
+    (->subsumptive
+     ((=daikanwa         . 25701)      ; &M-25701;
+      )
+     ((=ucs@iso                  . #x25A36)    ; &C7-4E67;
+      (=cns11643-7       . #x4E67)     ; &C7-4E67; [46-71]
+      ))

     ))
 (define-char
   '((ideographic-radical . 116)        ; ⽳
     ))
 (define-char
   '((ideographic-radical . 116)        ; ⽳

@@ -3923,6 +3938,8 @@
     (total-strokes      . 20)
     (=ucs              . #x25A37)      ; 𥨷
     (->subsumptive
     (total-strokes      . 20)
     (=ucs              . #x25A37)      ; 𥨷
     (->subsumptive

+     ((=daikanwa         . 25702)      ; &M-25702;
+      )

      ((=ucs@iso                  . #x25A37)    ; &U-00025A37;
       )
      ((=cns11643-7       . #x4E65)     ; &C7-4E65; [46-69]
      ((=ucs@iso                  . #x25A37)    ; &U-00025A37;
       )
      ((=cns11643-7       . #x4E65)     ; &C7-4E65; [46-69]

@@ -3934,18 +3951,22 @@
     (total-strokes      . 21)
     (=ucs              . #x7AC8)       ; 竈
     (->subsumptive
     (total-strokes      . 21)
     (=ucs              . #x7AC8)       ; 竈
     (->subsumptive

-     ((=ucs@jis                  . #x7AC8)     ; &GT-33163;
-      (=jis-x0208@1978   . #x3376)     ; &GT-33163; [19-86]
+     ((=ucs@jis/1990     . #x7AC8)     ; &M-25703;
+      (=ucs@jis/2000     . #x7AC8)     ; &M-25703;
+      (=jis-x0208@1978   . #x3376)     ; &M-25703; [19-86]

       (=jis-x0208@1983   . #x635E)     ; &I-J83-635E; [67-62]
       (=jis-x0208@1990   . #x635E)     ; &I-J90-635E; [67-62]
       (=jis-x0208@1983   . #x635E)     ; &I-J83-635E; [67-62]
       (=jis-x0208@1990   . #x635E)     ; &I-J90-635E; [67-62]

-      (=jis-x0213-1      . #x635E)     ; &I-JX1-635E; [67-62]
-      (=gt               . 33163)      ; &I-GT-33163;
-      (=gt-pj-1                  . #x635E)     ; &I-GT-33163; [67-62]
+      (=jis-x0213-1@2000  . #x635E)    ; &I-JX1-635E; [67-62]

       (=daikanwa         . 25703)      ; &I-M-25703;
       (=daikanwa         . 25703)      ; &I-M-25703;

-      (=shinjigen@rev    .  5727)      ; &GT-33163;
+      (=shinjigen        .  5727)      ; &M-25703;

       )
      ((=cns11643-3       . #x5E49)     ; &C3-5E49; [62-41]
       )
       )
      ((=cns11643-3       . #x5E49)     ; &C3-5E49; [62-41]
       )

+     ((=ucs@jis/2004     . #x7AC8)     ; &GT-33163;
+      (=jis-x0213-1@2004  . #x635E)    ; &GT-33163; [67-62]
+      (=gt               . 33163)      ; &I-GT-33163;
+      (=gt-pj-1                  . #x635E)     ; &I-GT-33163; [67-62]
+      )

      ((=ucs@unicode      . #x7AC8)     ; &UU+7AC8;
       (=gb12345                  . #x546E)     ; &UU+7AC8; [52-78]
       ))
      ((=ucs@unicode      . #x7AC8)     ; &UU+7AC8;
       (=gb12345                  . #x546E)     ; &UU+7AC8; [52-78]
       ))