(U+3563): Add `ideographic-structure'.

(U+3563-var-001): New character; use `<-denotational' for U+3563.

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index b1af024..7be0c0a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -952,6 +952,15 @@
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 2)
     (total-strokes      . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=>ucs@component   . #x51E0)     ; &IWDS1-119;
+      (=>iwds-1                  .  0119)      ; &IWDS1-119;
+      )
+     ((=ucs              . #x53E3)     ; 口
+      ))
     (=ucs              . #x3563)       ; 㕣
     ))
 (define-char
@@ -1019,6 +1028,23 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x3563)     ; 㕣
+      ))
+    (ideographic-radical . 30) ; ⼝
+    (ideographic-strokes . 2)
+    (total-strokes      . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x51E0)     ; 几
+      )
+     ((=ucs              . #x53E3)     ; 口
+      ))
+    (=ucs-var-001      . #x3563)       ; &U-v001+3563;
+    ))
+(define-char
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 2)
     (total-strokes      . 5)