(B-ED70): Use `->denotational' instead of `->subsumptive'.

(J78-3979): Use `<-subsumptive' to integrate JX3-3979.
(J90-3979): Separate JX3-3979.
(M-21617): Separate J83-6131, K0-6838, J90-6131, JX1-6131, GT-27757
and S-5002.
(K0-6838): Unify JX3-6131, GT-27757 and S-5002.

diff --git a/lisp/utf-2000/Ideograph-R098-Tile.el b/lisp/utf-2000/Ideograph-R098-Tile.el
index 1f112ab..0d836c0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R098-Tile.el
+++ b/lisp/utf-2000/Ideograph-R098-Tile.el
@@ -1901,12 +1901,30 @@
     (ideographic-radical . 98) ; ⽡
     (ideographic-strokes . 12)
     (=big5             . #xED70)       ; &B-ED70;
+    ))
+(define-char
+  '((<-denotational
+     ((=big5             . #xED70)     ; &B-ED70;
+      ))
+    (ideographic-radical . 98) ; ⽡
+    (ideographic-strokes . 12)
+    (total-strokes      . 17)
     (->subsumptive
-     ((total-strokes      . 17)
-      (=jis-x0208@1978   . #x3979)     ; &M-21602; [25-89]
+     ((=jis-x0208@1978   . #x3979)     ; &M-21602; [25-89]
       (=ks-x1001         . #x7177)     ; &I-K0-7177; [81-87]
       (=daikanwa         . 21602)      ; &I-M-21602;
       )
+     ((=ucs@jis/2004     . #x7511)     ; &JX3-3979;
+      (=jis-x0213-1@2004  . #x3979)    ; &JX3-3979; [25-89]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=big5             . #xED70)     ; &B-ED70;
+      ))
+    (ideographic-radical . 98) ; ⽡
+    (ideographic-strokes . 12)
+    (->subsumptive
      ((total-strokes      . 17)
       (=ucs@cns                  . #x7511)     ; &C2-5D5C;
       (=cns11643-2       . #x5D5C)     ; &C2-5D5C; [61-60]
@@ -1923,10 +1941,11 @@
     (ideographic-radical . 98) ; ⽡
     (ideographic-strokes . 11)
     (total-strokes      . 16)
-    (=ucs@jis          . #x7511)       ; &GT-27722;
+    (=ucs@jis/1990     . #x7511)       ; &GT-27722;
+    (=ucs@jis/2000     . #x7511)       ; &GT-27722;
     (=jis-x0208@1983   . #x3979)       ; &GT-27722; [25-89]
     (=jis-x0208@1990   . #x3979)       ; &I-J90-3979; [25-89]
-    (=jis-x0213-1      . #x3979)       ; &I-JX1-3979; [25-89]
+    (=jis-x0213-1@2000 . #x3979)       ; &I-JX1-3979; [25-89]
     (=gt               . 27722)        ; &I-GT-27722;
     (=gt-pj-1          . #x3979)       ; &I-GT-27722; [25-89]
     (=jef-china3       . #x5AB6)       ; &I-JC3-5AB6;
@@ -2131,17 +2150,23 @@
     (=big5             . #xC27C)       ; &I-B-C27C;
     (->subsumptive
      ((total-strokes      . 18)
-      (=ucs@jis                  . #x7515)     ; &GT-27757;
-      (=jis-x0208@1983   . #x6131)     ; &GT-27757; [65-17]
-      (=ks-x1001         . #x6838)     ; &I-K0-6838; [72-24]
-      (=jis-x0208@1990   . #x6131)     ; &I-J90-6131; [65-17]
-      (=jis-x0213-1      . #x6131)     ; &I-JX1-6131; [65-17]
+      (=daikanwa         . 21617)      ; &M-21617;
+      )
+     ((total-strokes      . 18)
+      (=ks-x1001         . #x6838)     ; &GT-27757; [72-24]
+      (=jis-x0213-1@2004  . #x6131)    ; &I-JX3-6131; [65-17]
       (=gt               . 27757)      ; &I-GT-27757;
       (=gt-pj-1                  . #x6131)     ; &I-GT-27757; [65-17]
-      (=daikanwa         . 21617)      ; &I-M-21617;
       (=shinjigen        .  5002)      ; &GT-27757;
       )
      ((total-strokes      . 18)
+      (=ucs@jis/1990     . #x7515)     ; &J90-6131;
+      (=ucs@jis/2000     . #x7515)     ; &J90-6131;
+      (=jis-x0208@1983   . #x6131)     ; &J90-6131; [65-17]
+      (=jis-x0208@1990   . #x6131)     ; &I-J90-6131; [65-17]
+      (=jis-x0213-1@2000  . #x6131)    ; &I-JX1-6131; [65-17]
+      )
+     ((total-strokes      . 18)
       (=cns11643-1       . #x7668)     ; &C1-7668; [86-72]
       )
      ((total-strokes      . 17)