X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu03040-Hiragana.el;h=26f9beece8e100c78c12fb26843dc8a0912304b2;hb=2897af11f5bf04a4842eeabf52ee798edfb4bdf2;hp=1d9010b4ba4ebc9f9e862ee320e896257574e76f;hpb=f2081a2679dcc3c34f20af777975b8354661f047;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u03040-Hiragana.el b/lisp/utf-2000/u03040-Hiragana.el
index 1d9010b..26f9bee 100644
--- a/lisp/utf-2000/u03040-Hiragana.el
+++ b/lisp/utf-2000/u03040-Hiragana.el
@@ -1142,8 +1142,7 @@
     (general-category	symbol modifier) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=decomposition
-     compat
+    (=>decomposition@compat
      ((name		  . "SPACE")
       (=ucs		  . #x0020)	;
       )
@@ -1158,8 +1157,7 @@
     (general-category	symbol modifier) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=decomposition
-     compat
+    (=>decomposition@compat
      ((name		  . "SPACE")
       (=ucs		  . #x0020)	;
       )
@@ -1196,6 +1194,13 @@
     ))
 (define-char
   '((name		. "HIRAGANA DIGRAPH YORI")
+    (=>decomposition@vertical
+     ((name		  . "HIRAGANA LETTER YO")
+      (=ucs		  . #x3088)	; よ
+      )
+     ((name		  . "HIRAGANA LETTER RI")
+      (=ucs		  . #x308A)	; り
+      ))
     (=ucs		. #x309F)	; ゟ
     (=jis-x0213-1-2000	. #x2239)	; &I-JX1-2239; [02-25]
     ))