(U+7504): Use `->denotational' instead of `->subsumptive'.

(J78-612B): Unify HD-FT1966.

diff --git a/lisp/utf-2000/Ideograph-R098-Tile.el b/lisp/utf-2000/Ideograph-R098-Tile.el
index 4cab9db..9dfb28d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R098-Tile.el
+++ b/lisp/utf-2000/Ideograph-R098-Tile.el
@@ -1274,21 +1274,48 @@
   '((ideographic-radical . 98) ; ⽡
     (ideographic-strokes . 9)
     (=ucs              . #x7504)       ; 甄
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x7504)     ; 甄
+      ))
+    (ideographic-radical . 98) ; ⽡
+    (ideographic-strokes . 9)
+    (total-strokes      . 14)
+    (=>>ucs@cns                . #x7504)       ; &G-GT-27672;
+    (=>>jis-x0208@1978 . #x612B)       ; &G-GT-27672; [65-11]
+    (=big5             . #xBAC2)       ; &G-GT-27672;
+    (=>>gt             . 27672)        ; &G-GT-27672;
+    (=>>daikanwa       . 21557)        ; &G-GT-27672;
+    (=>>hanyo-denshi/ft . #x3362)      ; &G-GT-27672; [19-66]
     (->subsumptive
-     ((total-strokes      . 14)
-      (=big5             . #xBAC2)     ; &B-BAC2;
-      (->subsumptive
-       ((=jis-x0208@1978    . #x612B)  ; &GT-27672; [65-11]
-       (=ks-x1001          . #x4C34)   ; &I-K0-4C34; [44-20]
-       (=gt                . 27672)    ; &I-GT-27672;
-       (=gt-pj-5           . #x3135)   ; &I-GT-27672; [17-21]
-       (=daikanwa          . 21557)    ; &I-M-21557;
-       )
-       ((=cns11643-1       . #x6969)   ; &C1-6969; [73-73]
-       ))
+     ((=jis-x0208@1978   . #x612B)     ; &GT-27672; [65-11]
+      (=ks-x1001         . #x4C34)     ; &I-K0-4C34; [44-20]
+      (=gt               . 27672)      ; &I-GT-27672;
+      (=gt-pj-5                  . #x3135)     ; &I-GT-27672; [17-21]
+      (=daikanwa         . 21557)      ; &I-M-21557;
+      (=hanyo-denshi/ft          . #x3362)     ; &I-HD-FT-3362; [19-66]
       )
+     ((=ucs@cns                  . #x7504)     ; &C1-6969;
+      (=cns11643-1       . #x6969)     ; &C1-6969; [73-73]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x7504)     ; 甄
+      ))
+    (ideographic-radical . 98) ; ⽡
+    (ideographic-strokes . 9)
+    (=>>ucs@unicode    . #x7504)       ; &G-GT-27673;
+    (=>>jis-x0208@1983 . #x612B)       ; &G-GT-27673; [65-11]
+    (=>>jis-x0208@1990 . #x612B)       ; &G-GT-27673; [65-11]
+    (=>>jis-x0213-1    . #x612B)       ; &G-GT-27673; [65-11]
+    (=>>gt             . 27673)        ; &G-GT-27673;
+    (->subsumptive
      ((total-strokes      . 14)
-      (=ucs@jis                  . #x7504)     ; &GT-27673;
+      (=ucs@jis/1990     . #x7504)     ; &GT-27673;
+      (=ucs@jis/2000     . #x7504)     ; &GT-27673;
+      (=ucs@jis/2004     . #x7504)     ; &GT-27673;
       (=jis-x0208@1983   . #x612B)     ; &GT-27673; [65-11]
       (=jis-x0208@1990   . #x612B)     ; &I-J90-612B; [65-11]
       (=jis-x0213-1      . #x612B)     ; &I-JX1-612B; [65-11]