X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu030A0-Katakana.el;h=ae137d5228ea65a240d53e2c23d23fdf3092a49e;hb=309db09568bad453dd08d397f9f251879e86b71d;hp=cf2a42c2c9635732d2af76995e4c900dbdc782f1;hpb=f2081a2679dcc3c34f20af777975b8354661f047;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u030A0-Katakana.el b/lisp/utf-2000/u030A0-Katakana.el
index cf2a42c..ae137d5 100644
--- a/lisp/utf-2000/u030A0-Katakana.el
+++ b/lisp/utf-2000/u030A0-Katakana.el
@@ -1249,6 +1249,13 @@
     ))
 (define-char
   '((name		. "KATAKANA DIGRAPH KOTO")
+    (=>decomposition@vertical
+     ((name		  . "KATAKANA LETTER KO")
+      (=ucs		  . #x30B3)	; コ
+      )
+     ((name		  . "KATAKANA LETTER TO")
+      (=ucs		  . #x30C8)	; ト
+      ))
     (=ucs		. #x30FF)	; ヿ
     (=jis-x0213-1-2000	. #x2238)	; &I-JX1-2238; [02-24]
     ))