Sync up with r21-4-14-chise-0_21-3.
[chise/xemacs-chise.git] / lisp / utf-2000 / u030A0-Katakana.el
index db81cca..8dc59f7 100644 (file)
+;; -*- coding: utf-8-mcs -*-
+(define-char
+  '((name              . "KATAKANA-HIRAGANA DOUBLE HYPHEN")
+    (=ucs              . #x30A0)       ; ゠
+    (=jis-x0213-1-2000 . #x237B)       ; 
+    ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL A")
-    (ucs               . #x30A1)
     (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
+    (=ucs              . #x30A1)       ; ァ
+    (mojikyo           . 062401)       ; 
+    (=ks-x1001         . #x2B21)       ; 
+    (=gb2312           . #x2521)       ; 
+    (=jis-x0208                . #x2521)       ; 
+    (=big5-eten                . #xC77B)       ; 
+    (=jef-china3       . #x7DCF)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER A")
-    (ucs               . #x30A2)
     (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
+    (=ucs              . #x30A2)       ; ア
+    (mojikyo           . 062402)       ; 
+    (=ks-x1001         . #x2B22)       ; 
+    (=gb2312           . #x2522)       ; 
+    (=jis-x0208                . #x2522)       ; 
+    (=big5-eten                . #xC77C)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL I")
-    (ucs               . #x30A3)
     (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
+    (=ucs              . #x30A3)       ; ィ
+    (mojikyo           . 062403)       ; 
+    (=ks-x1001         . #x2B23)       ; 
+    (=gb2312           . #x2523)       ; 
+    (=jis-x0208                . #x2523)       ; 
+    (=big5-eten                . #xC77D)       ; 
+    (=jef-china3       . #x7DD0)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER I")
-    (ucs               . #x30A4)
     (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
+    (=ucs              . #x30A4)       ; イ
+    (mojikyo           . 062404)       ; 
+    (=ks-x1001         . #x2B24)       ; 
+    (=gb2312           . #x2524)       ; 
+    (=jis-x0208                . #x2524)       ; 
+    (=big5-eten                . #xC77E)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL U")
-    (ucs               . #x30A5)
     (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
+    (=ucs              . #x30A5)       ; ゥ
+    (mojikyo           . 062405)       ; 
+    (=ks-x1001         . #x2B25)       ; 
+    (=gb2312           . #x2525)       ; 
+    (=jis-x0208                . #x2525)       ; 
+    (=big5-eten                . #xC7A1)       ; 
+    (=jef-china3       . #x7DD1)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER U")
-    (ucs               . #x30A6)
     (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
+    (=ucs              . #x30A6)       ; ウ
+    (mojikyo           . 062406)       ; 
+    (=ks-x1001         . #x2B26)       ; 
+    (=gb2312           . #x2526)       ; 
+    (=jis-x0208                . #x2526)       ; 
+    (=big5-eten                . #xC7A2)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL E")
-    (ucs               . #x30A7)
     (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
+    (=ucs              . #x30A7)       ; ェ
+    (mojikyo           . 062407)       ; 
+    (=ks-x1001         . #x2B27)       ; 
+    (=gb2312           . #x2527)       ; 
+    (=jis-x0208                . #x2527)       ; 
+    (=big5-eten                . #xC7A3)       ; 
+    (=jef-china3       . #x7DD2)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER E")
-    (ucs               . #x30A8)
     (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
+    (=ucs              . #x30A8)       ; エ
+    (mojikyo           . 062408)       ; 
+    (=ks-x1001         . #x2B28)       ; 
+    (=gb2312           . #x2528)       ; 
+    (=jis-x0208                . #x2528)       ; 
+    (=big5-eten                . #xC7A4)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL O")
-    (ucs               . #x30A9)
     (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
+    (=ucs              . #x30A9)       ; ォ
+    (mojikyo           . 062409)       ; 
+    (=ks-x1001         . #x2B29)       ; 
+    (=gb2312           . #x2529)       ; 
+    (=jis-x0208                . #x2529)       ; 
+    (=big5-eten                . #xC7A5)       ; 
+    (=jef-china3       . #x7DD3)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER O")
-    (ucs               . #x30AA)
     (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
+    (=ucs              . #x30AA)       ; オ
+    (mojikyo           . 062410)       ; 
+    (=ks-x1001         . #x2B2A)       ; 
+    (=gb2312           . #x252A)       ; 
+    (=jis-x0208                . #x252A)       ; 
+    (=big5-eten                . #xC7A6)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KA")
-    (ucs               . #x30AB)
     (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
+    (=ucs              . #x30AB)       ; カ
+    (mojikyo           . 062411)       ; 
+    (=ks-x1001         . #x2B2B)       ; 
+    (=gb2312           . #x252B)       ; 
+    (=jis-x0208                . #x252B)       ; 
+    (=big5-eten                . #xC7A7)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GA")
-    (ucs               . #x30AC)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30AC)       ; ガ
+    (mojikyo           . 062412)       ; 
+    (=ks-x1001         . #x2B2C)       ; 
+    (=gb2312           . #x252C)       ; 
+    (=jis-x0208                . #x252C)       ; 
+    (=big5-eten                . #xC7A8)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KI")
-    (ucs               . #x30AD)
     (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
+    (=ucs              . #x30AD)       ; キ
+    (mojikyo           . 062413)       ; 
+    (=ks-x1001         . #x2B2D)       ; 
+    (=gb2312           . #x252D)       ; 
+    (=jis-x0208                . #x252D)       ; 
+    (=big5-eten                . #xC7A9)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GI")
-    (ucs               . #x30AE)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30AE)       ; ギ
+    (mojikyo           . 062414)       ; 
+    (=ks-x1001         . #x2B2E)       ; 
+    (=gb2312           . #x252E)       ; 
+    (=jis-x0208                . #x252E)       ; 
+    (=big5-eten                . #xC7AA)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KU")
-    (ucs               . #x30AF)
     (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
+    (=ucs              . #x30AF)       ; ク
+    (mojikyo           . 062415)       ; 
+    (=ks-x1001         . #x2B2F)       ; 
+    (=gb2312           . #x252F)       ; 
+    (=jis-x0208                . #x252F)       ; 
+    (=big5-eten                . #xC7AB)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GU")
-    (ucs               . #x30B0)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30B0)       ; グ
+    (mojikyo           . 062416)       ; 
+    (=ks-x1001         . #x2B30)       ; 
+    (=gb2312           . #x2530)       ; 
+    (=jis-x0208                . #x2530)       ; 
+    (=big5-eten                . #xC7AC)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KE")
-    (ucs               . #x30B1)
     (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
+    (=ucs              . #x30B1)       ; ケ
+    (mojikyo           . 062417)       ; 
+    (=ks-x1001         . #x2B31)       ; 
+    (=gb2312           . #x2531)       ; 
+    (=jis-x0208                . #x2531)       ; 
+    (=big5-eten                . #xC7AD)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GE")
-    (ucs               . #x30B2)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30B2)       ; ゲ
+    (mojikyo           . 062418)       ; 
+    (=ks-x1001         . #x2B32)       ; 
+    (=gb2312           . #x2532)       ; 
+    (=jis-x0208                . #x2532)       ; 
+    (=big5-eten                . #xC7AE)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER KO")
-    (ucs               . #x30B3)
     (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
+    (=ucs              . #x30B3)       ; コ
+    (mojikyo           . 062419)       ; 
+    (=ks-x1001         . #x2B33)       ; 
+    (=gb2312           . #x2533)       ; 
+    (=jis-x0208                . #x2533)       ; 
+    (=big5-eten                . #xC7AF)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER GO")
-    (ucs               . #x30B4)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30B4)       ; ゴ
+    (mojikyo           . 062420)       ; 
+    (=ks-x1001         . #x2B34)       ; 
+    (=gb2312           . #x2534)       ; 
+    (=jis-x0208                . #x2534)       ; 
+    (=big5-eten                . #xC7B0)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SA")
-    (ucs               . #x30B5)
     (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
+    (=ucs              . #x30B5)       ; サ
+    (mojikyo           . 062421)       ; 
+    (=ks-x1001         . #x2B35)       ; 
+    (=gb2312           . #x2535)       ; 
+    (=jis-x0208                . #x2535)       ; 
+    (=big5-eten                . #xC7B1)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZA")
-    (ucs               . #x30B6)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30B6)       ; ザ
+    (mojikyo           . 062422)       ; 
+    (=ks-x1001         . #x2B36)       ; 
+    (=gb2312           . #x2536)       ; 
+    (=jis-x0208                . #x2536)       ; 
+    (=big5-eten                . #xC7B2)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SI")
-    (ucs               . #x30B7)
     (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
+    (=ucs              . #x30B7)       ; シ
+    (mojikyo           . 062423)       ; 
+    (=ks-x1001         . #x2B37)       ; 
+    (=gb2312           . #x2537)       ; 
+    (=jis-x0208                . #x2537)       ; 
+    (=big5-eten                . #xC7B3)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZI")
-    (ucs               . #x30B8)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30B8)       ; ジ
+    (mojikyo           . 062424)       ; 
+    (=ks-x1001         . #x2B38)       ; 
+    (=gb2312           . #x2538)       ; 
+    (=jis-x0208                . #x2538)       ; 
+    (=big5-eten                . #xC7B4)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SU")
-    (ucs               . #x30B9)
     (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
+    (=ucs              . #x30B9)       ; ス
+    (mojikyo           . 062425)       ; 
+    (=ks-x1001         . #x2B39)       ; 
+    (=gb2312           . #x2539)       ; 
+    (=jis-x0208                . #x2539)       ; 
+    (=big5-eten                . #xC7B5)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZU")
-    (ucs               . #x30BA)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30BA)       ; ズ
+    (mojikyo           . 062426)       ; 
+    (=ks-x1001         . #x2B3A)       ; 
+    (=gb2312           . #x253A)       ; 
+    (=jis-x0208                . #x253A)       ; 
+    (=big5-eten                . #xC7B6)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SE")
-    (ucs               . #x30BB)
     (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
+    (=ucs              . #x30BB)       ; セ
+    (mojikyo           . 062427)       ; 
+    (=ks-x1001         . #x2B3B)       ; 
+    (=gb2312           . #x253B)       ; 
+    (=jis-x0208                . #x253B)       ; 
+    (=big5-eten                . #xC7B7)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZE")
-    (ucs               . #x30BC)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30BC)       ; ゼ
+    (mojikyo           . 062428)       ; 
+    (=ks-x1001         . #x2B3C)       ; 
+    (=gb2312           . #x253C)       ; 
+    (=jis-x0208                . #x253C)       ; 
+    (=big5-eten                . #xC7B8)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SO")
-    (ucs               . #x30BD)
     (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
+    (=ucs              . #x30BD)       ; ソ
+    (mojikyo           . 062429)       ; 
+    (=ks-x1001         . #x2B3D)       ; 
+    (=gb2312           . #x253D)       ; 
+    (=jis-x0208                . #x253D)       ; 
+    (=big5-eten                . #xC7B9)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ZO")
-    (ucs               . #x30BE)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30BE)       ; ゾ
+    (mojikyo           . 062430)       ; 
+    (=ks-x1001         . #x2B3E)       ; 
+    (=gb2312           . #x253E)       ; 
+    (=jis-x0208                . #x253E)       ; 
+    (=big5-eten                . #xC7BA)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TA")
-    (ucs               . #x30BF)
     (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
+    (=ucs              . #x30BF)       ; タ
+    (mojikyo           . 062431)       ; 
+    (=ks-x1001         . #x2B3F)       ; 
+    (=gb2312           . #x253F)       ; 
+    (=jis-x0208                . #x253F)       ; 
+    (=big5-eten                . #xC7BB)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DA")
-    (ucs               . #x30C0)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30C0)       ; ダ
+    (mojikyo           . 062432)       ; 
+    (=ks-x1001         . #x2B40)       ; 
+    (=gb2312           . #x2540)       ; 
+    (=jis-x0208                . #x2540)       ; 
+    (=big5-eten                . #xC7BC)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TI")
-    (ucs               . #x30C1)
     (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
+    (=ucs              . #x30C1)       ; チ
+    (mojikyo           . 062433)       ; 
+    (=ks-x1001         . #x2B41)       ; 
+    (=gb2312           . #x2541)       ; 
+    (=jis-x0208                . #x2541)       ; 
+    (=big5-eten                . #xC7BD)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DI")
-    (ucs               . #x30C2)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30C2)       ; ヂ
+    (mojikyo           . 062434)       ; 
+    (=ks-x1001         . #x2B42)       ; 
+    (=gb2312           . #x2542)       ; 
+    (=jis-x0208                . #x2542)       ; 
+    (=big5-eten                . #xC7BE)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL TU")
-    (ucs               . #x30C3)
     (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
+    (=ucs              . #x30C3)       ; ッ
+    (mojikyo           . 062435)       ; 
+    (=ks-x1001         . #x2B43)       ; 
+    (=gb2312           . #x2543)       ; 
+    (=jis-x0208                . #x2543)       ; 
+    (=big5-eten                . #xC7BF)       ; 
+    (=jef-china3       . #x7DD4)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TU")
-    (ucs               . #x30C4)
     (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
+    (=ucs              . #x30C4)       ; ツ
+    (mojikyo           . 062436)       ; 
+    (=ks-x1001         . #x2B44)       ; 
+    (=gb2312           . #x2544)       ; 
+    (=jis-x0208                . #x2544)       ; 
+    (=big5-eten                . #xC7C0)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DU")
-    (ucs               . #x30C5)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30C5)       ; ヅ
+    (mojikyo           . 062437)       ; 
+    (=ks-x1001         . #x2B45)       ; 
+    (=gb2312           . #x2545)       ; 
+    (=jis-x0208                . #x2545)       ; 
+    (=big5-eten                . #xC7C1)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TE")
-    (ucs               . #x30C6)
     (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
+    (=ucs              . #x30C6)       ; テ
+    (mojikyo           . 062438)       ; 
+    (=ks-x1001         . #x2B46)       ; 
+    (=gb2312           . #x2546)       ; 
+    (=jis-x0208                . #x2546)       ; 
+    (=big5-eten                . #xC7C2)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DE")
-    (ucs               . #x30C7)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30C7)       ; デ
+    (mojikyo           . 062439)       ; 
+    (=ks-x1001         . #x2B47)       ; 
+    (=gb2312           . #x2547)       ; 
+    (=jis-x0208                . #x2547)       ; 
+    (=big5-eten                . #xC7C3)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER TO")
-    (ucs               . #x30C8)
     (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
+    (=ucs              . #x30C8)       ; ト
+    (mojikyo           . 062440)       ; 
+    (=ks-x1001         . #x2B48)       ; 
+    (=gb2312           . #x2548)       ; 
+    (=jis-x0208                . #x2548)       ; 
+    (=big5-eten                . #xC7C4)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER DO")
-    (ucs               . #x30C9)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30C9)       ; ド
+    (mojikyo           . 062441)       ; 
+    (=ks-x1001         . #x2B49)       ; 
+    (=gb2312           . #x2549)       ; 
+    (=jis-x0208                . #x2549)       ; 
+    (=big5-eten                . #xC7C5)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NA")
-    (ucs               . #x30CA)
     (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
+    (=ucs              . #x30CA)       ; ナ
+    (mojikyo           . 062442)       ; 
+    (=ks-x1001         . #x2B4A)       ; 
+    (=gb2312           . #x254A)       ; 
+    (=jis-x0208                . #x254A)       ; 
+    (=big5-eten                . #xC7C6)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NI")
-    (ucs               . #x30CB)
     (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
+    (=ucs              . #x30CB)       ; ニ
+    (mojikyo           . 062443)       ; 
+    (=ks-x1001         . #x2B4B)       ; 
+    (=gb2312           . #x254B)       ; 
+    (=jis-x0208                . #x254B)       ; 
+    (=big5-eten                . #xC7C7)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NU")
-    (ucs               . #x30CC)
     (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
+    (=ucs              . #x30CC)       ; ヌ
+    (mojikyo           . 062444)       ; 
+    (=ks-x1001         . #x2B4C)       ; 
+    (=gb2312           . #x254C)       ; 
+    (=jis-x0208                . #x254C)       ; 
+    (=big5-eten                . #xC7C8)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NE")
-    (ucs               . #x30CD)
     (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
+    (=ucs              . #x30CD)       ; ネ
+    (mojikyo           . 062445)       ; 
+    (=ks-x1001         . #x2B4D)       ; 
+    (=gb2312           . #x254D)       ; 
+    (=jis-x0208                . #x254D)       ; 
+    (=big5-eten                . #xC7C9)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER NO")
-    (ucs               . #x30CE)
     (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
+    (=ucs              . #x30CE)       ; ノ
+    (mojikyo           . 062446)       ; 
+    (=ks-x1001         . #x2B4E)       ; 
+    (=gb2312           . #x254E)       ; 
+    (=jis-x0208                . #x254E)       ; 
+    (=big5-eten                . #xC7CA)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HA")
-    (ucs               . #x30CF)
     (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
+    (=ucs              . #x30CF)       ; ハ
+    (mojikyo           . 062447)       ; 
+    (=ks-x1001         . #x2B4F)       ; 
+    (=gb2312           . #x254F)       ; 
+    (=jis-x0208                . #x254F)       ; 
+    (=big5-eten                . #xC7CB)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BA")
-    (ucs               . #x30D0)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30D0)       ; バ
+    (mojikyo           . 062448)       ; 
+    (=ks-x1001         . #x2B50)       ; 
+    (=gb2312           . #x2550)       ; 
+    (=jis-x0208                . #x2550)       ; 
+    (=big5-eten                . #xC7CC)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PA")
-    (ucs               . #x30D1)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30D1)       ; パ
+    (mojikyo           . 062449)       ; 
+    (=ks-x1001         . #x2B51)       ; 
+    (=gb2312           . #x2551)       ; 
+    (=jis-x0208                . #x2551)       ; 
+    (=big5-eten                . #xC7CD)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HI")
-    (ucs               . #x30D2)
     (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
+    (=ucs              . #x30D2)       ; ヒ
+    (mojikyo           . 062450)       ; 
+    (=ks-x1001         . #x2B52)       ; 
+    (=gb2312           . #x2552)       ; 
+    (=jis-x0208                . #x2552)       ; 
+    (=big5-eten                . #xC7CE)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BI")
-    (ucs               . #x30D3)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30D3)       ; ビ
+    (mojikyo           . 062451)       ; 
+    (=ks-x1001         . #x2B53)       ; 
+    (=gb2312           . #x2553)       ; 
+    (=jis-x0208                . #x2553)       ; 
+    (=big5-eten                . #xC7CF)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PI")
-    (ucs               . #x30D4)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30D4)       ; ピ
+    (mojikyo           . 062452)       ; 
+    (=ks-x1001         . #x2B54)       ; 
+    (=gb2312           . #x2554)       ; 
+    (=jis-x0208                . #x2554)       ; 
+    (=big5-eten                . #xC7D0)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HU")
-    (ucs               . #x30D5)
     (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
+    (=ucs              . #x30D5)       ; フ
+    (mojikyo           . 062453)       ; 
+    (=ks-x1001         . #x2B55)       ; 
+    (=gb2312           . #x2555)       ; 
+    (=jis-x0208                . #x2555)       ; 
+    (=big5-eten                . #xC7D1)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BU")
-    (ucs               . #x30D6)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30D6)       ; ブ
+    (mojikyo           . 062454)       ; 
+    (=ks-x1001         . #x2B56)       ; 
+    (=gb2312           . #x2556)       ; 
+    (=jis-x0208                . #x2556)       ; 
+    (=big5-eten                . #xC7D2)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PU")
-    (ucs               . #x30D7)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30D7)       ; プ
+    (mojikyo           . 062455)       ; 
+    (=ks-x1001         . #x2B57)       ; 
+    (=gb2312           . #x2557)       ; 
+    (=jis-x0208                . #x2557)       ; 
+    (=big5-eten                . #xC7D3)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HE")
-    (ucs               . #x30D8)
     (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
+    (=ucs              . #x30D8)       ; ヘ
+    (mojikyo           . 062456)       ; 
+    (=ks-x1001         . #x2B58)       ; 
+    (=gb2312           . #x2558)       ; 
+    (=jis-x0208                . #x2558)       ; 
+    (=big5-eten                . #xC7D4)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BE")
-    (ucs               . #x30D9)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30D9)       ; ベ
+    (mojikyo           . 062457)       ; 
+    (=ks-x1001         . #x2B59)       ; 
+    (=gb2312           . #x2559)       ; 
+    (=jis-x0208                . #x2559)       ; 
+    (=big5-eten                . #xC7D5)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PE")
-    (ucs               . #x30DA)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30DA)       ; ペ
+    (mojikyo           . 062458)       ; 
+    (=ks-x1001         . #x2B5A)       ; 
+    (=gb2312           . #x255A)       ; 
+    (=jis-x0208                . #x255A)       ; 
+    (=big5-eten                . #xC7D6)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER HO")
-    (ucs               . #x30DB)
     (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
+    (=ucs              . #x30DB)       ; ホ
+    (mojikyo           . 062459)       ; 
+    (=ks-x1001         . #x2B5B)       ; 
+    (=gb2312           . #x255B)       ; 
+    (=jis-x0208                . #x255B)       ; 
+    (=big5-eten                . #xC7D7)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER BO")
-    (ucs               . #x30DC)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30DC)       ; ボ
+    (mojikyo           . 062460)       ; 
+    (=ks-x1001         . #x2B5C)       ; 
+    (=gb2312           . #x255C)       ; 
+    (=jis-x0208                . #x255C)       ; 
+    (=big5-eten                . #xC7D8)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER PO")
-    (ucs               . #x30DD)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30DD)       ; ポ
+    (mojikyo           . 062461)       ; 
+    (=ks-x1001         . #x2B5D)       ; 
+    (=gb2312           . #x255D)       ; 
+    (=jis-x0208                . #x255D)       ; 
+    (=big5-eten                . #xC7D9)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER MA")
-    (ucs               . #x30DE)
     (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
+    (=ucs              . #x30DE)       ; マ
+    (mojikyo           . 062462)       ; 
+    (=ks-x1001         . #x2B5E)       ; 
+    (=gb2312           . #x255E)       ; 
+    (=jis-x0208                . #x255E)       ; 
+    (=big5-eten                . #xC7DA)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER MI")
-    (ucs               . #x30DF)
     (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
+    (=ucs              . #x30DF)       ; ミ
+    (mojikyo           . 062463)       ; 
+    (=ks-x1001         . #x2B5F)       ; 
+    (=gb2312           . #x255F)       ; 
+    (=jis-x0208                . #x255F)       ; 
+    (=big5-eten                . #xC7DB)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER MU")
-    (ucs               . #x30E0)
     (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
+    (=ucs              . #x30E0)       ; ム
+    (mojikyo           . 062464)       ; 
+    (=ks-x1001         . #x2B60)       ; 
+    (=gb2312           . #x2560)       ; 
+    (=jis-x0208                . #x2560)       ; 
+    (=big5-eten                . #xC7DC)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER ME")
-    (ucs               . #x30E1)
     (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
+    (=ucs              . #x30E1)       ; メ
+    (mojikyo           . 062465)       ; 
+    (=ks-x1001         . #x2B61)       ; 
+    (=gb2312           . #x2561)       ; 
+    (=jis-x0208                . #x2561)       ; 
+    (=big5-eten                . #xC7DD)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER MO")
-    (ucs               . #x30E2)
     (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
+    (=ucs              . #x30E2)       ; モ
+    (mojikyo           . 062466)       ; 
+    (=ks-x1001         . #x2B62)       ; 
+    (=gb2312           . #x2562)       ; 
+    (=jis-x0208                . #x2562)       ; 
+    (=big5-eten                . #xC7DE)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL YA")
-    (ucs               . #x30E3)
     (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
+    (=ucs              . #x30E3)       ; ャ
+    (mojikyo           . 062467)       ; 
+    (=ks-x1001         . #x2B63)       ; 
+    (=gb2312           . #x2563)       ; 
+    (=jis-x0208                . #x2563)       ; 
+    (=big5-eten                . #xC7DF)       ; 
+    (=jef-china3       . #x7DD5)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER YA")
-    (ucs               . #x30E4)
     (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
+    (=ucs              . #x30E4)       ; ヤ
+    (mojikyo           . 062468)       ; 
+    (=ks-x1001         . #x2B64)       ; 
+    (=gb2312           . #x2564)       ; 
+    (=jis-x0208                . #x2564)       ; 
+    (=big5-eten                . #xC7E0)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL YU")
-    (ucs               . #x30E5)
     (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
+    (=ucs              . #x30E5)       ; ュ
+    (mojikyo           . 062469)       ; 
+    (=ks-x1001         . #x2B65)       ; 
+    (=gb2312           . #x2565)       ; 
+    (=jis-x0208                . #x2565)       ; 
+    (=big5-eten                . #xC7E1)       ; 
+    (=jef-china3       . #x7DD6)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER YU")
-    (ucs               . #x30E6)
     (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
+    (=ucs              . #x30E6)       ; ユ
+    (mojikyo           . 062470)       ; 
+    (=ks-x1001         . #x2B66)       ; 
+    (=gb2312           . #x2566)       ; 
+    (=jis-x0208                . #x2566)       ; 
+    (=big5-eten                . #xC7E2)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL YO")
-    (ucs               . #x30E7)
     (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
+    (=ucs              . #x30E7)       ; ョ
+    (mojikyo           . 062471)       ; 
+    (=ks-x1001         . #x2B67)       ; 
+    (=gb2312           . #x2567)       ; 
+    (=jis-x0208                . #x2567)       ; 
+    (=big5-eten                . #xC7E3)       ; 
+    (=jef-china3       . #x7DD7)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER YO")
-    (ucs               . #x30E8)
     (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
+    (=ucs              . #x30E8)       ; ヨ
+    (mojikyo           . 062472)       ; 
+    (=ks-x1001         . #x2B68)       ; 
+    (=gb2312           . #x2568)       ; 
+    (=jis-x0208                . #x2568)       ; 
+    (=big5-eten                . #xC7E4)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RA")
-    (ucs               . #x30E9)
     (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
+    (=ucs              . #x30E9)       ; ラ
+    (mojikyo           . 062473)       ; 
+    (=ks-x1001         . #x2B69)       ; 
+    (=gb2312           . #x2569)       ; 
+    (=jis-x0208                . #x2569)       ; 
+    (=big5-eten                . #xC7E5)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RI")
-    (ucs               . #x30EA)
     (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
+    (=ucs              . #x30EA)       ; リ
+    (mojikyo           . 062474)       ; 
+    (=ks-x1001         . #x2B6A)       ; 
+    (=gb2312           . #x256A)       ; 
+    (=jis-x0208                . #x256A)       ; 
+    (=big5-eten                . #xC7E6)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RU")
-    (ucs               . #x30EB)
     (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
+    (=ucs              . #x30EB)       ; ル
+    (mojikyo           . 062475)       ; 
+    (=ks-x1001         . #x2B6B)       ; 
+    (=gb2312           . #x256B)       ; 
+    (=jis-x0208                . #x256B)       ; 
+    (=big5-eten                . #xC7E7)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RE")
-    (ucs               . #x30EC)
     (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
+    (=ucs              . #x30EC)       ; レ
+    (mojikyo           . 062476)       ; 
+    (=ks-x1001         . #x2B6C)       ; 
+    (=gb2312           . #x256C)       ; 
+    (=jis-x0208                . #x256C)       ; 
+    (=big5-eten                . #xC7E8)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER RO")
-    (ucs               . #x30ED)
     (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
+    (=ucs              . #x30ED)       ; ロ
+    (mojikyo           . 062477)       ; 
+    (=ks-x1001         . #x2B6D)       ; 
+    (=gb2312           . #x256D)       ; 
+    (=jis-x0208                . #x256D)       ; 
+    (=big5-eten                . #xC7E9)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL WA")
-    (ucs               . #x30EE)
     (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
+    (=ucs              . #x30EE)       ; ヮ
+    (mojikyo           . 062478)       ; 
+    (=ks-x1001         . #x2B6E)       ; 
+    (=gb2312           . #x256E)       ; 
+    (=jis-x0208                . #x256E)       ; 
+    (=big5-eten                . #xC7EA)       ; 
+    (=jef-china3       . #x7DD8)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER WA")
-    (ucs               . #x30EF)
     (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
+    (=ucs              . #x30EF)       ; ワ
+    (mojikyo           . 062479)       ; 
+    (=ks-x1001         . #x2B6F)       ; 
+    (=gb2312           . #x256F)       ; 
+    (=jis-x0208                . #x256F)       ; 
+    (=big5-eten                . #xC7EB)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER WI")
-    (ucs               . #x30F0)
     (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
+    (=ucs              . #x30F0)       ; ヰ
+    (mojikyo           . 062480)       ; 
+    (=ks-x1001         . #x2B70)       ; 
+    (=gb2312           . #x2570)       ; 
+    (=jis-x0208                . #x2570)       ; 
+    (=big5-eten                . #xC7EC)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER WE")
-    (ucs               . #x30F1)
     (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
+    (=ucs              . #x30F1)       ; ヱ
+    (mojikyo           . 062481)       ; 
+    (=ks-x1001         . #x2B71)       ; 
+    (=gb2312           . #x2571)       ; 
+    (=jis-x0208                . #x2571)       ; 
+    (=big5-eten                . #xC7ED)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER WO")
-    (ucs               . #x30F2)
     (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
+    (=ucs              . #x30F2)       ; ヲ
+    (mojikyo           . 062482)       ; 
+    (=ks-x1001         . #x2B72)       ; 
+    (=gb2312           . #x2572)       ; 
+    (=jis-x0208                . #x2572)       ; 
+    (=big5-eten                . #xC7EE)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER N")
-    (ucs               . #x30F3)
     (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
+    (=ucs              . #x30F3)       ; ン
+    (mojikyo           . 062483)       ; 
+    (=ks-x1001         . #x2B73)       ; 
+    (=gb2312           . #x2573)       ; 
+    (=jis-x0208                . #x2573)       ; 
+    (=big5-eten                . #xC7EF)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER VU")
-    (ucs               . #x30F4)
     (general-category  letter other) ; Informative Category
     (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
+    (=ucs              . #x30F4)       ; ヴ
+    (mojikyo           . 062484)       ; 
+    (=ks-x1001         . #x2B74)       ; 
+    (=gb2312           . #x2574)       ; 
+    (=jis-x0208                . #x2574)       ; 
+    (=big5-eten                . #xC7F0)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL KA")
-    (ucs               . #x30F5)
     (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
+    (=ucs              . #x30F5)       ; ヵ
+    (mojikyo           . 062485)       ; 
+    (=ks-x1001         . #x2B75)       ; 
+    (=gb2312           . #x2575)       ; 
+    (=jis-x0208                . #x2575)       ; 
+    (=big5-eten                . #xC7F1)       ; 
+    (=jef-china3       . #x7DD9)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER SMALL KE")
-    (ucs               . #x30F6)
     (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
+    (=ucs              . #x30F6)       ; ヶ
+    (mojikyo           . 062486)       ; 
+    (=ks-x1001         . #x2B76)       ; 
+    (=gb2312           . #x2576)       ; 
+    (=jis-x0208                . #x2576)       ; 
+    (=big5-eten                . #xC7F2)       ; 
+    (=jef-china3       . #x7DDA)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER VA")
-    (ucs               . #x30F7)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30EF #x3099)
+    (=ucs              . #x30F7)       ; ヷ
+    (=jis-x0213-1-2000 . #x2772)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER VI")
-    (ucs               . #x30F8)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30F0 #x3099)
+    (=ucs              . #x30F8)       ; ヸ
+    (=jis-x0213-1-2000 . #x2773)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER VE")
-    (ucs               . #x30F9)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30F1 #x3099)
+    (=ucs              . #x30F9)       ; ヹ
+    (=jis-x0213-1-2000 . #x2774)       ; 
     ))
 (define-char
   '((name              . "KATAKANA LETTER VO")
-    (ucs               . #x30FA)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x30F2 #x3099)
+    (=ucs              . #x30FA)       ; ヺ
+    (=jis-x0213-1-2000 . #x2775)       ; 
     ))
 (define-char
   '((name              . "KATAKANA MIDDLE DOT")
-    (ucs               . #x30FB)
     (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
+    (=ucs              . #x30FB)       ; ・
+    (=gb2312           . #x2124)       ; 
+    (=jis-x0208                . #x2126)       ; 
     ))
 (define-char
   '((name              . "KATAKANA-HIRAGANA PROLONGED SOUND MARK")
-    (ucs               . #x30FC)
     (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
+    (=ucs              . #x30FC)       ; ー
+    (=jis-x0208                . #x213C)       ; 
+    (=big5-eten                . #xC6E3)       ; 
     ))
 (define-char
   '((name              . "KATAKANA ITERATION MARK")
-    (ucs               . #x30FD)
     (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
+    (=ucs              . #x30FD)       ; ヽ
+    (=jis-x0208                . #x2133)       ; 
+    (=big5-eten                . #xC6DA)       ; 
     ))
 (define-char
   '((name              . "KATAKANA VOICED ITERATION MARK")
-    (ucs               . #x30FE)
     (general-category  letter modifier) ; Informative Category
     (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
+    (=ucs              . #x30FE)       ; ヾ
+    (=jis-x0208                . #x2134)       ; 
+    (=big5-eten                . #xC6DB)       ; 
+    ))
+(define-char
+  '((name              . "KATAKANA DIGRAPH KOTO")
+    (=ucs              . #x30FF)       ; ヿ
+    (=jis-x0213-1-2000 . #x2238)       ; 
     ))