(GT-K03455): New character; use `<-subsumptive' for g2-UU+4E23.

(GT-K03250): Ditto.
(BC-89B6-var-003): New character; use `<-subsumptive' for BC-89B6.

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index fd15cbb..7af8b3d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -5641,6 +5641,20 @@
        )
        ((===gt             . 00076)    ; &R-GT-00076;
        )
+       ((=gt-k             . 03455)    ; &GT-K03455;
+       (=gt-pj-k1          . #x3F67)   ; &GT-K03455; [31-71]
+       (->subsumptive
+        ((==gt-k             . 03455)  ; &g2-GT-K03455;
+         (==gt-pj-k1         . #x3F67) ; &g2-GT-K03455; [31-71]
+         ))
+       )
+       ((=gt-k             . 03250)    ; &GT-K03250;
+       (=gt-pj-k1          . #x3378)   ; &GT-K03250; [19-88]
+       (->subsumptive
+        ((==gt-k             . 03250)  ; &g2-GT-K03250;
+         (==gt-pj-k1         . #x3378) ; &g2-GT-K03250; [19-88]
+         ))
+       )
        ((===ucs@unicode            . #x4E23)   ; &R-UU+4E23;
        ))
       ))
@@ -5658,6 +5672,14 @@
       )
      ((=ucs              . #x4E23)     ; 丣
       ))
+    (->subsumptive
+     ((=>>big5-cdp       . #x89B6)     ; &G-CDP-89B6;
+      (->subsumptive
+       ((==big5-cdp        . #x89B6)   ; &g2-CDP-89B6;
+       ))
+      )
+     ((=big5-cdp-var-003  . #x89B6)    ; &CDP-v003-89B6;
+      ))
     ))
 (define-char
   '((ideographic-radical . 1)  ; ⼀