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

(A-UU+5807): New abstract node; use `<-denotational' for U+5807.
(UU+5807): Use A-UU+5807 instead of U+5807 as its mother.

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index f481423..f2d7a56 100644 (file)
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -12079,6 +12079,15 @@
       (=>iwds-1                  .  0300)      ; &A-compU+83EB;
       ))
     (ideographic-radical . 32) ; ⼟
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=>ucs@component   . #x5EFF)     ; &A-compU+5EFF;
+      (=>iwds-1                  .  0303)      ; &A-compU+5EFF;
+      )
+     ((=>big5-cdp        . #x8A6D)     ; &A-CDP-8A6D;
+      ))
     (=ucs              . #x5807)       ; 堇
     (=>iwds-1          .  0276)        ; 堇
     ))
@@ -12087,6 +12096,22 @@
      ((=ucs              . #x5807)     ; 堇
       ))
     (ideographic-radical . 32) ; ⼟
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=>ucs@component   . #x5EFF)     ; &A-compU+5EFF;
+      (=>iwds-1                  .  0303)      ; &A-compU+5EFF;
+      )
+     ((=big5-cdp         . #x8A6D)     ; &CDP-8A6D;
+      ))
+    (=>ucs@unicode     . #x5807)       ; &A-UU+5807;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@unicode     . #x5807)     ; &A-UU+5807;
+      ))
+    (ideographic-radical . 32) ; ⼟
     (ideographic-strokes . 8)
     (total-strokes      . 11)
     (hanyu-dazidian    1 450 2)