(U+3427-itaiji-002): New character; use `<-denotational' for U+3427.

diff --git a/lisp/utf-2000/Ideograph-R006-Hook.el b/lisp/utf-2000/Ideograph-R006-Hook.el
index 75c5e30..8f62cb7 100644 (file)
--- a/lisp/utf-2000/Ideograph-R006-Hook.el
+++ b/lisp/utf-2000/Ideograph-R006-Hook.el
@@ -398,6 +398,18 @@
     (ideographic-radical . 6)  ; ⼅
     (ideographic-strokes . 3)
     (total-strokes      . 4)
+    (=ucs-itaiji-002   . #x3427)       ; &U-i002+3427;
+    (->subsumptive
+     ((==ucs-itaiji-002          . #x3427)     ; &g2-U-i002+3427;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x3427)     ; 㐧
+      ))
+    (ideographic-radical . 6)  ; ⼅
+    (ideographic-strokes . 3)
+    (total-strokes      . 4)
     (=ucs@unicode      . #x3427)       ; &MJ000018;
     (=mj               . 000018)       ; &MJ000018;
     (=gt               . 00311)        ; &I-GT-00311;