Add Hanyo-Denshi/FT code points.

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index c278050..6fd61c9 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -2022,15 +2022,24 @@
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (->subsumptive
-     ((=ucs@jis                  . #x5BB5)     ; &GT-09012;
-      (=jis-x0208        . #x3E2C)     ; &GT-09012; [30-12]
-      (=jis-x0213-1      . #x3E2C)     ; &I-JX1-3E2C; [30-12]
-      (=gt               . 09012)      ; &I-GT-09012;
-      (=gt-pj-1                  . #x3E2C)     ; &I-GT-09012; [30-12]
-      )
-     ((=ucs@unicode      . #x5BB5)     ; &G0-4F7C;
-      (=gb2312           . #x4F7C)     ; &G0-4F7C; [47-92]
+    (=>>ucs@unicode    . #x5BB5)       ; &G-GT-09012;
+    (=>>jis-x0208      . #x3E2C)       ; &G-GT-09012; [30-12]
+    (=>>jis-x0213-1    . #x3E2C)       ; &G-GT-09012; [30-12]
+    (=>>gt             . 09012)        ; &G-GT-09012;
+    (->subsumptive
+     ((=>>>ucs@unicode   . #x5BB5)     ; &GI-J0-3E2C;
+      (=>>>jis-x0208     . #x3E2C)     ; &GI-J0-3E2C; [30-12]
+      (=>>>jis-x0213-1   . #x3E2C)     ; &GI-J0-3E2C; [30-12]
+      (->subsumptive
+       ((=ucs@jis          . #x5BB5)   ; &GT-09012;
+       (=jis-x0208         . #x3E2C)   ; &GT-09012; [30-12]
+       (=jis-x0213-1       . #x3E2C)   ; &I-JX1-3E2C; [30-12]
+       (=gt                . 09012)    ; &I-GT-09012;
+       (=gt-pj-1           . #x3E2C)   ; &I-GT-09012; [30-12]
+       )
+       ((=ucs@unicode      . #x5BB5)   ; &G0-4F7C;
+       (=gb2312            . #x4F7C)   ; &G0-4F7C; [47-92]
+       ))
       )
      ((=cns11643-1       . #x5528)     ; &C1-5528; [53-08]
       ))
@@ -2055,7 +2064,13 @@
      ((=ucs@unicode      . #x5BB6)     ; &G0-3C52;
       (=gb2312           . #x3C52)     ; &G0-3C52; [28-50]
       )
-     ((=cns11643-1       . #x5525)     ; &C1-5525; [53-05]
+     ((=>>>ucs@cns       . #x5BB6)     ; &GI-CU+5BB6;
+      (->subsumptive
+       ((=hanyo-denshi/ft   . #x3431)  ; &HD-FT-3431; [20-17]
+       )
+       ((=ucs@cns          . #x5BB6)   ; &C1-5525;
+       (=cns11643-1        . #x5525)   ; &C1-5525; [53-05]
+       ))
       ))
     ))
 (define-char
@@ -4419,9 +4434,15 @@
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 11)
     (total-strokes      . 14)
+    (=>>ucs@unicode    . #x5BE5)       ; &G-UU+5BE5;
     (->subsumptive
-     ((=ucs@unicode      . #x5BE5)     ; &G0-4148;
-      (=gb2312           . #x4148)     ; &G0-4148; [33-40]
+     ((=>>>ucs@unicode   . #x5BE5)     ; &GI-UU+5BE5;
+      (->subsumptive
+       ((=hanyo-denshi/ft   . #x3557)  ; &HD-FT-3557; [21-55]
+       )
+       ((=ucs@unicode      . #x5BE5)   ; &G0-4148;
+       (=gb2312            . #x4148)   ; &G0-4148; [33-40]
+       ))
       )
      ((=cns11643-1       . #x6851)     ; &C1-6851; [72-49]
       ))
@@ -4439,6 +4460,7 @@
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 11)
     (total-strokes      . 14)
+    (=>>>ucs@iso       . #x21A7E)      ; &GI-IU+21A7E;
     (->subsumptive
      ((=daikanwa         . 07293)      ; &M-07293;
       )

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index 17e7817..f738915 100644 (file)
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -1082,6 +1082,7 @@
     (=ks-x1001         . #x605A)       ; &I-K0-605A; [64-58]
     (=jis-x0213-1@2004 . #x367D)       ; &I-JX3-367D; [22-93]
     (=daikanwa         . 07709)        ; &I-M-07709;
+    (=hanyo-denshi/ft  . #x3172)       ; &I-HD-FT-3172; [17-82]
     ))
 (define-char
   '((<-denotational
@@ -1090,6 +1091,9 @@
     (ideographic-radical . 44) ; ⼫
     (ideographic-strokes . 7)
     (total-strokes      . 10)
+    (=>>ucs@unicode    . #x5C51)       ; &G-GT-09717;
+    (=>>jis-x0213-1@2000 . #x367D)     ; &G-GT-09717; [22-93]
+    (=>>gt             . 09717)        ; &G-GT-09717;
     (->subsumptive
      ((=ucs@unicode      . #x5C51)     ; &GT-09717;
       (=gb2312           . #x503C)     ; &GT-09717; [48-28]
@@ -1711,11 +1715,13 @@
   '((<-denotational
      ((=ucs              . #x5C60)     ; 屠
       ))
-    (=>ucs*            . #x5C60)       ; 屠
     (ideographic-radical . 44) ; ⼫
     (ideographic-strokes . 9)
     (total-strokes      . 12)
-    (=ucs              . #x2F877)      ; 屠
+    (=>>>ucs@jis/2004  . #x5C60)       ; &GI-JX3-454B;
+    (=>>>ucs@ks                . #x5C60)       ; &GI-JX3-454B;
+    (=>>>ucs@cns       . #x2F877)      ; &GI-JX3-454B;
+    (=>>>jis-x0213-1@2004 . #x454B)    ; &GI-JX3-454B; [37-43]
     (->subsumptive
      ((=ucs@jis/2004     . #x5C60)     ; &M-07761;
       (=ucs@ks           . #x5C60)     ; &M-07761;
@@ -1723,9 +1729,11 @@
       (=ks-x1001         . #x5375)     ; &I-K0-5375; [51-85]
       (=jis-x0213-1@2004  . #x454B)    ; &I-JX3-454B; [37-43]
       (=daikanwa         . 07761)      ; &I-M-07761;
+      (=hanyo-denshi/ft          . #x326A)     ; &I-HD-FT-326A; [18-74]
       )
-     ((=ucs@iso                  . #x2F877)    ; &C6-477B;
-      (=cns11643-6       . #x477B)     ; &C6-477B; [39-91]
+     ((=>ucs*            . #x5C60)     ; 屠
+      (=ucs              . #x2F877)    ; 屠
+      (=cns11643-6       . #x477B)     ; &I-C6-477B; [39-91]
       ))
     ))
 (define-char