(U+4E38-itaiji-001): New character; use `<-denotational' for U+4E38.

diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el
index b53ed08..d7529a6 100644 (file)
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -336,6 +336,18 @@
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 2)
     (total-strokes      . 3)
+    (=ucs-itaiji-001   . #x4E38)       ; &U-i001+4E38;
+    (->subsumptive
+     ((==ucs-itaiji-001          . #x4E38)     ; &g2-U-i001+4E38;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x4E38)     ; 丸
+      ))
+    (ideographic-radical . 3)  ; ⼂
+    (ideographic-strokes . 2)
+    (total-strokes      . 3)
     (=big5-cdp         . #x8753)       ; &CDP-8753;
     (->subsumptive
      ((==big5-cdp        . #x8753)     ; &g2-CDP-8753;