(M44014): Unify U+98DF.
[chise/xemacs-chise.git-] / lisp / utf-2000 / u030A0-Katakana.el
index db81cca..12f49c4 100644 (file)
@@ -4,10 +4,10 @@
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x21)      ; \e$(@%!\e(B
-    (chinese-gb2312            #x25 #x21)      ; \e$(A%!\e(B
-    (japanese-jisx0208         #x25 #x21)      ; \e$(B%!\e(B
-    (korean-ksc5601            #x2B #x21)      ; \e$(C+!\e(B
+    (japanese-jisx0208-1978    #x25 #x21)      ; 
+    (chinese-gb2312            #x25 #x21)      ; 
+    (japanese-jisx0208         #x25 #x21)      ; 
+    (korean-ksc5601            #x2B #x21)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER A")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x22)      ; \e$(@%"\e(B
-    (chinese-gb2312            #x25 #x22)      ; \e$(A%"\e(B
-    (japanese-jisx0208         #x25 #x22)      ; \e$(B%"\e(B
-    (korean-ksc5601            #x2B #x22)      ; \e$(C+"\e(B
+    (japanese-jisx0208-1978    #x25 #x22)      ; 
+    (chinese-gb2312            #x25 #x22)      ; 
+    (japanese-jisx0208         #x25 #x22)      ; 
+    (korean-ksc5601            #x2B #x22)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL I")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x23)      ; \e$(@%#\e(B
-    (chinese-gb2312            #x25 #x23)      ; \e$(A%#\e(B
-    (japanese-jisx0208         #x25 #x23)      ; \e$(B%#\e(B
-    (korean-ksc5601            #x2B #x23)      ; \e$(C+#\e(B
+    (japanese-jisx0208-1978    #x25 #x23)      ; 
+    (chinese-gb2312            #x25 #x23)      ; 
+    (japanese-jisx0208         #x25 #x23)      ; 
+    (korean-ksc5601            #x2B #x23)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER I")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x24)      ; \e$(@%$\e(B
-    (chinese-gb2312            #x25 #x24)      ; \e$(A%$\e(B
-    (japanese-jisx0208         #x25 #x24)      ; \e$(B%$\e(B
-    (korean-ksc5601            #x2B #x24)      ; \e$(C+$\e(B
+    (japanese-jisx0208-1978    #x25 #x24)      ; 
+    (chinese-gb2312            #x25 #x24)      ; 
+    (japanese-jisx0208         #x25 #x24)      ; 
+    (korean-ksc5601            #x2B #x24)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL U")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x25)      ; \e$(@%%\e(B
-    (chinese-gb2312            #x25 #x25)      ; \e$(A%%\e(B
-    (japanese-jisx0208         #x25 #x25)      ; \e$(B%%\e(B
-    (korean-ksc5601            #x2B #x25)      ; \e$(C+%\e(B
+    (japanese-jisx0208-1978    #x25 #x25)      ; 
+    (chinese-gb2312            #x25 #x25)      ; 
+    (japanese-jisx0208         #x25 #x25)      ; 
+    (korean-ksc5601            #x2B #x25)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER U")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x26)      ; \e$(@%&\e(B
-    (chinese-gb2312            #x25 #x26)      ; \e$(A%&\e(B
-    (japanese-jisx0208         #x25 #x26)      ; \e$(B%&\e(B
-    (korean-ksc5601            #x2B #x26)      ; \e$(C+&\e(B
+    (japanese-jisx0208-1978    #x25 #x26)      ; 
+    (chinese-gb2312            #x25 #x26)      ; 
+    (japanese-jisx0208         #x25 #x26)      ; 
+    (korean-ksc5601            #x2B #x26)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL E")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x27)      ; \e$(@%'\e(B
-    (chinese-gb2312            #x25 #x27)      ; \e$(A%'\e(B
-    (japanese-jisx0208         #x25 #x27)      ; \e$(B%'\e(B
-    (korean-ksc5601            #x2B #x27)      ; \e$(C+'\e(B
+    (japanese-jisx0208-1978    #x25 #x27)      ; 
+    (chinese-gb2312            #x25 #x27)      ; 
+    (japanese-jisx0208         #x25 #x27)      ; 
+    (korean-ksc5601            #x2B #x27)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER E")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x28)      ; \e$(@%(\e(B
-    (chinese-gb2312            #x25 #x28)      ; \e$(A%(\e(B
-    (japanese-jisx0208         #x25 #x28)      ; \e$(B%(\e(B
-    (korean-ksc5601            #x2B #x28)      ; \e$(C+(\e(B
+    (japanese-jisx0208-1978    #x25 #x28)      ; 
+    (chinese-gb2312            #x25 #x28)      ; 
+    (japanese-jisx0208         #x25 #x28)      ; 
+    (korean-ksc5601            #x2B #x28)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL O")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x29)      ; \e$(@%)\e(B
-    (chinese-gb2312            #x25 #x29)      ; \e$(A%)\e(B
-    (japanese-jisx0208         #x25 #x29)      ; \e$(B%)\e(B
-    (korean-ksc5601            #x2B #x29)      ; \e$(C+)\e(B
+    (japanese-jisx0208-1978    #x25 #x29)      ; 
+    (chinese-gb2312            #x25 #x29)      ; 
+    (japanese-jisx0208         #x25 #x29)      ; 
+    (korean-ksc5601            #x2B #x29)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER O")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x2A)      ; \e$(@%*\e(B
-    (chinese-gb2312            #x25 #x2A)      ; \e$(A%*\e(B
-    (japanese-jisx0208         #x25 #x2A)      ; \e$(B%*\e(B
-    (korean-ksc5601            #x2B #x2A)      ; \e$(C+*\e(B
+    (japanese-jisx0208-1978    #x25 #x2A)      ; 
+    (chinese-gb2312            #x25 #x2A)      ; 
+    (japanese-jisx0208         #x25 #x2A)      ; 
+    (korean-ksc5601            #x2B #x2A)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x2B)      ; \e$(@%+\e(B
-    (chinese-gb2312            #x25 #x2B)      ; \e$(A%+\e(B
-    (japanese-jisx0208         #x25 #x2B)      ; \e$(B%+\e(B
-    (korean-ksc5601            #x2B #x2B)      ; \e$(C++\e(B
+    (japanese-jisx0208-1978    #x25 #x2B)      ; 
+    (chinese-gb2312            #x25 #x2B)      ; 
+    (japanese-jisx0208         #x25 #x2B)      ; 
+    (korean-ksc5601            #x2B #x2B)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30AB #x3099)
-    (japanese-jisx0208-1978    #x25 #x2C)      ; \e$(@%,\e(B
-    (chinese-gb2312            #x25 #x2C)      ; \e$(A%,\e(B
-    (japanese-jisx0208         #x25 #x2C)      ; \e$(B%,\e(B
-    (korean-ksc5601            #x2B #x2C)      ; \e$(C+,\e(B
+    (japanese-jisx0208-1978    #x25 #x2C)      ; 
+    (chinese-gb2312            #x25 #x2C)      ; 
+    (japanese-jisx0208         #x25 #x2C)      ; 
+    (korean-ksc5601            #x2B #x2C)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x2D)      ; \e$(@%-\e(B
-    (chinese-gb2312            #x25 #x2D)      ; \e$(A%-\e(B
-    (japanese-jisx0208         #x25 #x2D)      ; \e$(B%-\e(B
-    (korean-ksc5601            #x2B #x2D)      ; \e$(C+-\e(B
+    (japanese-jisx0208-1978    #x25 #x2D)      ; 
+    (chinese-gb2312            #x25 #x2D)      ; 
+    (japanese-jisx0208         #x25 #x2D)      ; 
+    (korean-ksc5601            #x2B #x2D)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30AD #x3099)
-    (japanese-jisx0208-1978    #x25 #x2E)      ; \e$(@%.\e(B
-    (chinese-gb2312            #x25 #x2E)      ; \e$(A%.\e(B
-    (japanese-jisx0208         #x25 #x2E)      ; \e$(B%.\e(B
-    (korean-ksc5601            #x2B #x2E)      ; \e$(C+.\e(B
+    (japanese-jisx0208-1978    #x25 #x2E)      ; 
+    (chinese-gb2312            #x25 #x2E)      ; 
+    (japanese-jisx0208         #x25 #x2E)      ; 
+    (korean-ksc5601            #x2B #x2E)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x2F)      ; \e$(@%/\e(B
-    (chinese-gb2312            #x25 #x2F)      ; \e$(A%/\e(B
-    (japanese-jisx0208         #x25 #x2F)      ; \e$(B%/\e(B
-    (korean-ksc5601            #x2B #x2F)      ; \e$(C+/\e(B
+    (japanese-jisx0208-1978    #x25 #x2F)      ; 
+    (chinese-gb2312            #x25 #x2F)      ; 
+    (japanese-jisx0208         #x25 #x2F)      ; 
+    (korean-ksc5601            #x2B #x2F)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30AF #x3099)
-    (japanese-jisx0208-1978    #x25 #x30)      ; \e$(@%0\e(B
-    (chinese-gb2312            #x25 #x30)      ; \e$(A%0\e(B
-    (japanese-jisx0208         #x25 #x30)      ; \e$(B%0\e(B
-    (korean-ksc5601            #x2B #x30)      ; \e$(C+0\e(B
+    (japanese-jisx0208-1978    #x25 #x30)      ; 
+    (chinese-gb2312            #x25 #x30)      ; 
+    (japanese-jisx0208         #x25 #x30)      ; 
+    (korean-ksc5601            #x2B #x30)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x31)      ; \e$(@%1\e(B
-    (chinese-gb2312            #x25 #x31)      ; \e$(A%1\e(B
-    (japanese-jisx0208         #x25 #x31)      ; \e$(B%1\e(B
-    (korean-ksc5601            #x2B #x31)      ; \e$(C+1\e(B
+    (japanese-jisx0208-1978    #x25 #x31)      ; 
+    (chinese-gb2312            #x25 #x31)      ; 
+    (japanese-jisx0208         #x25 #x31)      ; 
+    (korean-ksc5601            #x2B #x31)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30B1 #x3099)
-    (japanese-jisx0208-1978    #x25 #x32)      ; \e$(@%2\e(B
-    (chinese-gb2312            #x25 #x32)      ; \e$(A%2\e(B
-    (japanese-jisx0208         #x25 #x32)      ; \e$(B%2\e(B
-    (korean-ksc5601            #x2B #x32)      ; \e$(C+2\e(B
+    (japanese-jisx0208-1978    #x25 #x32)      ; 
+    (chinese-gb2312            #x25 #x32)      ; 
+    (japanese-jisx0208         #x25 #x32)      ; 
+    (korean-ksc5601            #x2B #x32)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x33)      ; \e$(@%3\e(B
-    (chinese-gb2312            #x25 #x33)      ; \e$(A%3\e(B
-    (japanese-jisx0208         #x25 #x33)      ; \e$(B%3\e(B
-    (korean-ksc5601            #x2B #x33)      ; \e$(C+3\e(B
+    (japanese-jisx0208-1978    #x25 #x33)      ; 
+    (chinese-gb2312            #x25 #x33)      ; 
+    (japanese-jisx0208         #x25 #x33)      ; 
+    (korean-ksc5601            #x2B #x33)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30B3 #x3099)
-    (japanese-jisx0208-1978    #x25 #x34)      ; \e$(@%4\e(B
-    (chinese-gb2312            #x25 #x34)      ; \e$(A%4\e(B
-    (japanese-jisx0208         #x25 #x34)      ; \e$(B%4\e(B
-    (korean-ksc5601            #x2B #x34)      ; \e$(C+4\e(B
+    (japanese-jisx0208-1978    #x25 #x34)      ; 
+    (chinese-gb2312            #x25 #x34)      ; 
+    (japanese-jisx0208         #x25 #x34)      ; 
+    (korean-ksc5601            #x2B #x34)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x35)      ; \e$(@%5\e(B
-    (chinese-gb2312            #x25 #x35)      ; \e$(A%5\e(B
-    (japanese-jisx0208         #x25 #x35)      ; \e$(B%5\e(B
-    (korean-ksc5601            #x2B #x35)      ; \e$(C+5\e(B
+    (japanese-jisx0208-1978    #x25 #x35)      ; 
+    (chinese-gb2312            #x25 #x35)      ; 
+    (japanese-jisx0208         #x25 #x35)      ; 
+    (korean-ksc5601            #x2B #x35)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30B5 #x3099)
-    (japanese-jisx0208-1978    #x25 #x36)      ; \e$(@%6\e(B
-    (chinese-gb2312            #x25 #x36)      ; \e$(A%6\e(B
-    (japanese-jisx0208         #x25 #x36)      ; \e$(B%6\e(B
-    (korean-ksc5601            #x2B #x36)      ; \e$(C+6\e(B
+    (japanese-jisx0208-1978    #x25 #x36)      ; 
+    (chinese-gb2312            #x25 #x36)      ; 
+    (japanese-jisx0208         #x25 #x36)      ; 
+    (korean-ksc5601            #x2B #x36)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x37)      ; \e$(@%7\e(B
-    (chinese-gb2312            #x25 #x37)      ; \e$(A%7\e(B
-    (japanese-jisx0208         #x25 #x37)      ; \e$(B%7\e(B
-    (korean-ksc5601            #x2B #x37)      ; \e$(C+7\e(B
+    (japanese-jisx0208-1978    #x25 #x37)      ; 
+    (chinese-gb2312            #x25 #x37)      ; 
+    (japanese-jisx0208         #x25 #x37)      ; 
+    (korean-ksc5601            #x2B #x37)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30B7 #x3099)
-    (japanese-jisx0208-1978    #x25 #x38)      ; \e$(@%8\e(B
-    (chinese-gb2312            #x25 #x38)      ; \e$(A%8\e(B
-    (japanese-jisx0208         #x25 #x38)      ; \e$(B%8\e(B
-    (korean-ksc5601            #x2B #x38)      ; \e$(C+8\e(B
+    (japanese-jisx0208-1978    #x25 #x38)      ; 
+    (chinese-gb2312            #x25 #x38)      ; 
+    (japanese-jisx0208         #x25 #x38)      ; 
+    (korean-ksc5601            #x2B #x38)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x39)      ; \e$(@%9\e(B
-    (chinese-gb2312            #x25 #x39)      ; \e$(A%9\e(B
-    (japanese-jisx0208         #x25 #x39)      ; \e$(B%9\e(B
-    (korean-ksc5601            #x2B #x39)      ; \e$(C+9\e(B
+    (japanese-jisx0208-1978    #x25 #x39)      ; 
+    (chinese-gb2312            #x25 #x39)      ; 
+    (japanese-jisx0208         #x25 #x39)      ; 
+    (korean-ksc5601            #x2B #x39)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30B9 #x3099)
-    (japanese-jisx0208-1978    #x25 #x3A)      ; \e$(@%:\e(B
-    (chinese-gb2312            #x25 #x3A)      ; \e$(A%:\e(B
-    (japanese-jisx0208         #x25 #x3A)      ; \e$(B%:\e(B
-    (korean-ksc5601            #x2B #x3A)      ; \e$(C+:\e(B
+    (japanese-jisx0208-1978    #x25 #x3A)      ; 
+    (chinese-gb2312            #x25 #x3A)      ; 
+    (japanese-jisx0208         #x25 #x3A)      ; 
+    (korean-ksc5601            #x2B #x3A)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x3B)      ; \e$(@%;\e(B
-    (chinese-gb2312            #x25 #x3B)      ; \e$(A%;\e(B
-    (japanese-jisx0208         #x25 #x3B)      ; \e$(B%;\e(B
-    (korean-ksc5601            #x2B #x3B)      ; \e$(C+;\e(B
+    (japanese-jisx0208-1978    #x25 #x3B)      ; 
+    (chinese-gb2312            #x25 #x3B)      ; 
+    (japanese-jisx0208         #x25 #x3B)      ; 
+    (korean-ksc5601            #x2B #x3B)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30BB #x3099)
-    (japanese-jisx0208-1978    #x25 #x3C)      ; \e$(@%<\e(B
-    (chinese-gb2312            #x25 #x3C)      ; \e$(A%<\e(B
-    (japanese-jisx0208         #x25 #x3C)      ; \e$(B%<\e(B
-    (korean-ksc5601            #x2B #x3C)      ; \e$(C+<\e(B
+    (japanese-jisx0208-1978    #x25 #x3C)      ; 
+    (chinese-gb2312            #x25 #x3C)      ; 
+    (japanese-jisx0208         #x25 #x3C)      ; 
+    (korean-ksc5601            #x2B #x3C)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x3D)      ; \e$(@%=\e(B
-    (chinese-gb2312            #x25 #x3D)      ; \e$(A%=\e(B
-    (japanese-jisx0208         #x25 #x3D)      ; \e$(B%=\e(B
-    (korean-ksc5601            #x2B #x3D)      ; \e$(C+=\e(B
+    (japanese-jisx0208-1978    #x25 #x3D)      ; 
+    (chinese-gb2312            #x25 #x3D)      ; 
+    (japanese-jisx0208         #x25 #x3D)      ; 
+    (korean-ksc5601            #x2B #x3D)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30BD #x3099)
-    (japanese-jisx0208-1978    #x25 #x3E)      ; \e$(@%>\e(B
-    (chinese-gb2312            #x25 #x3E)      ; \e$(A%>\e(B
-    (japanese-jisx0208         #x25 #x3E)      ; \e$(B%>\e(B
-    (korean-ksc5601            #x2B #x3E)      ; \e$(C+>\e(B
+    (japanese-jisx0208-1978    #x25 #x3E)      ; 
+    (chinese-gb2312            #x25 #x3E)      ; 
+    (japanese-jisx0208         #x25 #x3E)      ; 
+    (korean-ksc5601            #x2B #x3E)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x3F)      ; \e$(@%?\e(B
-    (chinese-gb2312            #x25 #x3F)      ; \e$(A%?\e(B
-    (japanese-jisx0208         #x25 #x3F)      ; \e$(B%?\e(B
-    (korean-ksc5601            #x2B #x3F)      ; \e$(C+?\e(B
+    (japanese-jisx0208-1978    #x25 #x3F)      ; 
+    (chinese-gb2312            #x25 #x3F)      ; 
+    (japanese-jisx0208         #x25 #x3F)      ; 
+    (korean-ksc5601            #x2B #x3F)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30BF #x3099)
-    (japanese-jisx0208-1978    #x25 #x40)      ; \e$(@%@\e(B
-    (chinese-gb2312            #x25 #x40)      ; \e$(A%@\e(B
-    (japanese-jisx0208         #x25 #x40)      ; \e$(B%@\e(B
-    (korean-ksc5601            #x2B #x40)      ; \e$(C+@\e(B
+    (japanese-jisx0208-1978    #x25 #x40)      ; 
+    (chinese-gb2312            #x25 #x40)      ; 
+    (japanese-jisx0208         #x25 #x40)      ; 
+    (korean-ksc5601            #x2B #x40)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x41)      ; \e$(@%A\e(B
-    (chinese-gb2312            #x25 #x41)      ; \e$(A%A\e(B
-    (japanese-jisx0208         #x25 #x41)      ; \e$(B%A\e(B
-    (korean-ksc5601            #x2B #x41)      ; \e$(C+A\e(B
+    (japanese-jisx0208-1978    #x25 #x41)      ; 
+    (chinese-gb2312            #x25 #x41)      ; 
+    (japanese-jisx0208         #x25 #x41)      ; 
+    (korean-ksc5601            #x2B #x41)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30C1 #x3099)
-    (japanese-jisx0208-1978    #x25 #x42)      ; \e$(@%B\e(B
-    (chinese-gb2312            #x25 #x42)      ; \e$(A%B\e(B
-    (japanese-jisx0208         #x25 #x42)      ; \e$(B%B\e(B
-    (korean-ksc5601            #x2B #x42)      ; \e$(C+B\e(B
+    (japanese-jisx0208-1978    #x25 #x42)      ; 
+    (chinese-gb2312            #x25 #x42)      ; 
+    (japanese-jisx0208         #x25 #x42)      ; 
+    (korean-ksc5601            #x2B #x42)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL TU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x43)      ; \e$(@%C\e(B
-    (chinese-gb2312            #x25 #x43)      ; \e$(A%C\e(B
-    (japanese-jisx0208         #x25 #x43)      ; \e$(B%C\e(B
-    (korean-ksc5601            #x2B #x43)      ; \e$(C+C\e(B
+    (japanese-jisx0208-1978    #x25 #x43)      ; 
+    (chinese-gb2312            #x25 #x43)      ; 
+    (japanese-jisx0208         #x25 #x43)      ; 
+    (korean-ksc5601            #x2B #x43)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x44)      ; \e$(@%D\e(B
-    (chinese-gb2312            #x25 #x44)      ; \e$(A%D\e(B
-    (japanese-jisx0208         #x25 #x44)      ; \e$(B%D\e(B
-    (korean-ksc5601            #x2B #x44)      ; \e$(C+D\e(B
+    (japanese-jisx0208-1978    #x25 #x44)      ; 
+    (chinese-gb2312            #x25 #x44)      ; 
+    (japanese-jisx0208         #x25 #x44)      ; 
+    (korean-ksc5601            #x2B #x44)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30C4 #x3099)
-    (japanese-jisx0208-1978    #x25 #x45)      ; \e$(@%E\e(B
-    (chinese-gb2312            #x25 #x45)      ; \e$(A%E\e(B
-    (japanese-jisx0208         #x25 #x45)      ; \e$(B%E\e(B
-    (korean-ksc5601            #x2B #x45)      ; \e$(C+E\e(B
+    (japanese-jisx0208-1978    #x25 #x45)      ; 
+    (chinese-gb2312            #x25 #x45)      ; 
+    (japanese-jisx0208         #x25 #x45)      ; 
+    (korean-ksc5601            #x2B #x45)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x46)      ; \e$(@%F\e(B
-    (chinese-gb2312            #x25 #x46)      ; \e$(A%F\e(B
-    (japanese-jisx0208         #x25 #x46)      ; \e$(B%F\e(B
-    (korean-ksc5601            #x2B #x46)      ; \e$(C+F\e(B
+    (japanese-jisx0208-1978    #x25 #x46)      ; 
+    (chinese-gb2312            #x25 #x46)      ; 
+    (japanese-jisx0208         #x25 #x46)      ; 
+    (korean-ksc5601            #x2B #x46)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30C6 #x3099)
-    (japanese-jisx0208-1978    #x25 #x47)      ; \e$(@%G\e(B
-    (chinese-gb2312            #x25 #x47)      ; \e$(A%G\e(B
-    (japanese-jisx0208         #x25 #x47)      ; \e$(B%G\e(B
-    (korean-ksc5601            #x2B #x47)      ; \e$(C+G\e(B
+    (japanese-jisx0208-1978    #x25 #x47)      ; 
+    (chinese-gb2312            #x25 #x47)      ; 
+    (japanese-jisx0208         #x25 #x47)      ; 
+    (korean-ksc5601            #x2B #x47)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x48)      ; \e$(@%H\e(B
-    (chinese-gb2312            #x25 #x48)      ; \e$(A%H\e(B
-    (japanese-jisx0208         #x25 #x48)      ; \e$(B%H\e(B
-    (korean-ksc5601            #x2B #x48)      ; \e$(C+H\e(B
+    (japanese-jisx0208-1978    #x25 #x48)      ; 
+    (chinese-gb2312            #x25 #x48)      ; 
+    (japanese-jisx0208         #x25 #x48)      ; 
+    (korean-ksc5601            #x2B #x48)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30C8 #x3099)
-    (japanese-jisx0208-1978    #x25 #x49)      ; \e$(@%I\e(B
-    (chinese-gb2312            #x25 #x49)      ; \e$(A%I\e(B
-    (japanese-jisx0208         #x25 #x49)      ; \e$(B%I\e(B
-    (korean-ksc5601            #x2B #x49)      ; \e$(C+I\e(B
+    (japanese-jisx0208-1978    #x25 #x49)      ; 
+    (chinese-gb2312            #x25 #x49)      ; 
+    (japanese-jisx0208         #x25 #x49)      ; 
+    (korean-ksc5601            #x2B #x49)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x4A)      ; \e$(@%J\e(B
-    (chinese-gb2312            #x25 #x4A)      ; \e$(A%J\e(B
-    (japanese-jisx0208         #x25 #x4A)      ; \e$(B%J\e(B
-    (korean-ksc5601            #x2B #x4A)      ; \e$(C+J\e(B
+    (japanese-jisx0208-1978    #x25 #x4A)      ; 
+    (chinese-gb2312            #x25 #x4A)      ; 
+    (japanese-jisx0208         #x25 #x4A)      ; 
+    (korean-ksc5601            #x2B #x4A)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x4B)      ; \e$(@%K\e(B
-    (chinese-gb2312            #x25 #x4B)      ; \e$(A%K\e(B
-    (japanese-jisx0208         #x25 #x4B)      ; \e$(B%K\e(B
-    (korean-ksc5601            #x2B #x4B)      ; \e$(C+K\e(B
+    (japanese-jisx0208-1978    #x25 #x4B)      ; 
+    (chinese-gb2312            #x25 #x4B)      ; 
+    (japanese-jisx0208         #x25 #x4B)      ; 
+    (korean-ksc5601            #x2B #x4B)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x4C)      ; \e$(@%L\e(B
-    (chinese-gb2312            #x25 #x4C)      ; \e$(A%L\e(B
-    (japanese-jisx0208         #x25 #x4C)      ; \e$(B%L\e(B
-    (korean-ksc5601            #x2B #x4C)      ; \e$(C+L\e(B
+    (japanese-jisx0208-1978    #x25 #x4C)      ; 
+    (chinese-gb2312            #x25 #x4C)      ; 
+    (japanese-jisx0208         #x25 #x4C)      ; 
+    (korean-ksc5601            #x2B #x4C)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x4D)      ; \e$(@%M\e(B
-    (chinese-gb2312            #x25 #x4D)      ; \e$(A%M\e(B
-    (japanese-jisx0208         #x25 #x4D)      ; \e$(B%M\e(B
-    (korean-ksc5601            #x2B #x4D)      ; \e$(C+M\e(B
+    (japanese-jisx0208-1978    #x25 #x4D)      ; 
+    (chinese-gb2312            #x25 #x4D)      ; 
+    (japanese-jisx0208         #x25 #x4D)      ; 
+    (korean-ksc5601            #x2B #x4D)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x4E)      ; \e$(@%N\e(B
-    (chinese-gb2312            #x25 #x4E)      ; \e$(A%N\e(B
-    (japanese-jisx0208         #x25 #x4E)      ; \e$(B%N\e(B
-    (korean-ksc5601            #x2B #x4E)      ; \e$(C+N\e(B
+    (japanese-jisx0208-1978    #x25 #x4E)      ; 
+    (chinese-gb2312            #x25 #x4E)      ; 
+    (japanese-jisx0208         #x25 #x4E)      ; 
+    (korean-ksc5601            #x2B #x4E)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x4F)      ; \e$(@%O\e(B
-    (chinese-gb2312            #x25 #x4F)      ; \e$(A%O\e(B
-    (japanese-jisx0208         #x25 #x4F)      ; \e$(B%O\e(B
-    (korean-ksc5601            #x2B #x4F)      ; \e$(C+O\e(B
+    (japanese-jisx0208-1978    #x25 #x4F)      ; 
+    (chinese-gb2312            #x25 #x4F)      ; 
+    (japanese-jisx0208         #x25 #x4F)      ; 
+    (korean-ksc5601            #x2B #x4F)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30CF #x3099)
-    (japanese-jisx0208-1978    #x25 #x50)      ; \e$(@%P\e(B
-    (chinese-gb2312            #x25 #x50)      ; \e$(A%P\e(B
-    (japanese-jisx0208         #x25 #x50)      ; \e$(B%P\e(B
-    (korean-ksc5601            #x2B #x50)      ; \e$(C+P\e(B
+    (japanese-jisx0208-1978    #x25 #x50)      ; 
+    (chinese-gb2312            #x25 #x50)      ; 
+    (japanese-jisx0208         #x25 #x50)      ; 
+    (korean-ksc5601            #x2B #x50)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30CF #x309A)
-    (japanese-jisx0208-1978    #x25 #x51)      ; \e$(@%Q\e(B
-    (chinese-gb2312            #x25 #x51)      ; \e$(A%Q\e(B
-    (japanese-jisx0208         #x25 #x51)      ; \e$(B%Q\e(B
-    (korean-ksc5601            #x2B #x51)      ; \e$(C+Q\e(B
+    (japanese-jisx0208-1978    #x25 #x51)      ; 
+    (chinese-gb2312            #x25 #x51)      ; 
+    (japanese-jisx0208         #x25 #x51)      ; 
+    (korean-ksc5601            #x2B #x51)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x52)      ; \e$(@%R\e(B
-    (chinese-gb2312            #x25 #x52)      ; \e$(A%R\e(B
-    (japanese-jisx0208         #x25 #x52)      ; \e$(B%R\e(B
-    (korean-ksc5601            #x2B #x52)      ; \e$(C+R\e(B
+    (japanese-jisx0208-1978    #x25 #x52)      ; 
+    (chinese-gb2312            #x25 #x52)      ; 
+    (japanese-jisx0208         #x25 #x52)      ; 
+    (korean-ksc5601            #x2B #x52)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30D2 #x3099)
-    (japanese-jisx0208-1978    #x25 #x53)      ; \e$(@%S\e(B
-    (chinese-gb2312            #x25 #x53)      ; \e$(A%S\e(B
-    (japanese-jisx0208         #x25 #x53)      ; \e$(B%S\e(B
-    (korean-ksc5601            #x2B #x53)      ; \e$(C+S\e(B
+    (japanese-jisx0208-1978    #x25 #x53)      ; 
+    (chinese-gb2312            #x25 #x53)      ; 
+    (japanese-jisx0208         #x25 #x53)      ; 
+    (korean-ksc5601            #x2B #x53)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30D2 #x309A)
-    (japanese-jisx0208-1978    #x25 #x54)      ; \e$(@%T\e(B
-    (chinese-gb2312            #x25 #x54)      ; \e$(A%T\e(B
-    (japanese-jisx0208         #x25 #x54)      ; \e$(B%T\e(B
-    (korean-ksc5601            #x2B #x54)      ; \e$(C+T\e(B
+    (japanese-jisx0208-1978    #x25 #x54)      ; 
+    (chinese-gb2312            #x25 #x54)      ; 
+    (japanese-jisx0208         #x25 #x54)      ; 
+    (korean-ksc5601            #x2B #x54)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x55)      ; \e$(@%U\e(B
-    (chinese-gb2312            #x25 #x55)      ; \e$(A%U\e(B
-    (japanese-jisx0208         #x25 #x55)      ; \e$(B%U\e(B
-    (korean-ksc5601            #x2B #x55)      ; \e$(C+U\e(B
+    (japanese-jisx0208-1978    #x25 #x55)      ; 
+    (chinese-gb2312            #x25 #x55)      ; 
+    (japanese-jisx0208         #x25 #x55)      ; 
+    (korean-ksc5601            #x2B #x55)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30D5 #x3099)
-    (japanese-jisx0208-1978    #x25 #x56)      ; \e$(@%V\e(B
-    (chinese-gb2312            #x25 #x56)      ; \e$(A%V\e(B
-    (japanese-jisx0208         #x25 #x56)      ; \e$(B%V\e(B
-    (korean-ksc5601            #x2B #x56)      ; \e$(C+V\e(B
+    (japanese-jisx0208-1978    #x25 #x56)      ; 
+    (chinese-gb2312            #x25 #x56)      ; 
+    (japanese-jisx0208         #x25 #x56)      ; 
+    (korean-ksc5601            #x2B #x56)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30D5 #x309A)
-    (japanese-jisx0208-1978    #x25 #x57)      ; \e$(@%W\e(B
-    (chinese-gb2312            #x25 #x57)      ; \e$(A%W\e(B
-    (japanese-jisx0208         #x25 #x57)      ; \e$(B%W\e(B
-    (korean-ksc5601            #x2B #x57)      ; \e$(C+W\e(B
+    (japanese-jisx0208-1978    #x25 #x57)      ; 
+    (chinese-gb2312            #x25 #x57)      ; 
+    (japanese-jisx0208         #x25 #x57)      ; 
+    (korean-ksc5601            #x2B #x57)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x58)      ; \e$(@%X\e(B
-    (chinese-gb2312            #x25 #x58)      ; \e$(A%X\e(B
-    (japanese-jisx0208         #x25 #x58)      ; \e$(B%X\e(B
-    (korean-ksc5601            #x2B #x58)      ; \e$(C+X\e(B
+    (japanese-jisx0208-1978    #x25 #x58)      ; 
+    (chinese-gb2312            #x25 #x58)      ; 
+    (japanese-jisx0208         #x25 #x58)      ; 
+    (korean-ksc5601            #x2B #x58)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30D8 #x3099)
-    (japanese-jisx0208-1978    #x25 #x59)      ; \e$(@%Y\e(B
-    (chinese-gb2312            #x25 #x59)      ; \e$(A%Y\e(B
-    (japanese-jisx0208         #x25 #x59)      ; \e$(B%Y\e(B
-    (korean-ksc5601            #x2B #x59)      ; \e$(C+Y\e(B
+    (japanese-jisx0208-1978    #x25 #x59)      ; 
+    (chinese-gb2312            #x25 #x59)      ; 
+    (japanese-jisx0208         #x25 #x59)      ; 
+    (korean-ksc5601            #x2B #x59)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30D8 #x309A)
-    (japanese-jisx0208-1978    #x25 #x5A)      ; \e$(@%Z\e(B
-    (chinese-gb2312            #x25 #x5A)      ; \e$(A%Z\e(B
-    (japanese-jisx0208         #x25 #x5A)      ; \e$(B%Z\e(B
-    (korean-ksc5601            #x2B #x5A)      ; \e$(C+Z\e(B
+    (japanese-jisx0208-1978    #x25 #x5A)      ; 
+    (chinese-gb2312            #x25 #x5A)      ; 
+    (japanese-jisx0208         #x25 #x5A)      ; 
+    (korean-ksc5601            #x2B #x5A)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x5B)      ; \e$(@%[\e(B
-    (chinese-gb2312            #x25 #x5B)      ; \e$(A%[\e(B
-    (japanese-jisx0208         #x25 #x5B)      ; \e$(B%[\e(B
-    (korean-ksc5601            #x2B #x5B)      ; \e$(C+[\e(B
+    (japanese-jisx0208-1978    #x25 #x5B)      ; 
+    (chinese-gb2312            #x25 #x5B)      ; 
+    (japanese-jisx0208         #x25 #x5B)      ; 
+    (korean-ksc5601            #x2B #x5B)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30DB #x3099)
-    (japanese-jisx0208-1978    #x25 #x5C)      ; \e$(@%\\e(B
-    (chinese-gb2312            #x25 #x5C)      ; \e$(A%\\e(B
-    (japanese-jisx0208         #x25 #x5C)      ; \e$(B%\\e(B
-    (korean-ksc5601            #x2B #x5C)      ; \e$(C+\\e(B
+    (japanese-jisx0208-1978    #x25 #x5C)      ; 
+    (chinese-gb2312            #x25 #x5C)      ; 
+    (japanese-jisx0208         #x25 #x5C)      ; 
+    (korean-ksc5601            #x2B #x5C)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30DB #x309A)
-    (japanese-jisx0208-1978    #x25 #x5D)      ; \e$(@%]\e(B
-    (chinese-gb2312            #x25 #x5D)      ; \e$(A%]\e(B
-    (japanese-jisx0208         #x25 #x5D)      ; \e$(B%]\e(B
-    (korean-ksc5601            #x2B #x5D)      ; \e$(C+]\e(B
+    (japanese-jisx0208-1978    #x25 #x5D)      ; 
+    (chinese-gb2312            #x25 #x5D)      ; 
+    (japanese-jisx0208         #x25 #x5D)      ; 
+    (korean-ksc5601            #x2B #x5D)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER MA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x5E)      ; \e$(@%^\e(B
-    (chinese-gb2312            #x25 #x5E)      ; \e$(A%^\e(B
-    (japanese-jisx0208         #x25 #x5E)      ; \e$(B%^\e(B
-    (korean-ksc5601            #x2B #x5E)      ; \e$(C+^\e(B
+    (japanese-jisx0208-1978    #x25 #x5E)      ; 
+    (chinese-gb2312            #x25 #x5E)      ; 
+    (japanese-jisx0208         #x25 #x5E)      ; 
+    (korean-ksc5601            #x2B #x5E)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER MI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x5F)      ; \e$(@%_\e(B
-    (chinese-gb2312            #x25 #x5F)      ; \e$(A%_\e(B
-    (japanese-jisx0208         #x25 #x5F)      ; \e$(B%_\e(B
-    (korean-ksc5601            #x2B #x5F)      ; \e$(C+_\e(B
+    (japanese-jisx0208-1978    #x25 #x5F)      ; 
+    (chinese-gb2312            #x25 #x5F)      ; 
+    (japanese-jisx0208         #x25 #x5F)      ; 
+    (korean-ksc5601            #x2B #x5F)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER MU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x60)      ; \e$(@%`\e(B
-    (chinese-gb2312            #x25 #x60)      ; \e$(A%`\e(B
-    (japanese-jisx0208         #x25 #x60)      ; \e$(B%`\e(B
-    (korean-ksc5601            #x2B #x60)      ; \e$(C+`\e(B
+    (japanese-jisx0208-1978    #x25 #x60)      ; 
+    (chinese-gb2312            #x25 #x60)      ; 
+    (japanese-jisx0208         #x25 #x60)      ; 
+    (korean-ksc5601            #x2B #x60)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ME")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x61)      ; \e$(@%a\e(B
-    (chinese-gb2312            #x25 #x61)      ; \e$(A%a\e(B
-    (japanese-jisx0208         #x25 #x61)      ; \e$(B%a\e(B
-    (korean-ksc5601            #x2B #x61)      ; \e$(C+a\e(B
+    (japanese-jisx0208-1978    #x25 #x61)      ; 
+    (chinese-gb2312            #x25 #x61)      ; 
+    (japanese-jisx0208         #x25 #x61)      ; 
+    (korean-ksc5601            #x2B #x61)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER MO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x62)      ; \e$(@%b\e(B
-    (chinese-gb2312            #x25 #x62)      ; \e$(A%b\e(B
-    (japanese-jisx0208         #x25 #x62)      ; \e$(B%b\e(B
-    (korean-ksc5601            #x2B #x62)      ; \e$(C+b\e(B
+    (japanese-jisx0208-1978    #x25 #x62)      ; 
+    (chinese-gb2312            #x25 #x62)      ; 
+    (japanese-jisx0208         #x25 #x62)      ; 
+    (korean-ksc5601            #x2B #x62)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL YA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x63)      ; \e$(@%c\e(B
-    (chinese-gb2312            #x25 #x63)      ; \e$(A%c\e(B
-    (japanese-jisx0208         #x25 #x63)      ; \e$(B%c\e(B
-    (korean-ksc5601            #x2B #x63)      ; \e$(C+c\e(B
+    (japanese-jisx0208-1978    #x25 #x63)      ; 
+    (chinese-gb2312            #x25 #x63)      ; 
+    (japanese-jisx0208         #x25 #x63)      ; 
+    (korean-ksc5601            #x2B #x63)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER YA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x64)      ; \e$(@%d\e(B
-    (chinese-gb2312            #x25 #x64)      ; \e$(A%d\e(B
-    (japanese-jisx0208         #x25 #x64)      ; \e$(B%d\e(B
-    (korean-ksc5601            #x2B #x64)      ; \e$(C+d\e(B
+    (japanese-jisx0208-1978    #x25 #x64)      ; 
+    (chinese-gb2312            #x25 #x64)      ; 
+    (japanese-jisx0208         #x25 #x64)      ; 
+    (korean-ksc5601            #x2B #x64)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL YU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x65)      ; \e$(@%e\e(B
-    (chinese-gb2312            #x25 #x65)      ; \e$(A%e\e(B
-    (japanese-jisx0208         #x25 #x65)      ; \e$(B%e\e(B
-    (korean-ksc5601            #x2B #x65)      ; \e$(C+e\e(B
+    (japanese-jisx0208-1978    #x25 #x65)      ; 
+    (chinese-gb2312            #x25 #x65)      ; 
+    (japanese-jisx0208         #x25 #x65)      ; 
+    (korean-ksc5601            #x2B #x65)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER YU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x66)      ; \e$(@%f\e(B
-    (chinese-gb2312            #x25 #x66)      ; \e$(A%f\e(B
-    (japanese-jisx0208         #x25 #x66)      ; \e$(B%f\e(B
-    (korean-ksc5601            #x2B #x66)      ; \e$(C+f\e(B
+    (japanese-jisx0208-1978    #x25 #x66)      ; 
+    (chinese-gb2312            #x25 #x66)      ; 
+    (japanese-jisx0208         #x25 #x66)      ; 
+    (korean-ksc5601            #x2B #x66)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL YO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x67)      ; \e$(@%g\e(B
-    (chinese-gb2312            #x25 #x67)      ; \e$(A%g\e(B
-    (japanese-jisx0208         #x25 #x67)      ; \e$(B%g\e(B
-    (korean-ksc5601            #x2B #x67)      ; \e$(C+g\e(B
+    (japanese-jisx0208-1978    #x25 #x67)      ; 
+    (chinese-gb2312            #x25 #x67)      ; 
+    (japanese-jisx0208         #x25 #x67)      ; 
+    (korean-ksc5601            #x2B #x67)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER YO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x68)      ; \e$(@%h\e(B
-    (chinese-gb2312            #x25 #x68)      ; \e$(A%h\e(B
-    (japanese-jisx0208         #x25 #x68)      ; \e$(B%h\e(B
-    (korean-ksc5601            #x2B #x68)      ; \e$(C+h\e(B
+    (japanese-jisx0208-1978    #x25 #x68)      ; 
+    (chinese-gb2312            #x25 #x68)      ; 
+    (japanese-jisx0208         #x25 #x68)      ; 
+    (korean-ksc5601            #x2B #x68)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x69)      ; \e$(@%i\e(B
-    (chinese-gb2312            #x25 #x69)      ; \e$(A%i\e(B
-    (japanese-jisx0208         #x25 #x69)      ; \e$(B%i\e(B
-    (korean-ksc5601            #x2B #x69)      ; \e$(C+i\e(B
+    (japanese-jisx0208-1978    #x25 #x69)      ; 
+    (chinese-gb2312            #x25 #x69)      ; 
+    (japanese-jisx0208         #x25 #x69)      ; 
+    (korean-ksc5601            #x2B #x69)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x6A)      ; \e$(@%j\e(B
-    (chinese-gb2312            #x25 #x6A)      ; \e$(A%j\e(B
-    (japanese-jisx0208         #x25 #x6A)      ; \e$(B%j\e(B
-    (korean-ksc5601            #x2B #x6A)      ; \e$(C+j\e(B
+    (japanese-jisx0208-1978    #x25 #x6A)      ; 
+    (chinese-gb2312            #x25 #x6A)      ; 
+    (japanese-jisx0208         #x25 #x6A)      ; 
+    (korean-ksc5601            #x2B #x6A)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x6B)      ; \e$(@%k\e(B
-    (chinese-gb2312            #x25 #x6B)      ; \e$(A%k\e(B
-    (japanese-jisx0208         #x25 #x6B)      ; \e$(B%k\e(B
-    (korean-ksc5601            #x2B #x6B)      ; \e$(C+k\e(B
+    (japanese-jisx0208-1978    #x25 #x6B)      ; 
+    (chinese-gb2312            #x25 #x6B)      ; 
+    (japanese-jisx0208         #x25 #x6B)      ; 
+    (korean-ksc5601            #x2B #x6B)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x6C)      ; \e$(@%l\e(B
-    (chinese-gb2312            #x25 #x6C)      ; \e$(A%l\e(B
-    (japanese-jisx0208         #x25 #x6C)      ; \e$(B%l\e(B
-    (korean-ksc5601            #x2B #x6C)      ; \e$(C+l\e(B
+    (japanese-jisx0208-1978    #x25 #x6C)      ; 
+    (chinese-gb2312            #x25 #x6C)      ; 
+    (japanese-jisx0208         #x25 #x6C)      ; 
+    (korean-ksc5601            #x2B #x6C)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x6D)      ; \e$(@%m\e(B
-    (chinese-gb2312            #x25 #x6D)      ; \e$(A%m\e(B
-    (japanese-jisx0208         #x25 #x6D)      ; \e$(B%m\e(B
-    (korean-ksc5601            #x2B #x6D)      ; \e$(C+m\e(B
+    (japanese-jisx0208-1978    #x25 #x6D)      ; 
+    (chinese-gb2312            #x25 #x6D)      ; 
+    (japanese-jisx0208         #x25 #x6D)      ; 
+    (korean-ksc5601            #x2B #x6D)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL WA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x6E)      ; \e$(@%n\e(B
-    (chinese-gb2312            #x25 #x6E)      ; \e$(A%n\e(B
-    (japanese-jisx0208         #x25 #x6E)      ; \e$(B%n\e(B
-    (korean-ksc5601            #x2B #x6E)      ; \e$(C+n\e(B
+    (japanese-jisx0208-1978    #x25 #x6E)      ; 
+    (chinese-gb2312            #x25 #x6E)      ; 
+    (japanese-jisx0208         #x25 #x6E)      ; 
+    (korean-ksc5601            #x2B #x6E)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER WA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x6F)      ; \e$(@%o\e(B
-    (chinese-gb2312            #x25 #x6F)      ; \e$(A%o\e(B
-    (japanese-jisx0208         #x25 #x6F)      ; \e$(B%o\e(B
-    (korean-ksc5601            #x2B #x6F)      ; \e$(C+o\e(B
+    (japanese-jisx0208-1978    #x25 #x6F)      ; 
+    (chinese-gb2312            #x25 #x6F)      ; 
+    (japanese-jisx0208         #x25 #x6F)      ; 
+    (korean-ksc5601            #x2B #x6F)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER WI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x70)      ; \e$(@%p\e(B
-    (chinese-gb2312            #x25 #x70)      ; \e$(A%p\e(B
-    (japanese-jisx0208         #x25 #x70)      ; \e$(B%p\e(B
-    (korean-ksc5601            #x2B #x70)      ; \e$(C+p\e(B
+    (japanese-jisx0208-1978    #x25 #x70)      ; 
+    (chinese-gb2312            #x25 #x70)      ; 
+    (japanese-jisx0208         #x25 #x70)      ; 
+    (korean-ksc5601            #x2B #x70)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER WE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x71)      ; \e$(@%q\e(B
-    (chinese-gb2312            #x25 #x71)      ; \e$(A%q\e(B
-    (japanese-jisx0208         #x25 #x71)      ; \e$(B%q\e(B
-    (korean-ksc5601            #x2B #x71)      ; \e$(C+q\e(B
+    (japanese-jisx0208-1978    #x25 #x71)      ; 
+    (chinese-gb2312            #x25 #x71)      ; 
+    (japanese-jisx0208         #x25 #x71)      ; 
+    (korean-ksc5601            #x2B #x71)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER WO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x72)      ; \e$(@%r\e(B
-    (chinese-gb2312            #x25 #x72)      ; \e$(A%r\e(B
-    (japanese-jisx0208         #x25 #x72)      ; \e$(B%r\e(B
-    (korean-ksc5601            #x2B #x72)      ; \e$(C+r\e(B
+    (japanese-jisx0208-1978    #x25 #x72)      ; 
+    (chinese-gb2312            #x25 #x72)      ; 
+    (japanese-jisx0208         #x25 #x72)      ; 
+    (korean-ksc5601            #x2B #x72)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER N")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x73)      ; \e$(@%s\e(B
-    (chinese-gb2312            #x25 #x73)      ; \e$(A%s\e(B
-    (japanese-jisx0208         #x25 #x73)      ; \e$(B%s\e(B
-    (korean-ksc5601            #x2B #x73)      ; \e$(C+s\e(B
+    (japanese-jisx0208-1978    #x25 #x73)      ; 
+    (chinese-gb2312            #x25 #x73)      ; 
+    (japanese-jisx0208         #x25 #x73)      ; 
+    (korean-ksc5601            #x2B #x73)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER VU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30A6 #x3099)
-    (japanese-jisx0208-1978    #x25 #x74)      ; \e$(@%t\e(B
-    (chinese-gb2312            #x25 #x74)      ; \e$(A%t\e(B
-    (japanese-jisx0208         #x25 #x74)      ; \e$(B%t\e(B
-    (korean-ksc5601            #x2B #x74)      ; \e$(C+t\e(B
+    (japanese-jisx0208-1978    #x25 #x74)      ; 
+    (chinese-gb2312            #x25 #x74)      ; 
+    (japanese-jisx0208         #x25 #x74)      ; 
+    (korean-ksc5601            #x2B #x74)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL KA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x75)      ; \e$(@%u\e(B
-    (chinese-gb2312            #x25 #x75)      ; \e$(A%u\e(B
-    (japanese-jisx0208         #x25 #x75)      ; \e$(B%u\e(B
-    (korean-ksc5601            #x2B #x75)      ; \e$(C+u\e(B
+    (japanese-jisx0208-1978    #x25 #x75)      ; 
+    (chinese-gb2312            #x25 #x75)      ; 
+    (japanese-jisx0208         #x25 #x75)      ; 
+    (korean-ksc5601            #x2B #x75)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL KE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x25 #x76)      ; \e$(@%v\e(B
-    (chinese-gb2312            #x25 #x76)      ; \e$(A%v\e(B
-    (japanese-jisx0208         #x25 #x76)      ; \e$(B%v\e(B
-    (korean-ksc5601            #x2B #x76)      ; \e$(C+v\e(B
+    (japanese-jisx0208-1978    #x25 #x76)      ; 
+    (chinese-gb2312            #x25 #x76)      ; 
+    (japanese-jisx0208         #x25 #x76)      ; 
+    (korean-ksc5601            #x2B #x76)      ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER VA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30EF #x3099)
+    (japanese-jisx0213-1       #x27 #x72)      ; ヷ
     ))
 (define-char
   '((name              . "KATAKANA LETTER VI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30F0 #x3099)
+    (japanese-jisx0213-1       #x27 #x73)      ; ヸ
     ))
 (define-char
   '((name              . "KATAKANA LETTER VE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30F1 #x3099)
+    (japanese-jisx0213-1       #x27 #x74)      ; ヹ
     ))
 (define-char
   '((name              . "KATAKANA LETTER VO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30F2 #x3099)
+    (japanese-jisx0213-1       #x27 #x75)      ; ヺ
     ))
 (define-char
   '((name              . "KATAKANA MIDDLE DOT")
     (general-category  punctuation connector) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x26)      ; \e$(@!&\e(B
-    (chinese-gb2312            #x21 #x24)      ; \e$(A!$\e(B
-    (japanese-jisx0208         #x21 #x26)      ; \e$(B!&\e(B
+    (japanese-jisx0208-1978    #x21 #x26)      ; 
+    (chinese-gb2312            #x21 #x24)      ; 
+    (japanese-jisx0208         #x21 #x26)      ; 
     ))
 (define-char
   '((name              . "KATAKANA-HIRAGANA PROLONGED SOUND MARK")
     (general-category  letter modifier) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x3C)      ; \e$(@!<\e(B
-    (japanese-jisx0208         #x21 #x3C)      ; \e$(B!<\e(B
+    (japanese-jisx0208-1978    #x21 #x3C)      ; 
+    (japanese-jisx0208         #x21 #x3C)      ; 
     ))
 (define-char
   '((name              . "KATAKANA ITERATION MARK")
     (general-category  letter modifier) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x33)      ; \e$(@!3\e(B
-    (japanese-jisx0208         #x21 #x33)      ; \e$(B!3\e(B
+    (japanese-jisx0208-1978    #x21 #x33)      ; 
+    (japanese-jisx0208         #x21 #x33)      ; 
     ))
 (define-char
   '((name              . "KATAKANA VOICED ITERATION MARK")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30FD #x3099)
-    (japanese-jisx0208-1978    #x21 #x34)      ; \e$(@!4\e(B
-    (japanese-jisx0208         #x21 #x34)      ; \e$(B!4\e(B
+    (japanese-jisx0208-1978    #x21 #x34)      ; 
+    (japanese-jisx0208         #x21 #x34)      ; 
     ))