(GT-K00606): Add `<-denotational' for U+6708.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R137-Boat.el

diff --git a/lisp/utf-2000/Ideograph-R137-Boat.el b/lisp/utf-2000/Ideograph-R137-Boat.el
index dd7c2f4..1b38a69 100644 (file)
--- a/lisp/utf-2000/Ideograph-R137-Boat.el
+++ b/lisp/utf-2000/Ideograph-R137-Boat.el
@@ -52,7 +52,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 137)        ; ⾈
+  '((<-denotational
+     ((=ucs              . #x6708)     ; 月
+      ))
+    (ideographic-radical . 137)        ; ⾈
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (=gt-k             . 00606)        ; &GT-K00606;
@@ -62,7 +65,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 137)        ; ⾈
+  '((<-denotational
+     ((=ucs              . #x6708)     ; 月
+      ))
+    (ideographic-radical . 137)        ; ⾈
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (=gt-k             . 00607)        ; &GT-K00607;