(U+573C): Add `<-denotational' for A-IWDSU+2C6F8.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R032-Earth.el

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 4bbb475..b4e683d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -1320,7 +1320,11 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 32) ; ⼟
+  '((<-denotational
+     ((=>ucs@iwds-1      . #x2C6F8)    ; &A-IWDSU+2C6F8;
+      (=>iwds-1                  .  0089)      ; &A-IWDSU+2C6F8;
+      ))
+    (ideographic-radical . 32) ; ⼟
     (ideographic-strokes . 4)
     (total-strokes      . 7)
     (=ucs              . #x573C)       ; 圼