From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 16 Aug 2020 13:58:26 +0000 (+0900)
Subject: (<KATAKANA DIGRAPH KOTO>): Add `<-denotational@usage' for
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d0638de34f8933366a0c8fa57668462bce9b9fe7;p=chise%2Fxemacs-chise.git

(<KATAKANA DIGRAPH KOTO>): Add `<-denotational@usage' for
A2-DJT-00045; add `ideographic-{radical|strokes}' and `total-strokes';
add `sound@ja/kun'; unify DJT-00045.
---

diff --git a/lisp/utf-2000/u030A0-Katakana.el b/lisp/utf-2000/u030A0-Katakana.el
index 3ac10b7..5f69a1b 100644
--- a/lisp/utf-2000/u030A0-Katakana.el
+++ b/lisp/utf-2000/u030A0-Katakana.el
@@ -1338,7 +1338,13 @@
     (=big5-eten		. #xC6DB)	; &I-B-C6DB;
     ))
 (define-char
-  '((name		. "KATAKANA DIGRAPH KOTO")
+  '((<-denotational@usage
+     ((==>daijiten	  . 00045)	; &A2-DJT-00045;
+      ))
+    (name		. "KATAKANA DIGRAPH KOTO")
+    (ideographic-radical . 2)	; ⼁
+    (ideographic-strokes . 0)
+    (total-strokes	 . 1)
     (=>decomposition@vertical
      ((name		  . "KATAKANA LETTER KO")
       (=ucs		  . #x30B3)	; コ
@@ -1346,6 +1352,8 @@
      ((name		  . "KATAKANA LETTER TO")
       (=ucs		  . #x30C8)	; ト
       ))
+    (sound@ja/kun	"koto")
     (=ucs		. #x30FF)	; ヿ
     (=jis-x0213-1	. #x2238)	; &I-JX1-2238; [02-24]
+    (=daijiten		. 00045)	; &I-DJT-00045;
     ))