(U+8D64): Add HNG-KHI0180-0.

diff --git a/lisp/utf-2000/Ideograph-R155-Red.el b/lisp/utf-2000/Ideograph-R155-Red.el
index 7d10f40..609b0a2 100644 (file)
--- a/lisp/utf-2000/Ideograph-R155-Red.el
+++ b/lisp/utf-2000/Ideograph-R155-Red.el
@@ -14,7 +14,37 @@
     (=gt-k             . 02591)        ; &I-GT-K02591;
     (=gt-pj-1          . #x4056)       ; &I-GT-49533; [32-54]
     (=daikanwa         . 36993)        ; &I-M-36993;
-    (=shinjigen@rev    .  7947)        ; 赤
+    (=shinjigen                .  7947)        ; 赤
+    (->subsumptive
+     ((==ucs@unicode     . #x8D64)     ; &g2-GT-49533;
+      (==gb2312                  . #x3360)     ; &g2-GT-49533; [19-64]
+      (==ks-x1001        . #x6E65)     ; &g2-GT-49533; [78-69]
+      (==jis-x0208       . #x4056)     ; &g2-GT-49533; [32-54]
+      (==cns11643-1      . #x4B4B)     ; &g2-GT-49533; [43-43]
+      (==jis-x0213-1     . #x4056)     ; &g2-GT-49533; [32-54]
+      (==gt              . 49533)      ; &g2-GT-49533;
+      (==gt-k            . 02591)      ; &g2-GT-49533;
+      (==daikanwa        . 36993)      ; &g2-GT-49533;
+      (==shinjigen       .  7947)      ; &g2-GT-49533;
+      (->subsumptive
+       ((===daikanwa       . 36993)    ; &R-M-36993;
+       )
+       ((===jis-x0208      . #x4056)   ; &R-J0-4056; [32-54]
+       (===jis-x0213-1     . #x4056)   ; &R-J0-4056; [32-54]
+       )
+       ((===cns11643-1     . #x4B4B)   ; &R-C1-4B4B; [43-43]
+       )
+       ((===gt             . 49533)    ; &R-GT-49533;
+       (===gt-k            . 02591)    ; &R-GT-49533;
+       )
+       ((===ucs@ks         . #x8D64)   ; &R-K0-6E65;
+       (===ks-x1001        . #x6E65)   ; &R-K0-6E65; [78-69]
+       )
+       ((===ucs@unicode            . #x8D64)   ; &R-UU+8D64;
+       )
+       ((===hng-khi        . 01800)    ; &HNG010-01800;
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 155)        ; ⾚