(U-00020089): Add `<-denotational@component' for A-compU+20089.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R009-Man.el

diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 1bc76c2..c9a5900 100644 (file)
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -161,7 +161,10 @@
       ))
     ))
 (define-char
-  '((name*             . "ideographic component person for top")
+  '((<-denotational@component
+     ((=>ucs@component   . #x20089)    ; &A-compU+20089;
+      ))
+    (name*             . "ideographic component person for top")
     (ideographic-radical@ucs . 4)      ; ⼃
     (ideographic-strokes@ucs . 1)
     (ideographic-radical@ucs*sources