(GT-K01134): New character; use `<-denotational' for U-00020679.

(GT-K01275): Likewise; unify U+20679-var-001.

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index 13589e2..6400c70 100644 (file)
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -357,6 +357,43 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x20679)    ; 𠙹
+      ))
+    (ideographic-radical . 17) ; ⼐
+    (ideographic-strokes . 3)
+    (total-strokes      . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
+      (=ucs              . #x2FF6)     ; ⿶
+      )
+     ((=ucs              . #x51F5)     ; 凵
+      )
+     ((=big5-cdp         . #x8BF1)     ; &CDP-8BF1;
+      ))
+    (=gt-k             . 01134)        ; &GT-K01134;
+    (=gt-pj-k1         . #x404B)       ; &GT-K01134; [32-43]
+    (->subsumptive
+     ((==gt-k            . 01134)      ; &g2-GT-K01134;
+      (==gt-pj-k1        . #x404B)     ; &g2-GT-K01134; [32-43]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x20679)    ; 𠙹
+      ))
+    (ideographic-radical . 17) ; ⼐
+    (ideographic-strokes . 3)
+    (total-strokes      . 5)
+    (=gt-k             . 01275)        ; &U-v001+20679;
+    (=gt-pj-k2         . #x4125)       ; &U-v001+20679; [33-05]
+    (=ucs-var-001      . #x20679)      ; &U-v001+20679;
+    (->subsumptive
+     ((==gt-k            . 01275)      ; &g2-GT-K01275;
+      (==gt-pj-k2        . #x4125)     ; &g2-GT-K01275; [33-05]
+      ))
+    ))
+(define-char
   '((ideographic-radical . 17) ; ⼐
     (ideographic-strokes . 3)
     (total-strokes      . 5)