Merge `japanese-jisx0213-1'.
authortomo <tomo>
Sun, 21 Nov 1999 07:46:39 +0000 (07:46 +0000)
committertomo <tomo>
Sun, 21 Nov 1999 07:46:39 +0000 (07:46 +0000)
lisp/utf-2000/u03040-Hiragana.el
lisp/utf-2000/u030A0-Katakana.el
lisp/utf-2000/u03300-CJK-Compatibility.el

index b50dc67..c08ed01 100644 (file)
@@ -4,10 +4,10 @@
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x21)      ; \e$(@$!\e(B
-    (chinese-gb2312            #x24 #x21)      ; \e$(A$!\e(B
-    (japanese-jisx0208         #x24 #x21)      ; \e$(B$!\e(B
-    (korean-ksc5601            #x2A #x21)      ; \e$(C*!\e(B
+    (japanese-jisx0208-1978    #x24 #x21)      ; 
+    (chinese-gb2312            #x24 #x21)      ; 
+    (japanese-jisx0208         #x24 #x21)      ; 
+    (korean-ksc5601            #x2A #x21)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER A")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x22)      ; \e$(@$"\e(B
-    (chinese-gb2312            #x24 #x22)      ; \e$(A$"\e(B
-    (japanese-jisx0208         #x24 #x22)      ; \e$(B$"\e(B
-    (korean-ksc5601            #x2A #x22)      ; \e$(C*"\e(B
+    (japanese-jisx0208-1978    #x24 #x22)      ; 
+    (chinese-gb2312            #x24 #x22)      ; 
+    (japanese-jisx0208         #x24 #x22)      ; 
+    (korean-ksc5601            #x2A #x22)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL I")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x23)      ; \e$(@$#\e(B
-    (chinese-gb2312            #x24 #x23)      ; \e$(A$#\e(B
-    (japanese-jisx0208         #x24 #x23)      ; \e$(B$#\e(B
-    (korean-ksc5601            #x2A #x23)      ; \e$(C*#\e(B
+    (japanese-jisx0208-1978    #x24 #x23)      ; 
+    (chinese-gb2312            #x24 #x23)      ; 
+    (japanese-jisx0208         #x24 #x23)      ; 
+    (korean-ksc5601            #x2A #x23)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER I")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x24)      ; \e$(@$$\e(B
-    (chinese-gb2312            #x24 #x24)      ; \e$(A$$\e(B
-    (japanese-jisx0208         #x24 #x24)      ; \e$(B$$\e(B
-    (korean-ksc5601            #x2A #x24)      ; \e$(C*$\e(B
+    (japanese-jisx0208-1978    #x24 #x24)      ; 
+    (chinese-gb2312            #x24 #x24)      ; 
+    (japanese-jisx0208         #x24 #x24)      ; 
+    (korean-ksc5601            #x2A #x24)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL U")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x25)      ; \e$(@$%\e(B
-    (chinese-gb2312            #x24 #x25)      ; \e$(A$%\e(B
-    (japanese-jisx0208         #x24 #x25)      ; \e$(B$%\e(B
-    (korean-ksc5601            #x2A #x25)      ; \e$(C*%\e(B
+    (japanese-jisx0208-1978    #x24 #x25)      ; 
+    (chinese-gb2312            #x24 #x25)      ; 
+    (japanese-jisx0208         #x24 #x25)      ; 
+    (korean-ksc5601            #x2A #x25)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER U")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x26)      ; \e$(@$&\e(B
-    (chinese-gb2312            #x24 #x26)      ; \e$(A$&\e(B
-    (japanese-jisx0208         #x24 #x26)      ; \e$(B$&\e(B
-    (korean-ksc5601            #x2A #x26)      ; \e$(C*&\e(B
+    (japanese-jisx0208-1978    #x24 #x26)      ; 
+    (chinese-gb2312            #x24 #x26)      ; 
+    (japanese-jisx0208         #x24 #x26)      ; 
+    (korean-ksc5601            #x2A #x26)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL E")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x27)      ; \e$(@$'\e(B
-    (chinese-gb2312            #x24 #x27)      ; \e$(A$'\e(B
-    (japanese-jisx0208         #x24 #x27)      ; \e$(B$'\e(B
-    (korean-ksc5601            #x2A #x27)      ; \e$(C*'\e(B
+    (japanese-jisx0208-1978    #x24 #x27)      ; 
+    (chinese-gb2312            #x24 #x27)      ; 
+    (japanese-jisx0208         #x24 #x27)      ; 
+    (korean-ksc5601            #x2A #x27)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER E")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x28)      ; \e$(@$(\e(B
-    (chinese-gb2312            #x24 #x28)      ; \e$(A$(\e(B
-    (japanese-jisx0208         #x24 #x28)      ; \e$(B$(\e(B
-    (korean-ksc5601            #x2A #x28)      ; \e$(C*(\e(B
+    (japanese-jisx0208-1978    #x24 #x28)      ; 
+    (chinese-gb2312            #x24 #x28)      ; 
+    (japanese-jisx0208         #x24 #x28)      ; 
+    (korean-ksc5601            #x2A #x28)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL O")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x29)      ; \e$(@$)\e(B
-    (chinese-gb2312            #x24 #x29)      ; \e$(A$)\e(B
-    (japanese-jisx0208         #x24 #x29)      ; \e$(B$)\e(B
-    (korean-ksc5601            #x2A #x29)      ; \e$(C*)\e(B
+    (japanese-jisx0208-1978    #x24 #x29)      ; 
+    (chinese-gb2312            #x24 #x29)      ; 
+    (japanese-jisx0208         #x24 #x29)      ; 
+    (korean-ksc5601            #x2A #x29)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER O")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x2A)      ; \e$(@$*\e(B
-    (chinese-gb2312            #x24 #x2A)      ; \e$(A$*\e(B
-    (japanese-jisx0208         #x24 #x2A)      ; \e$(B$*\e(B
-    (korean-ksc5601            #x2A #x2A)      ; \e$(C**\e(B
+    (japanese-jisx0208-1978    #x24 #x2A)      ; 
+    (chinese-gb2312            #x24 #x2A)      ; 
+    (japanese-jisx0208         #x24 #x2A)      ; 
+    (korean-ksc5601            #x2A #x2A)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER KA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x2B)      ; \e$(@$+\e(B
-    (chinese-gb2312            #x24 #x2B)      ; \e$(A$+\e(B
-    (japanese-jisx0208         #x24 #x2B)      ; \e$(B$+\e(B
-    (korean-ksc5601            #x2A #x2B)      ; \e$(C*+\e(B
+    (japanese-jisx0208-1978    #x24 #x2B)      ; 
+    (chinese-gb2312            #x24 #x2B)      ; 
+    (japanese-jisx0208         #x24 #x2B)      ; 
+    (korean-ksc5601            #x2A #x2B)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER GA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x304B #x3099)
-    (japanese-jisx0208-1978    #x24 #x2C)      ; \e$(@$,\e(B
-    (chinese-gb2312            #x24 #x2C)      ; \e$(A$,\e(B
-    (japanese-jisx0208         #x24 #x2C)      ; \e$(B$,\e(B
-    (korean-ksc5601            #x2A #x2C)      ; \e$(C*,\e(B
+    (japanese-jisx0208-1978    #x24 #x2C)      ; 
+    (chinese-gb2312            #x24 #x2C)      ; 
+    (japanese-jisx0208         #x24 #x2C)      ; 
+    (korean-ksc5601            #x2A #x2C)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER KI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x2D)      ; \e$(@$-\e(B
-    (chinese-gb2312            #x24 #x2D)      ; \e$(A$-\e(B
-    (japanese-jisx0208         #x24 #x2D)      ; \e$(B$-\e(B
-    (korean-ksc5601            #x2A #x2D)      ; \e$(C*-\e(B
+    (japanese-jisx0208-1978    #x24 #x2D)      ; 
+    (chinese-gb2312            #x24 #x2D)      ; 
+    (japanese-jisx0208         #x24 #x2D)      ; 
+    (korean-ksc5601            #x2A #x2D)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER GI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x304D #x3099)
-    (japanese-jisx0208-1978    #x24 #x2E)      ; \e$(@$.\e(B
-    (chinese-gb2312            #x24 #x2E)      ; \e$(A$.\e(B
-    (japanese-jisx0208         #x24 #x2E)      ; \e$(B$.\e(B
-    (korean-ksc5601            #x2A #x2E)      ; \e$(C*.\e(B
+    (japanese-jisx0208-1978    #x24 #x2E)      ; 
+    (chinese-gb2312            #x24 #x2E)      ; 
+    (japanese-jisx0208         #x24 #x2E)      ; 
+    (korean-ksc5601            #x2A #x2E)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER KU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x2F)      ; \e$(@$/\e(B
-    (chinese-gb2312            #x24 #x2F)      ; \e$(A$/\e(B
-    (japanese-jisx0208         #x24 #x2F)      ; \e$(B$/\e(B
-    (korean-ksc5601            #x2A #x2F)      ; \e$(C*/\e(B
+    (japanese-jisx0208-1978    #x24 #x2F)      ; 
+    (chinese-gb2312            #x24 #x2F)      ; 
+    (japanese-jisx0208         #x24 #x2F)      ; 
+    (korean-ksc5601            #x2A #x2F)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER GU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x304F #x3099)
-    (japanese-jisx0208-1978    #x24 #x30)      ; \e$(@$0\e(B
-    (chinese-gb2312            #x24 #x30)      ; \e$(A$0\e(B
-    (japanese-jisx0208         #x24 #x30)      ; \e$(B$0\e(B
-    (korean-ksc5601            #x2A #x30)      ; \e$(C*0\e(B
+    (japanese-jisx0208-1978    #x24 #x30)      ; 
+    (chinese-gb2312            #x24 #x30)      ; 
+    (japanese-jisx0208         #x24 #x30)      ; 
+    (korean-ksc5601            #x2A #x30)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER KE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x31)      ; \e$(@$1\e(B
-    (chinese-gb2312            #x24 #x31)      ; \e$(A$1\e(B
-    (japanese-jisx0208         #x24 #x31)      ; \e$(B$1\e(B
-    (korean-ksc5601            #x2A #x31)      ; \e$(C*1\e(B
+    (japanese-jisx0208-1978    #x24 #x31)      ; 
+    (chinese-gb2312            #x24 #x31)      ; 
+    (japanese-jisx0208         #x24 #x31)      ; 
+    (korean-ksc5601            #x2A #x31)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER GE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3051 #x3099)
-    (japanese-jisx0208-1978    #x24 #x32)      ; \e$(@$2\e(B
-    (chinese-gb2312            #x24 #x32)      ; \e$(A$2\e(B
-    (japanese-jisx0208         #x24 #x32)      ; \e$(B$2\e(B
-    (korean-ksc5601            #x2A #x32)      ; \e$(C*2\e(B
+    (japanese-jisx0208-1978    #x24 #x32)      ; 
+    (chinese-gb2312            #x24 #x32)      ; 
+    (japanese-jisx0208         #x24 #x32)      ; 
+    (korean-ksc5601            #x2A #x32)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER KO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x33)      ; \e$(@$3\e(B
-    (chinese-gb2312            #x24 #x33)      ; \e$(A$3\e(B
-    (japanese-jisx0208         #x24 #x33)      ; \e$(B$3\e(B
-    (korean-ksc5601            #x2A #x33)      ; \e$(C*3\e(B
+    (japanese-jisx0208-1978    #x24 #x33)      ; 
+    (chinese-gb2312            #x24 #x33)      ; 
+    (japanese-jisx0208         #x24 #x33)      ; 
+    (korean-ksc5601            #x2A #x33)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER GO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3053 #x3099)
-    (japanese-jisx0208-1978    #x24 #x34)      ; \e$(@$4\e(B
-    (chinese-gb2312            #x24 #x34)      ; \e$(A$4\e(B
-    (japanese-jisx0208         #x24 #x34)      ; \e$(B$4\e(B
-    (korean-ksc5601            #x2A #x34)      ; \e$(C*4\e(B
+    (japanese-jisx0208-1978    #x24 #x34)      ; 
+    (chinese-gb2312            #x24 #x34)      ; 
+    (japanese-jisx0208         #x24 #x34)      ; 
+    (korean-ksc5601            #x2A #x34)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x35)      ; \e$(@$5\e(B
-    (chinese-gb2312            #x24 #x35)      ; \e$(A$5\e(B
-    (japanese-jisx0208         #x24 #x35)      ; \e$(B$5\e(B
-    (korean-ksc5601            #x2A #x35)      ; \e$(C*5\e(B
+    (japanese-jisx0208-1978    #x24 #x35)      ; 
+    (chinese-gb2312            #x24 #x35)      ; 
+    (japanese-jisx0208         #x24 #x35)      ; 
+    (korean-ksc5601            #x2A #x35)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER ZA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3055 #x3099)
-    (japanese-jisx0208-1978    #x24 #x36)      ; \e$(@$6\e(B
-    (chinese-gb2312            #x24 #x36)      ; \e$(A$6\e(B
-    (japanese-jisx0208         #x24 #x36)      ; \e$(B$6\e(B
-    (korean-ksc5601            #x2A #x36)      ; \e$(C*6\e(B
+    (japanese-jisx0208-1978    #x24 #x36)      ; 
+    (chinese-gb2312            #x24 #x36)      ; 
+    (japanese-jisx0208         #x24 #x36)      ; 
+    (korean-ksc5601            #x2A #x36)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x37)      ; \e$(@$7\e(B
-    (chinese-gb2312            #x24 #x37)      ; \e$(A$7\e(B
-    (japanese-jisx0208         #x24 #x37)      ; \e$(B$7\e(B
-    (korean-ksc5601            #x2A #x37)      ; \e$(C*7\e(B
+    (japanese-jisx0208-1978    #x24 #x37)      ; 
+    (chinese-gb2312            #x24 #x37)      ; 
+    (japanese-jisx0208         #x24 #x37)      ; 
+    (korean-ksc5601            #x2A #x37)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER ZI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3057 #x3099)
-    (japanese-jisx0208-1978    #x24 #x38)      ; \e$(@$8\e(B
-    (chinese-gb2312            #x24 #x38)      ; \e$(A$8\e(B
-    (japanese-jisx0208         #x24 #x38)      ; \e$(B$8\e(B
-    (korean-ksc5601            #x2A #x38)      ; \e$(C*8\e(B
+    (japanese-jisx0208-1978    #x24 #x38)      ; 
+    (chinese-gb2312            #x24 #x38)      ; 
+    (japanese-jisx0208         #x24 #x38)      ; 
+    (korean-ksc5601            #x2A #x38)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x39)      ; \e$(@$9\e(B
-    (chinese-gb2312            #x24 #x39)      ; \e$(A$9\e(B
-    (japanese-jisx0208         #x24 #x39)      ; \e$(B$9\e(B
-    (korean-ksc5601            #x2A #x39)      ; \e$(C*9\e(B
+    (japanese-jisx0208-1978    #x24 #x39)      ; 
+    (chinese-gb2312            #x24 #x39)      ; 
+    (japanese-jisx0208         #x24 #x39)      ; 
+    (korean-ksc5601            #x2A #x39)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER ZU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3059 #x3099)
-    (japanese-jisx0208-1978    #x24 #x3A)      ; \e$(@$:\e(B
-    (chinese-gb2312            #x24 #x3A)      ; \e$(A$:\e(B
-    (japanese-jisx0208         #x24 #x3A)      ; \e$(B$:\e(B
-    (korean-ksc5601            #x2A #x3A)      ; \e$(C*:\e(B
+    (japanese-jisx0208-1978    #x24 #x3A)      ; 
+    (chinese-gb2312            #x24 #x3A)      ; 
+    (japanese-jisx0208         #x24 #x3A)      ; 
+    (korean-ksc5601            #x2A #x3A)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x3B)      ; \e$(@$;\e(B
-    (chinese-gb2312            #x24 #x3B)      ; \e$(A$;\e(B
-    (japanese-jisx0208         #x24 #x3B)      ; \e$(B$;\e(B
-    (korean-ksc5601            #x2A #x3B)      ; \e$(C*;\e(B
+    (japanese-jisx0208-1978    #x24 #x3B)      ; 
+    (chinese-gb2312            #x24 #x3B)      ; 
+    (japanese-jisx0208         #x24 #x3B)      ; 
+    (korean-ksc5601            #x2A #x3B)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER ZE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x305B #x3099)
-    (japanese-jisx0208-1978    #x24 #x3C)      ; \e$(@$<\e(B
-    (chinese-gb2312            #x24 #x3C)      ; \e$(A$<\e(B
-    (japanese-jisx0208         #x24 #x3C)      ; \e$(B$<\e(B
-    (korean-ksc5601            #x2A #x3C)      ; \e$(C*<\e(B
+    (japanese-jisx0208-1978    #x24 #x3C)      ; 
+    (chinese-gb2312            #x24 #x3C)      ; 
+    (japanese-jisx0208         #x24 #x3C)      ; 
+    (korean-ksc5601            #x2A #x3C)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x3D)      ; \e$(@$=\e(B
-    (chinese-gb2312            #x24 #x3D)      ; \e$(A$=\e(B
-    (japanese-jisx0208         #x24 #x3D)      ; \e$(B$=\e(B
-    (korean-ksc5601            #x2A #x3D)      ; \e$(C*=\e(B
+    (japanese-jisx0208-1978    #x24 #x3D)      ; 
+    (chinese-gb2312            #x24 #x3D)      ; 
+    (japanese-jisx0208         #x24 #x3D)      ; 
+    (korean-ksc5601            #x2A #x3D)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER ZO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x305D #x3099)
-    (japanese-jisx0208-1978    #x24 #x3E)      ; \e$(@$>\e(B
-    (chinese-gb2312            #x24 #x3E)      ; \e$(A$>\e(B
-    (japanese-jisx0208         #x24 #x3E)      ; \e$(B$>\e(B
-    (korean-ksc5601            #x2A #x3E)      ; \e$(C*>\e(B
+    (japanese-jisx0208-1978    #x24 #x3E)      ; 
+    (chinese-gb2312            #x24 #x3E)      ; 
+    (japanese-jisx0208         #x24 #x3E)      ; 
+    (korean-ksc5601            #x2A #x3E)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER TA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x3F)      ; \e$(@$?\e(B
-    (chinese-gb2312            #x24 #x3F)      ; \e$(A$?\e(B
-    (japanese-jisx0208         #x24 #x3F)      ; \e$(B$?\e(B
-    (korean-ksc5601            #x2A #x3F)      ; \e$(C*?\e(B
+    (japanese-jisx0208-1978    #x24 #x3F)      ; 
+    (chinese-gb2312            #x24 #x3F)      ; 
+    (japanese-jisx0208         #x24 #x3F)      ; 
+    (korean-ksc5601            #x2A #x3F)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER DA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x305F #x3099)
-    (japanese-jisx0208-1978    #x24 #x40)      ; \e$(@$@\e(B
-    (chinese-gb2312            #x24 #x40)      ; \e$(A$@\e(B
-    (japanese-jisx0208         #x24 #x40)      ; \e$(B$@\e(B
-    (korean-ksc5601            #x2A #x40)      ; \e$(C*@\e(B
+    (japanese-jisx0208-1978    #x24 #x40)      ; 
+    (chinese-gb2312            #x24 #x40)      ; 
+    (japanese-jisx0208         #x24 #x40)      ; 
+    (korean-ksc5601            #x2A #x40)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER TI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x41)      ; \e$(@$A\e(B
-    (chinese-gb2312            #x24 #x41)      ; \e$(A$A\e(B
-    (japanese-jisx0208         #x24 #x41)      ; \e$(B$A\e(B
-    (korean-ksc5601            #x2A #x41)      ; \e$(C*A\e(B
+    (japanese-jisx0208-1978    #x24 #x41)      ; 
+    (chinese-gb2312            #x24 #x41)      ; 
+    (japanese-jisx0208         #x24 #x41)      ; 
+    (korean-ksc5601            #x2A #x41)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER DI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3061 #x3099)
-    (japanese-jisx0208-1978    #x24 #x42)      ; \e$(@$B\e(B
-    (chinese-gb2312            #x24 #x42)      ; \e$(A$B\e(B
-    (japanese-jisx0208         #x24 #x42)      ; \e$(B$B\e(B
-    (korean-ksc5601            #x2A #x42)      ; \e$(C*B\e(B
+    (japanese-jisx0208-1978    #x24 #x42)      ; 
+    (chinese-gb2312            #x24 #x42)      ; 
+    (japanese-jisx0208         #x24 #x42)      ; 
+    (korean-ksc5601            #x2A #x42)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL TU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x43)      ; \e$(@$C\e(B
-    (chinese-gb2312            #x24 #x43)      ; \e$(A$C\e(B
-    (japanese-jisx0208         #x24 #x43)      ; \e$(B$C\e(B
-    (korean-ksc5601            #x2A #x43)      ; \e$(C*C\e(B
+    (japanese-jisx0208-1978    #x24 #x43)      ; 
+    (chinese-gb2312            #x24 #x43)      ; 
+    (japanese-jisx0208         #x24 #x43)      ; 
+    (korean-ksc5601            #x2A #x43)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER TU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x44)      ; \e$(@$D\e(B
-    (chinese-gb2312            #x24 #x44)      ; \e$(A$D\e(B
-    (japanese-jisx0208         #x24 #x44)      ; \e$(B$D\e(B
-    (korean-ksc5601            #x2A #x44)      ; \e$(C*D\e(B
+    (japanese-jisx0208-1978    #x24 #x44)      ; 
+    (chinese-gb2312            #x24 #x44)      ; 
+    (japanese-jisx0208         #x24 #x44)      ; 
+    (korean-ksc5601            #x2A #x44)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER DU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3064 #x3099)
-    (japanese-jisx0208-1978    #x24 #x45)      ; \e$(@$E\e(B
-    (chinese-gb2312            #x24 #x45)      ; \e$(A$E\e(B
-    (japanese-jisx0208         #x24 #x45)      ; \e$(B$E\e(B
-    (korean-ksc5601            #x2A #x45)      ; \e$(C*E\e(B
+    (japanese-jisx0208-1978    #x24 #x45)      ; 
+    (chinese-gb2312            #x24 #x45)      ; 
+    (japanese-jisx0208         #x24 #x45)      ; 
+    (korean-ksc5601            #x2A #x45)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER TE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x46)      ; \e$(@$F\e(B
-    (chinese-gb2312            #x24 #x46)      ; \e$(A$F\e(B
-    (japanese-jisx0208         #x24 #x46)      ; \e$(B$F\e(B
-    (korean-ksc5601            #x2A #x46)      ; \e$(C*F\e(B
+    (japanese-jisx0208-1978    #x24 #x46)      ; 
+    (chinese-gb2312            #x24 #x46)      ; 
+    (japanese-jisx0208         #x24 #x46)      ; 
+    (korean-ksc5601            #x2A #x46)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER DE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3066 #x3099)
-    (japanese-jisx0208-1978    #x24 #x47)      ; \e$(@$G\e(B
-    (chinese-gb2312            #x24 #x47)      ; \e$(A$G\e(B
-    (japanese-jisx0208         #x24 #x47)      ; \e$(B$G\e(B
-    (korean-ksc5601            #x2A #x47)      ; \e$(C*G\e(B
+    (japanese-jisx0208-1978    #x24 #x47)      ; 
+    (chinese-gb2312            #x24 #x47)      ; 
+    (japanese-jisx0208         #x24 #x47)      ; 
+    (korean-ksc5601            #x2A #x47)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER TO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x48)      ; \e$(@$H\e(B
-    (chinese-gb2312            #x24 #x48)      ; \e$(A$H\e(B
-    (japanese-jisx0208         #x24 #x48)      ; \e$(B$H\e(B
-    (korean-ksc5601            #x2A #x48)      ; \e$(C*H\e(B
+    (japanese-jisx0208-1978    #x24 #x48)      ; 
+    (chinese-gb2312            #x24 #x48)      ; 
+    (japanese-jisx0208         #x24 #x48)      ; 
+    (korean-ksc5601            #x2A #x48)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER DO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3068 #x3099)
-    (japanese-jisx0208-1978    #x24 #x49)      ; \e$(@$I\e(B
-    (chinese-gb2312            #x24 #x49)      ; \e$(A$I\e(B
-    (japanese-jisx0208         #x24 #x49)      ; \e$(B$I\e(B
-    (korean-ksc5601            #x2A #x49)      ; \e$(C*I\e(B
+    (japanese-jisx0208-1978    #x24 #x49)      ; 
+    (chinese-gb2312            #x24 #x49)      ; 
+    (japanese-jisx0208         #x24 #x49)      ; 
+    (korean-ksc5601            #x2A #x49)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER NA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x4A)      ; \e$(@$J\e(B
-    (chinese-gb2312            #x24 #x4A)      ; \e$(A$J\e(B
-    (japanese-jisx0208         #x24 #x4A)      ; \e$(B$J\e(B
-    (korean-ksc5601            #x2A #x4A)      ; \e$(C*J\e(B
+    (japanese-jisx0208-1978    #x24 #x4A)      ; 
+    (chinese-gb2312            #x24 #x4A)      ; 
+    (japanese-jisx0208         #x24 #x4A)      ; 
+    (korean-ksc5601            #x2A #x4A)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER NI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x4B)      ; \e$(@$K\e(B
-    (chinese-gb2312            #x24 #x4B)      ; \e$(A$K\e(B
-    (japanese-jisx0208         #x24 #x4B)      ; \e$(B$K\e(B
-    (korean-ksc5601            #x2A #x4B)      ; \e$(C*K\e(B
+    (japanese-jisx0208-1978    #x24 #x4B)      ; 
+    (chinese-gb2312            #x24 #x4B)      ; 
+    (japanese-jisx0208         #x24 #x4B)      ; 
+    (korean-ksc5601            #x2A #x4B)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER NU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x4C)      ; \e$(@$L\e(B
-    (chinese-gb2312            #x24 #x4C)      ; \e$(A$L\e(B
-    (japanese-jisx0208         #x24 #x4C)      ; \e$(B$L\e(B
-    (korean-ksc5601            #x2A #x4C)      ; \e$(C*L\e(B
+    (japanese-jisx0208-1978    #x24 #x4C)      ; 
+    (chinese-gb2312            #x24 #x4C)      ; 
+    (japanese-jisx0208         #x24 #x4C)      ; 
+    (korean-ksc5601            #x2A #x4C)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER NE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x4D)      ; \e$(@$M\e(B
-    (chinese-gb2312            #x24 #x4D)      ; \e$(A$M\e(B
-    (japanese-jisx0208         #x24 #x4D)      ; \e$(B$M\e(B
-    (korean-ksc5601            #x2A #x4D)      ; \e$(C*M\e(B
+    (japanese-jisx0208-1978    #x24 #x4D)      ; 
+    (chinese-gb2312            #x24 #x4D)      ; 
+    (japanese-jisx0208         #x24 #x4D)      ; 
+    (korean-ksc5601            #x2A #x4D)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER NO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x4E)      ; \e$(@$N\e(B
-    (chinese-gb2312            #x24 #x4E)      ; \e$(A$N\e(B
-    (japanese-jisx0208         #x24 #x4E)      ; \e$(B$N\e(B
-    (korean-ksc5601            #x2A #x4E)      ; \e$(C*N\e(B
+    (japanese-jisx0208-1978    #x24 #x4E)      ; 
+    (chinese-gb2312            #x24 #x4E)      ; 
+    (japanese-jisx0208         #x24 #x4E)      ; 
+    (korean-ksc5601            #x2A #x4E)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER HA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x4F)      ; \e$(@$O\e(B
-    (chinese-gb2312            #x24 #x4F)      ; \e$(A$O\e(B
-    (japanese-jisx0208         #x24 #x4F)      ; \e$(B$O\e(B
-    (korean-ksc5601            #x2A #x4F)      ; \e$(C*O\e(B
+    (japanese-jisx0208-1978    #x24 #x4F)      ; 
+    (chinese-gb2312            #x24 #x4F)      ; 
+    (japanese-jisx0208         #x24 #x4F)      ; 
+    (korean-ksc5601            #x2A #x4F)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER BA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x306F #x3099)
-    (japanese-jisx0208-1978    #x24 #x50)      ; \e$(@$P\e(B
-    (chinese-gb2312            #x24 #x50)      ; \e$(A$P\e(B
-    (japanese-jisx0208         #x24 #x50)      ; \e$(B$P\e(B
-    (korean-ksc5601            #x2A #x50)      ; \e$(C*P\e(B
+    (japanese-jisx0208-1978    #x24 #x50)      ; 
+    (chinese-gb2312            #x24 #x50)      ; 
+    (japanese-jisx0208         #x24 #x50)      ; 
+    (korean-ksc5601            #x2A #x50)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER PA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x306F #x309A)
-    (japanese-jisx0208-1978    #x24 #x51)      ; \e$(@$Q\e(B
-    (chinese-gb2312            #x24 #x51)      ; \e$(A$Q\e(B
-    (japanese-jisx0208         #x24 #x51)      ; \e$(B$Q\e(B
-    (korean-ksc5601            #x2A #x51)      ; \e$(C*Q\e(B
+    (japanese-jisx0208-1978    #x24 #x51)      ; 
+    (chinese-gb2312            #x24 #x51)      ; 
+    (japanese-jisx0208         #x24 #x51)      ; 
+    (korean-ksc5601            #x2A #x51)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER HI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x52)      ; \e$(@$R\e(B
-    (chinese-gb2312            #x24 #x52)      ; \e$(A$R\e(B
-    (japanese-jisx0208         #x24 #x52)      ; \e$(B$R\e(B
-    (korean-ksc5601            #x2A #x52)      ; \e$(C*R\e(B
+    (japanese-jisx0208-1978    #x24 #x52)      ; 
+    (chinese-gb2312            #x24 #x52)      ; 
+    (japanese-jisx0208         #x24 #x52)      ; 
+    (korean-ksc5601            #x2A #x52)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER BI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3072 #x3099)
-    (japanese-jisx0208-1978    #x24 #x53)      ; \e$(@$S\e(B
-    (chinese-gb2312            #x24 #x53)      ; \e$(A$S\e(B
-    (japanese-jisx0208         #x24 #x53)      ; \e$(B$S\e(B
-    (korean-ksc5601            #x2A #x53)      ; \e$(C*S\e(B
+    (japanese-jisx0208-1978    #x24 #x53)      ; 
+    (chinese-gb2312            #x24 #x53)      ; 
+    (japanese-jisx0208         #x24 #x53)      ; 
+    (korean-ksc5601            #x2A #x53)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER PI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3072 #x309A)
-    (japanese-jisx0208-1978    #x24 #x54)      ; \e$(@$T\e(B
-    (chinese-gb2312            #x24 #x54)      ; \e$(A$T\e(B
-    (japanese-jisx0208         #x24 #x54)      ; \e$(B$T\e(B
-    (korean-ksc5601            #x2A #x54)      ; \e$(C*T\e(B
+    (japanese-jisx0208-1978    #x24 #x54)      ; 
+    (chinese-gb2312            #x24 #x54)      ; 
+    (japanese-jisx0208         #x24 #x54)      ; 
+    (korean-ksc5601            #x2A #x54)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER HU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x55)      ; \e$(@$U\e(B
-    (chinese-gb2312            #x24 #x55)      ; \e$(A$U\e(B
-    (japanese-jisx0208         #x24 #x55)      ; \e$(B$U\e(B
-    (korean-ksc5601            #x2A #x55)      ; \e$(C*U\e(B
+    (japanese-jisx0208-1978    #x24 #x55)      ; 
+    (chinese-gb2312            #x24 #x55)      ; 
+    (japanese-jisx0208         #x24 #x55)      ; 
+    (korean-ksc5601            #x2A #x55)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER BU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3075 #x3099)
-    (japanese-jisx0208-1978    #x24 #x56)      ; \e$(@$V\e(B
-    (chinese-gb2312            #x24 #x56)      ; \e$(A$V\e(B
-    (japanese-jisx0208         #x24 #x56)      ; \e$(B$V\e(B
-    (korean-ksc5601            #x2A #x56)      ; \e$(C*V\e(B
+    (japanese-jisx0208-1978    #x24 #x56)      ; 
+    (chinese-gb2312            #x24 #x56)      ; 
+    (japanese-jisx0208         #x24 #x56)      ; 
+    (korean-ksc5601            #x2A #x56)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER PU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3075 #x309A)
-    (japanese-jisx0208-1978    #x24 #x57)      ; \e$(@$W\e(B
-    (chinese-gb2312            #x24 #x57)      ; \e$(A$W\e(B
-    (japanese-jisx0208         #x24 #x57)      ; \e$(B$W\e(B
-    (korean-ksc5601            #x2A #x57)      ; \e$(C*W\e(B
+    (japanese-jisx0208-1978    #x24 #x57)      ; 
+    (chinese-gb2312            #x24 #x57)      ; 
+    (japanese-jisx0208         #x24 #x57)      ; 
+    (korean-ksc5601            #x2A #x57)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER HE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x58)      ; \e$(@$X\e(B
-    (chinese-gb2312            #x24 #x58)      ; \e$(A$X\e(B
-    (japanese-jisx0208         #x24 #x58)      ; \e$(B$X\e(B
-    (korean-ksc5601            #x2A #x58)      ; \e$(C*X\e(B
+    (japanese-jisx0208-1978    #x24 #x58)      ; 
+    (chinese-gb2312            #x24 #x58)      ; 
+    (japanese-jisx0208         #x24 #x58)      ; 
+    (korean-ksc5601            #x2A #x58)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER BE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3078 #x3099)
-    (japanese-jisx0208-1978    #x24 #x59)      ; \e$(@$Y\e(B
-    (chinese-gb2312            #x24 #x59)      ; \e$(A$Y\e(B
-    (japanese-jisx0208         #x24 #x59)      ; \e$(B$Y\e(B
-    (korean-ksc5601            #x2A #x59)      ; \e$(C*Y\e(B
+    (japanese-jisx0208-1978    #x24 #x59)      ; 
+    (chinese-gb2312            #x24 #x59)      ; 
+    (japanese-jisx0208         #x24 #x59)      ; 
+    (korean-ksc5601            #x2A #x59)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER PE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3078 #x309A)
-    (japanese-jisx0208-1978    #x24 #x5A)      ; \e$(@$Z\e(B
-    (chinese-gb2312            #x24 #x5A)      ; \e$(A$Z\e(B
-    (japanese-jisx0208         #x24 #x5A)      ; \e$(B$Z\e(B
-    (korean-ksc5601            #x2A #x5A)      ; \e$(C*Z\e(B
+    (japanese-jisx0208-1978    #x24 #x5A)      ; 
+    (chinese-gb2312            #x24 #x5A)      ; 
+    (japanese-jisx0208         #x24 #x5A)      ; 
+    (korean-ksc5601            #x2A #x5A)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER HO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x5B)      ; \e$(@$[\e(B
-    (chinese-gb2312            #x24 #x5B)      ; \e$(A$[\e(B
-    (japanese-jisx0208         #x24 #x5B)      ; \e$(B$[\e(B
-    (korean-ksc5601            #x2A #x5B)      ; \e$(C*[\e(B
+    (japanese-jisx0208-1978    #x24 #x5B)      ; 
+    (chinese-gb2312            #x24 #x5B)      ; 
+    (japanese-jisx0208         #x24 #x5B)      ; 
+    (korean-ksc5601            #x2A #x5B)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER BO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x307B #x3099)
-    (japanese-jisx0208-1978    #x24 #x5C)      ; \e$(@$\\e(B
-    (chinese-gb2312            #x24 #x5C)      ; \e$(A$\\e(B
-    (japanese-jisx0208         #x24 #x5C)      ; \e$(B$\\e(B
-    (korean-ksc5601            #x2A #x5C)      ; \e$(C*\\e(B
+    (japanese-jisx0208-1978    #x24 #x5C)      ; 
+    (chinese-gb2312            #x24 #x5C)      ; 
+    (japanese-jisx0208         #x24 #x5C)      ; 
+    (korean-ksc5601            #x2A #x5C)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER PO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x307B #x309A)
-    (japanese-jisx0208-1978    #x24 #x5D)      ; \e$(@$]\e(B
-    (chinese-gb2312            #x24 #x5D)      ; \e$(A$]\e(B
-    (japanese-jisx0208         #x24 #x5D)      ; \e$(B$]\e(B
-    (korean-ksc5601            #x2A #x5D)      ; \e$(C*]\e(B
+    (japanese-jisx0208-1978    #x24 #x5D)      ; 
+    (chinese-gb2312            #x24 #x5D)      ; 
+    (japanese-jisx0208         #x24 #x5D)      ; 
+    (korean-ksc5601            #x2A #x5D)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER MA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x5E)      ; \e$(@$^\e(B
-    (chinese-gb2312            #x24 #x5E)      ; \e$(A$^\e(B
-    (japanese-jisx0208         #x24 #x5E)      ; \e$(B$^\e(B
-    (korean-ksc5601            #x2A #x5E)      ; \e$(C*^\e(B
+    (japanese-jisx0208-1978    #x24 #x5E)      ; 
+    (chinese-gb2312            #x24 #x5E)      ; 
+    (japanese-jisx0208         #x24 #x5E)      ; 
+    (korean-ksc5601            #x2A #x5E)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER MI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x5F)      ; \e$(@$_\e(B
-    (chinese-gb2312            #x24 #x5F)      ; \e$(A$_\e(B
-    (japanese-jisx0208         #x24 #x5F)      ; \e$(B$_\e(B
-    (korean-ksc5601            #x2A #x5F)      ; \e$(C*_\e(B
+    (japanese-jisx0208-1978    #x24 #x5F)      ; 
+    (chinese-gb2312            #x24 #x5F)      ; 
+    (japanese-jisx0208         #x24 #x5F)      ; 
+    (korean-ksc5601            #x2A #x5F)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER MU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x60)      ; \e$(@$`\e(B
-    (chinese-gb2312            #x24 #x60)      ; \e$(A$`\e(B
-    (japanese-jisx0208         #x24 #x60)      ; \e$(B$`\e(B
-    (korean-ksc5601            #x2A #x60)      ; \e$(C*`\e(B
+    (japanese-jisx0208-1978    #x24 #x60)      ; 
+    (chinese-gb2312            #x24 #x60)      ; 
+    (japanese-jisx0208         #x24 #x60)      ; 
+    (korean-ksc5601            #x2A #x60)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER ME")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x61)      ; \e$(@$a\e(B
-    (chinese-gb2312            #x24 #x61)      ; \e$(A$a\e(B
-    (japanese-jisx0208         #x24 #x61)      ; \e$(B$a\e(B
-    (korean-ksc5601            #x2A #x61)      ; \e$(C*a\e(B
+    (japanese-jisx0208-1978    #x24 #x61)      ; 
+    (chinese-gb2312            #x24 #x61)      ; 
+    (japanese-jisx0208         #x24 #x61)      ; 
+    (korean-ksc5601            #x2A #x61)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER MO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x62)      ; \e$(@$b\e(B
-    (chinese-gb2312            #x24 #x62)      ; \e$(A$b\e(B
-    (japanese-jisx0208         #x24 #x62)      ; \e$(B$b\e(B
-    (korean-ksc5601            #x2A #x62)      ; \e$(C*b\e(B
+    (japanese-jisx0208-1978    #x24 #x62)      ; 
+    (chinese-gb2312            #x24 #x62)      ; 
+    (japanese-jisx0208         #x24 #x62)      ; 
+    (korean-ksc5601            #x2A #x62)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL YA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x63)      ; \e$(@$c\e(B
-    (chinese-gb2312            #x24 #x63)      ; \e$(A$c\e(B
-    (japanese-jisx0208         #x24 #x63)      ; \e$(B$c\e(B
-    (korean-ksc5601            #x2A #x63)      ; \e$(C*c\e(B
+    (japanese-jisx0208-1978    #x24 #x63)      ; 
+    (chinese-gb2312            #x24 #x63)      ; 
+    (japanese-jisx0208         #x24 #x63)      ; 
+    (korean-ksc5601            #x2A #x63)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER YA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x64)      ; \e$(@$d\e(B
-    (chinese-gb2312            #x24 #x64)      ; \e$(A$d\e(B
-    (japanese-jisx0208         #x24 #x64)      ; \e$(B$d\e(B
-    (korean-ksc5601            #x2A #x64)      ; \e$(C*d\e(B
+    (japanese-jisx0208-1978    #x24 #x64)      ; 
+    (chinese-gb2312            #x24 #x64)      ; 
+    (japanese-jisx0208         #x24 #x64)      ; 
+    (korean-ksc5601            #x2A #x64)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL YU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x65)      ; \e$(@$e\e(B
-    (chinese-gb2312            #x24 #x65)      ; \e$(A$e\e(B
-    (japanese-jisx0208         #x24 #x65)      ; \e$(B$e\e(B
-    (korean-ksc5601            #x2A #x65)      ; \e$(C*e\e(B
+    (japanese-jisx0208-1978    #x24 #x65)      ; 
+    (chinese-gb2312            #x24 #x65)      ; 
+    (japanese-jisx0208         #x24 #x65)      ; 
+    (korean-ksc5601            #x2A #x65)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER YU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x66)      ; \e$(@$f\e(B
-    (chinese-gb2312            #x24 #x66)      ; \e$(A$f\e(B
-    (japanese-jisx0208         #x24 #x66)      ; \e$(B$f\e(B
-    (korean-ksc5601            #x2A #x66)      ; \e$(C*f\e(B
+    (japanese-jisx0208-1978    #x24 #x66)      ; 
+    (chinese-gb2312            #x24 #x66)      ; 
+    (japanese-jisx0208         #x24 #x66)      ; 
+    (korean-ksc5601            #x2A #x66)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL YO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x67)      ; \e$(@$g\e(B
-    (chinese-gb2312            #x24 #x67)      ; \e$(A$g\e(B
-    (japanese-jisx0208         #x24 #x67)      ; \e$(B$g\e(B
-    (korean-ksc5601            #x2A #x67)      ; \e$(C*g\e(B
+    (japanese-jisx0208-1978    #x24 #x67)      ; 
+    (chinese-gb2312            #x24 #x67)      ; 
+    (japanese-jisx0208         #x24 #x67)      ; 
+    (korean-ksc5601            #x2A #x67)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER YO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x68)      ; \e$(@$h\e(B
-    (chinese-gb2312            #x24 #x68)      ; \e$(A$h\e(B
-    (japanese-jisx0208         #x24 #x68)      ; \e$(B$h\e(B
-    (korean-ksc5601            #x2A #x68)      ; \e$(C*h\e(B
+    (japanese-jisx0208-1978    #x24 #x68)      ; 
+    (chinese-gb2312            #x24 #x68)      ; 
+    (japanese-jisx0208         #x24 #x68)      ; 
+    (korean-ksc5601            #x2A #x68)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER RA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x69)      ; \e$(@$i\e(B
-    (chinese-gb2312            #x24 #x69)      ; \e$(A$i\e(B
-    (japanese-jisx0208         #x24 #x69)      ; \e$(B$i\e(B
-    (korean-ksc5601            #x2A #x69)      ; \e$(C*i\e(B
+    (japanese-jisx0208-1978    #x24 #x69)      ; 
+    (chinese-gb2312            #x24 #x69)      ; 
+    (japanese-jisx0208         #x24 #x69)      ; 
+    (korean-ksc5601            #x2A #x69)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER RI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x6A)      ; \e$(@$j\e(B
-    (chinese-gb2312            #x24 #x6A)      ; \e$(A$j\e(B
-    (japanese-jisx0208         #x24 #x6A)      ; \e$(B$j\e(B
-    (korean-ksc5601            #x2A #x6A)      ; \e$(C*j\e(B
+    (japanese-jisx0208-1978    #x24 #x6A)      ; 
+    (chinese-gb2312            #x24 #x6A)      ; 
+    (japanese-jisx0208         #x24 #x6A)      ; 
+    (korean-ksc5601            #x2A #x6A)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER RU")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x6B)      ; \e$(@$k\e(B
-    (chinese-gb2312            #x24 #x6B)      ; \e$(A$k\e(B
-    (japanese-jisx0208         #x24 #x6B)      ; \e$(B$k\e(B
-    (korean-ksc5601            #x2A #x6B)      ; \e$(C*k\e(B
+    (japanese-jisx0208-1978    #x24 #x6B)      ; 
+    (chinese-gb2312            #x24 #x6B)      ; 
+    (japanese-jisx0208         #x24 #x6B)      ; 
+    (korean-ksc5601            #x2A #x6B)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER RE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x6C)      ; \e$(@$l\e(B
-    (chinese-gb2312            #x24 #x6C)      ; \e$(A$l\e(B
-    (japanese-jisx0208         #x24 #x6C)      ; \e$(B$l\e(B
-    (korean-ksc5601            #x2A #x6C)      ; \e$(C*l\e(B
+    (japanese-jisx0208-1978    #x24 #x6C)      ; 
+    (chinese-gb2312            #x24 #x6C)      ; 
+    (japanese-jisx0208         #x24 #x6C)      ; 
+    (korean-ksc5601            #x2A #x6C)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER RO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x6D)      ; \e$(@$m\e(B
-    (chinese-gb2312            #x24 #x6D)      ; \e$(A$m\e(B
-    (japanese-jisx0208         #x24 #x6D)      ; \e$(B$m\e(B
-    (korean-ksc5601            #x2A #x6D)      ; \e$(C*m\e(B
+    (japanese-jisx0208-1978    #x24 #x6D)      ; 
+    (chinese-gb2312            #x24 #x6D)      ; 
+    (japanese-jisx0208         #x24 #x6D)      ; 
+    (korean-ksc5601            #x2A #x6D)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER SMALL WA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x6E)      ; \e$(@$n\e(B
-    (chinese-gb2312            #x24 #x6E)      ; \e$(A$n\e(B
-    (japanese-jisx0208         #x24 #x6E)      ; \e$(B$n\e(B
-    (korean-ksc5601            #x2A #x6E)      ; \e$(C*n\e(B
+    (japanese-jisx0208-1978    #x24 #x6E)      ; 
+    (chinese-gb2312            #x24 #x6E)      ; 
+    (japanese-jisx0208         #x24 #x6E)      ; 
+    (korean-ksc5601            #x2A #x6E)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER WA")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x6F)      ; \e$(@$o\e(B
-    (chinese-gb2312            #x24 #x6F)      ; \e$(A$o\e(B
-    (japanese-jisx0208         #x24 #x6F)      ; \e$(B$o\e(B
-    (korean-ksc5601            #x2A #x6F)      ; \e$(C*o\e(B
+    (japanese-jisx0208-1978    #x24 #x6F)      ; 
+    (chinese-gb2312            #x24 #x6F)      ; 
+    (japanese-jisx0208         #x24 #x6F)      ; 
+    (korean-ksc5601            #x2A #x6F)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER WI")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x70)      ; \e$(@$p\e(B
-    (chinese-gb2312            #x24 #x70)      ; \e$(A$p\e(B
-    (japanese-jisx0208         #x24 #x70)      ; \e$(B$p\e(B
-    (korean-ksc5601            #x2A #x70)      ; \e$(C*p\e(B
+    (japanese-jisx0208-1978    #x24 #x70)      ; 
+    (chinese-gb2312            #x24 #x70)      ; 
+    (japanese-jisx0208         #x24 #x70)      ; 
+    (korean-ksc5601            #x2A #x70)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER WE")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x71)      ; \e$(@$q\e(B
-    (chinese-gb2312            #x24 #x71)      ; \e$(A$q\e(B
-    (japanese-jisx0208         #x24 #x71)      ; \e$(B$q\e(B
-    (korean-ksc5601            #x2A #x71)      ; \e$(C*q\e(B
+    (japanese-jisx0208-1978    #x24 #x71)      ; 
+    (chinese-gb2312            #x24 #x71)      ; 
+    (japanese-jisx0208         #x24 #x71)      ; 
+    (korean-ksc5601            #x2A #x71)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER WO")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x72)      ; \e$(@$r\e(B
-    (chinese-gb2312            #x24 #x72)      ; \e$(A$r\e(B
-    (japanese-jisx0208         #x24 #x72)      ; \e$(B$r\e(B
-    (korean-ksc5601            #x2A #x72)      ; \e$(C*r\e(B
+    (japanese-jisx0208-1978    #x24 #x72)      ; 
+    (chinese-gb2312            #x24 #x72)      ; 
+    (japanese-jisx0208         #x24 #x72)      ; 
+    (korean-ksc5601            #x2A #x72)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER N")
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x24 #x73)      ; \e$(@$s\e(B
-    (chinese-gb2312            #x24 #x73)      ; \e$(A$s\e(B
-    (japanese-jisx0208         #x24 #x73)      ; \e$(B$s\e(B
-    (korean-ksc5601            #x2A #x73)      ; \e$(C*s\e(B
+    (japanese-jisx0208-1978    #x24 #x73)      ; 
+    (chinese-gb2312            #x24 #x73)      ; 
+    (japanese-jisx0208         #x24 #x73)      ; 
+    (korean-ksc5601            #x2A #x73)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA LETTER VU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x3046 #x3099)
+    (japanese-jisx0213-1       #x24 #x74)      ; ゔ
     ))
 (define-char
   '((name              . "COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x3099)
-    (japanese-jisx0208-1978    #x21 #x2B)      ; \e$(@!+\e(B
-    (japanese-jisx0208         #x21 #x2B)      ; \e$(B!+\e(B
+    (japanese-jisx0208-1978    #x21 #x2B)      ; 
+    (japanese-jisx0208         #x21 #x2B)      ; 
     ))
 (define-char
   '((name              . "KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x309A)
-    (japanese-jisx0208-1978    #x21 #x2C)      ; \e$(@!,\e(B
-    (japanese-jisx0208         #x21 #x2C)      ; \e$(B!,\e(B
+    (japanese-jisx0208-1978    #x21 #x2C)      ; 
+    (japanese-jisx0208         #x21 #x2C)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA ITERATION MARK")
     (general-category  letter modifier) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x35)      ; \e$(@!5\e(B
-    (japanese-jisx0208         #x21 #x35)      ; \e$(B!5\e(B
+    (japanese-jisx0208-1978    #x21 #x35)      ; 
+    (japanese-jisx0208         #x21 #x35)      ; 
     ))
 (define-char
   '((name              . "HIRAGANA VOICED ITERATION MARK")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x309D #x3099)
-    (japanese-jisx0208-1978    #x21 #x36)      ; \e$(@!6\e(B
-    (japanese-jisx0208         #x21 #x36)      ; \e$(B!6\e(B
+    (japanese-jisx0208-1978    #x21 #x36)      ; 
+    (japanese-jisx0208         #x21 #x36)      ; 
     ))
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)      ; 
     ))
index 41f5dcd..926f514 100644 (file)
@@ -29,6 +29,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30A2 #x30FC #x30EB)
+    (japanese-jisx0213-1       #x2D #x46)      ; ㌃
     ))
 (define-char
   '((name              . "SQUARE ININGU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30AB #x30ED #x30EA #x30FC)
+    (japanese-jisx0213-1       #x2D #x4A)      ; ㌍
     ))
 (define-char
   '((name              . "SQUARE GARON")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30AD #x30ED)
+    (japanese-jisx0213-1       #x2D #x41)      ; ㌔
     ))
 (define-char
   '((name              . "SQUARE KIROGURAMU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30B0 #x30E9 #x30E0)
+    (japanese-jisx0213-1       #x2D #x44)      ; ㌘
     ))
 (define-char
   '((name              . "SQUARE GURAMUTON")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30BB #x30F3 #x30C1)
+    (japanese-jisx0213-1       #x2D #x42)      ; ㌢
     ))
 (define-char
   '((name              . "SQUARE SENTO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30BB #x30F3 #x30C8)
+    (japanese-jisx0213-1       #x2D #x4C)      ; ㌣
     ))
 (define-char
   '((name              . "SQUARE DAASU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30C9 #x30EB)
+    (japanese-jisx0213-1       #x2D #x4B)      ; ㌦
     ))
 (define-char
   '((name              . "SQUARE TON")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30C8 #x30F3)
+    (japanese-jisx0213-1       #x2D #x45)      ; ㌧
     ))
 (define-char
   '((name              . "SQUARE NANO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30D1 #x30FC #x30BB #x30F3 #x30C8)
+    (japanese-jisx0213-1       #x2D #x4D)      ; ㌫
     ))
 (define-char
   '((name              . "SQUARE PAATU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30D8 #x30AF #x30BF #x30FC #x30EB)
+    (japanese-jisx0213-1       #x2D #x47)      ; ㌶
     ))
 (define-char
   '((name              . "SQUARE PESO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30DA #x30FC #x30B8)
+    (japanese-jisx0213-1       #x2D #x4F)      ; ㌻
     ))
 (define-char
   '((name              . "SQUARE BEETA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30DF #x30EA)
+    (japanese-jisx0213-1       #x2D #x40)      ; ㍉
     ))
 (define-char
   '((name              . "SQUARE MIRIBAARU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30DF #x30EA #x30D0 #x30FC #x30EB)
+    (japanese-jisx0213-1       #x2D #x4E)      ; ㍊
     ))
 (define-char
   '((name              . "SQUARE MEGA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30E1 #x30FC #x30C8 #x30EB)
+    (japanese-jisx0213-1       #x2D #x43)      ; ㍍
     ))
 (define-char
   '((name              . "SQUARE YAADO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30EA #x30C3 #x30C8 #x30EB)
+    (japanese-jisx0213-1       #x2D #x48)      ; ㍑
     ))
 (define-char
   '((name              . "SQUARE RIRA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x30EF #x30C3 #x30C8)
+    (japanese-jisx0213-1       #x2D #x49)      ; ㍗
     ))
 (define-char
   '((name              . "IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ZERO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x5E73 #x6210)
+    (japanese-jisx0213-1       #x2D #x5F)      ; ㍻
     ))
 (define-char
   '((name              . "SQUARE ERA NAME SYOUWA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x662D #x548C)
+    (japanese-jisx0213-1       #x2D #x6F)      ; ㍼
     ))
 (define-char
   '((name              . "SQUARE ERA NAME TAISYOU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x5927 #x6B63)
+    (japanese-jisx0213-1       #x2D #x6E)      ; ㍽
     ))
 (define-char
   '((name              . "SQUARE ERA NAME MEIZI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x660E #x6CBB)
+    (japanese-jisx0213-1       #x2D #x6D)      ; ㍾
     ))
 (define-char
   '((name              . "SQUARE CORPORATION")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0070 #x0041)
-    (korean-ksc5601    #x27 #x49)      ; \e$(C'I\e(B
+    (korean-ksc5601    #x27 #x49)      ; 
     ))
 (define-char
   '((name              . "SQUARE NA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006E #x0041)
-    (korean-ksc5601    #x27 #x4A)      ; \e$(C'J\e(B
+    (korean-ksc5601    #x27 #x4A)      ; 
     ))
 (define-char
   '((name              . "SQUARE MU A")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x03BC #x0041)
-    (korean-ksc5601    #x27 #x4B)      ; \e$(C'K\e(B
+    (korean-ksc5601    #x27 #x4B)      ; 
     ))
 (define-char
   '((name              . "SQUARE MA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x0041)
-    (korean-ksc5601    #x27 #x4C)      ; \e$(C'L\e(B
+    (korean-ksc5601    #x27 #x4C)      ; 
     ))
 (define-char
   '((name              . "SQUARE KA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x0041)
-    (korean-ksc5601    #x27 #x4D)      ; \e$(C'M\e(B
+    (korean-ksc5601    #x27 #x4D)      ; 
     ))
 (define-char
   '((name              . "SQUARE KB")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0063 #x0061 #x006C)
-    (korean-ksc5601    #x27 #x3A)      ; \e$(C':\e(B
+    (korean-ksc5601    #x27 #x3A)      ; 
     ))
 (define-char
   '((name              . "SQUARE KCAL")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x0063 #x0061 #x006C)
-    (korean-ksc5601    #x27 #x3B)      ; \e$(C';\e(B
+    (korean-ksc5601    #x27 #x3B)      ; 
     ))
 (define-char
   '((name              . "SQUARE PF")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0070 #x0046)
-    (korean-ksc5601    #x27 #x5C)      ; \e$(C'\\e(B
+    (korean-ksc5601    #x27 #x5C)      ; 
     ))
 (define-char
   '((name              . "SQUARE NF")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006E #x0046)
-    (korean-ksc5601    #x27 #x5D)      ; \e$(C']\e(B
+    (korean-ksc5601    #x27 #x5D)      ; 
     ))
 (define-char
   '((name              . "SQUARE MU F")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x03BC #x0046)
-    (korean-ksc5601    #x27 #x5E)      ; \e$(C'^\e(B
+    (korean-ksc5601    #x27 #x5E)      ; 
     ))
 (define-char
   '((name              . "SQUARE MU G")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x03BC #x0067)
-    (korean-ksc5601    #x27 #x36)      ; \e$(C'6\e(B
+    (korean-ksc5601    #x27 #x36)      ; 
     ))
 (define-char
   '((name              . "SQUARE MG")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x0067)
-    (korean-ksc5601    #x27 #x37)      ; \e$(C'7\e(B
-    (chinese-cns11643-1 #x22 #x75)     ; \e$(G"u\e(B
+    (korean-ksc5601            #x27 #x37)      ; 
+    (chinese-cns11643-1                #x22 #x75)      ; 
+    (japanese-jisx0213-1       #x2D #x53)      ; ㎎
     ))
 (define-char
   '((name              . "SQUARE KG")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x0067)
-    (korean-ksc5601    #x27 #x38)      ; \e$(C'8\e(B
-    (chinese-cns11643-1 #x22 #x76)     ; \e$(G"v\e(B
+    (korean-ksc5601            #x27 #x38)      ; 
+    (chinese-cns11643-1                #x22 #x76)      ; 
+    (japanese-jisx0213-1       #x2D #x54)      ; ㎏
     ))
 (define-char
   '((name              . "SQUARE HZ")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0048 #x007A)
-    (korean-ksc5601    #x27 #x54)      ; \e$(C'T\e(B
+    (korean-ksc5601    #x27 #x54)      ; 
     ))
 (define-char
   '((name              . "SQUARE KHZ")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x0048 #x007A)
-    (korean-ksc5601    #x27 #x55)      ; \e$(C'U\e(B
+    (korean-ksc5601    #x27 #x55)      ; 
     ))
 (define-char
   '((name              . "SQUARE MHZ")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x004D #x0048 #x007A)
-    (korean-ksc5601    #x27 #x56)      ; \e$(C'V\e(B
+    (korean-ksc5601    #x27 #x56)      ; 
     ))
 (define-char
   '((name              . "SQUARE GHZ")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0047 #x0048 #x007A)
-    (korean-ksc5601    #x27 #x57)      ; \e$(C'W\e(B
+    (korean-ksc5601    #x27 #x57)      ; 
     ))
 (define-char
   '((name              . "SQUARE THZ")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0054 #x0048 #x007A)
-    (korean-ksc5601    #x27 #x58)      ; \e$(C'X\e(B
+    (korean-ksc5601    #x27 #x58)      ; 
     ))
 (define-char
   '((name              . "SQUARE MU L")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x03BC #x2113)
-    (korean-ksc5601    #x27 #x21)      ; \e$(C'!\e(B
+    (korean-ksc5601    #x27 #x21)      ; 
     ))
 (define-char
   '((name              . "SQUARE ML")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x2113)
-    (korean-ksc5601    #x27 #x22)      ; \e$(C'"\e(B
+    (korean-ksc5601    #x27 #x22)      ; 
     ))
 (define-char
   '((name              . "SQUARE DL")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0064 #x2113)
-    (korean-ksc5601    #x27 #x23)      ; \e$(C'#\e(B
+    (korean-ksc5601    #x27 #x23)      ; 
     ))
 (define-char
   '((name              . "SQUARE KL")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x2113)
-    (korean-ksc5601    #x27 #x25)      ; \e$(C'%\e(B
+    (korean-ksc5601    #x27 #x25)      ; 
     ))
 (define-char
   '((name              . "SQUARE FM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0066 #x006D)
-    (korean-ksc5601    #x27 #x2B)      ; \e$(C'+\e(B
+    (korean-ksc5601    #x27 #x2B)      ; 
     ))
 (define-char
   '((name              . "SQUARE NM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006E #x006D)
-    (korean-ksc5601    #x27 #x2C)      ; \e$(C',\e(B
+    (korean-ksc5601    #x27 #x2C)      ; 
     ))
 (define-char
   '((name              . "SQUARE MU M")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x03BC #x006D)
-    (korean-ksc5601    #x27 #x2D)      ; \e$(C'-\e(B
+    (korean-ksc5601    #x27 #x2D)      ; 
     ))
 (define-char
   '((name              . "SQUARE MM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x006D)
-    (korean-ksc5601    #x27 #x2E)      ; \e$(C'.\e(B
-    (chinese-cns11643-1 #x22 #x70)     ; \e$(G"p\e(B
+    (korean-ksc5601            #x27 #x2E)      ; 
+    (chinese-cns11643-1                #x22 #x70)      ; 
+    (japanese-jisx0213-1       #x2D #x50)      ; ㎜
     ))
 (define-char
   '((name              . "SQUARE CM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0063 #x006D)
-    (korean-ksc5601    #x27 #x2F)      ; \e$(C'/\e(B
-    (chinese-cns11643-1 #x22 #x71)     ; \e$(G"q\e(B
+    (korean-ksc5601            #x27 #x2F)      ; 
+    (chinese-cns11643-1                #x22 #x71)      ; 
+    (japanese-jisx0213-1       #x2D #x51)      ; ㎝
     ))
 (define-char
   '((name              . "SQUARE KM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x006D)
-    (korean-ksc5601    #x27 #x30)      ; \e$(C'0\e(B
-    (chinese-cns11643-1 #x22 #x72)     ; \e$(G"r\e(B
+    (korean-ksc5601            #x27 #x30)      ; 
+    (chinese-cns11643-1                #x22 #x72)      ; 
+    (japanese-jisx0213-1       #x2D #x52)      ; ㎞
     ))
 (define-char
   '((name              . "SQUARE MM SQUARED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x006D #x00B2)
-    (korean-ksc5601    #x27 #x31)      ; \e$(C'1\e(B
+    (korean-ksc5601    #x27 #x31)      ; 
     ))
 (define-char
   '((name              . "SQUARE CM SQUARED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0063 #x006D #x00B2)
-    (korean-ksc5601    #x27 #x32)      ; \e$(C'2\e(B
+    (korean-ksc5601    #x27 #x32)      ; 
     ))
 (define-char
   '((name              . "SQUARE M SQUARED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x00B2)
-    (korean-ksc5601    #x27 #x33)      ; \e$(C'3\e(B
-    (chinese-cns11643-1 #x22 #x74)     ; \e$(G"t\e(B
+    (korean-ksc5601            #x27 #x33)      ; 
+    (chinese-cns11643-1                #x22 #x74)      ; 
+    (japanese-jisx0213-1       #x2D #x56)      ; ㎡
     ))
 (define-char
   '((name              . "SQUARE KM SQUARED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x006D #x00B2)
-    (korean-ksc5601    #x27 #x34)      ; \e$(C'4\e(B
+    (korean-ksc5601    #x27 #x34)      ; 
     ))
 (define-char
   '((name              . "SQUARE MM CUBED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x006D #x00B3)
-    (korean-ksc5601    #x27 #x27)      ; \e$(C''\e(B
+    (korean-ksc5601    #x27 #x27)      ; 
     ))
 (define-char
   '((name              . "SQUARE CM CUBED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0063 #x006D #x00B3)
-    (korean-ksc5601    #x27 #x28)      ; \e$(C'(\e(B
+    (korean-ksc5601    #x27 #x28)      ; 
     ))
 (define-char
   '((name              . "SQUARE M CUBED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x00B3)
-    (korean-ksc5601    #x27 #x29)      ; \e$(C')\e(B
+    (korean-ksc5601    #x27 #x29)      ; 
     ))
 (define-char
   '((name              . "SQUARE KM CUBED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x006D #x00B3)
-    (korean-ksc5601    #x27 #x2A)      ; \e$(C'*\e(B
+    (korean-ksc5601    #x27 #x2A)      ; 
     ))
 (define-char
   '((name              . "SQUARE M OVER S")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x2215 #x0073)
-    (korean-ksc5601    #x27 #x3D)      ; \e$(C'=\e(B
+    (korean-ksc5601    #x27 #x3D)      ; 
     ))
 (define-char
   '((name              . "SQUARE M OVER S SQUARED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x2215 #x0073 #x00B2)
-    (korean-ksc5601    #x27 #x3E)      ; \e$(C'>\e(B
+    (korean-ksc5601    #x27 #x3E)      ; 
     ))
 (define-char
   '((name              . "SQUARE PA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0050 #x0061)
-    (korean-ksc5601    #x27 #x65)      ; \e$(C'e\e(B
+    (korean-ksc5601    #x27 #x65)      ; 
     ))
 (define-char
   '((name              . "SQUARE KPA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x0050 #x0061)
-    (korean-ksc5601    #x27 #x66)      ; \e$(C'f\e(B
+    (korean-ksc5601    #x27 #x66)      ; 
     ))
 (define-char
   '((name              . "SQUARE MPA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x004D #x0050 #x0061)
-    (korean-ksc5601    #x27 #x67)      ; \e$(C'g\e(B
+    (korean-ksc5601    #x27 #x67)      ; 
     ))
 (define-char
   '((name              . "SQUARE GPA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0047 #x0050 #x0061)
-    (korean-ksc5601    #x27 #x68)      ; \e$(C'h\e(B
+    (korean-ksc5601    #x27 #x68)      ; 
     ))
 (define-char
   '((name              . "SQUARE RAD")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0072 #x0061 #x0064)
-    (korean-ksc5601    #x27 #x61)      ; \e$(C'a\e(B
+    (korean-ksc5601    #x27 #x61)      ; 
     ))
 (define-char
   '((name              . "SQUARE RAD OVER S")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0072 #x0061 #x0064 #x2215 #x0073)
-    (korean-ksc5601    #x27 #x62)      ; \e$(C'b\e(B
+    (korean-ksc5601    #x27 #x62)      ; 
     ))
 (define-char
   '((name              . "SQUARE RAD OVER S SQUARED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0072 #x0061 #x0064 #x2215 #x0073 #x00B2)
-    (korean-ksc5601    #x27 #x63)      ; \e$(C'c\e(B
+    (korean-ksc5601    #x27 #x63)      ; 
     ))
 (define-char
   '((name              . "SQUARE PS")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0070 #x0073)
-    (korean-ksc5601    #x27 #x3F)      ; \e$(C'?\e(B
+    (korean-ksc5601    #x27 #x3F)      ; 
     ))
 (define-char
   '((name              . "SQUARE NS")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006E #x0073)
-    (korean-ksc5601    #x27 #x40)      ; \e$(C'@\e(B
+    (korean-ksc5601    #x27 #x40)      ; 
     ))
 (define-char
   '((name              . "SQUARE MU S")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x03BC #x0073)
-    (korean-ksc5601    #x27 #x41)      ; \e$(C'A\e(B
+    (korean-ksc5601    #x27 #x41)      ; 
     ))
 (define-char
   '((name              . "SQUARE MS")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x0073)
-    (korean-ksc5601    #x27 #x42)      ; \e$(C'B\e(B
+    (korean-ksc5601    #x27 #x42)      ; 
     ))
 (define-char
   '((name              . "SQUARE PV")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0070 #x0056)
-    (korean-ksc5601    #x27 #x43)      ; \e$(C'C\e(B
+    (korean-ksc5601    #x27 #x43)      ; 
     ))
 (define-char
   '((name              . "SQUARE NV")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006E #x0056)
-    (korean-ksc5601    #x27 #x44)      ; \e$(C'D\e(B
+    (korean-ksc5601    #x27 #x44)      ; 
     ))
 (define-char
   '((name              . "SQUARE MU V")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x03BC #x0056)
-    (korean-ksc5601    #x27 #x45)      ; \e$(C'E\e(B
+    (korean-ksc5601    #x27 #x45)      ; 
     ))
 (define-char
   '((name              . "SQUARE MV")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x0056)
-    (korean-ksc5601    #x27 #x46)      ; \e$(C'F\e(B
+    (korean-ksc5601    #x27 #x46)      ; 
     ))
 (define-char
   '((name              . "SQUARE KV")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x0056)
-    (korean-ksc5601    #x27 #x47)      ; \e$(C'G\e(B
+    (korean-ksc5601    #x27 #x47)      ; 
     ))
 (define-char
   '((name              . "SQUARE MV MEGA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x004D #x0056)
-    (korean-ksc5601    #x27 #x48)      ; \e$(C'H\e(B
+    (korean-ksc5601    #x27 #x48)      ; 
     ))
 (define-char
   '((name              . "SQUARE PW")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0070 #x0057)
-    (korean-ksc5601    #x27 #x4E)      ; \e$(C'N\e(B
+    (korean-ksc5601    #x27 #x4E)      ; 
     ))
 (define-char
   '((name              . "SQUARE NW")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006E #x0057)
-    (korean-ksc5601    #x27 #x4F)      ; \e$(C'O\e(B
+    (korean-ksc5601    #x27 #x4F)      ; 
     ))
 (define-char
   '((name              . "SQUARE MU W")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x03BC #x0057)
-    (korean-ksc5601    #x27 #x50)      ; \e$(C'P\e(B
+    (korean-ksc5601    #x27 #x50)      ; 
     ))
 (define-char
   '((name              . "SQUARE MW")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x0057)
-    (korean-ksc5601    #x27 #x51)      ; \e$(C'Q\e(B
+    (korean-ksc5601    #x27 #x51)      ; 
     ))
 (define-char
   '((name              . "SQUARE KW")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x0057)
-    (korean-ksc5601    #x27 #x52)      ; \e$(C'R\e(B
+    (korean-ksc5601    #x27 #x52)      ; 
     ))
 (define-char
   '((name              . "SQUARE MW MEGA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x004D #x0057)
-    (korean-ksc5601    #x27 #x53)      ; \e$(C'S\e(B
+    (korean-ksc5601    #x27 #x53)      ; 
     ))
 (define-char
   '((name              . "SQUARE K OHM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x03A9)
-    (korean-ksc5601    #x27 #x5A)      ; \e$(C'Z\e(B
+    (korean-ksc5601    #x27 #x5A)      ; 
     ))
 (define-char
   '((name              . "SQUARE M OHM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x004D #x03A9)
-    (korean-ksc5601    #x27 #x5B)      ; \e$(C'[\e(B
+    (korean-ksc5601    #x27 #x5B)      ; 
     ))
 (define-char
   '((name              . "SQUARE AM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0061 #x002E #x006D #x002E)
-    (korean-ksc5601    #x22 #x63)      ; \e$(C"c\e(B
+    (korean-ksc5601    #x22 #x63)      ; 
     ))
 (define-char
   '((name              . "SQUARE BQ")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0042 #x0071)
-    (korean-ksc5601    #x27 #x6C)      ; \e$(C'l\e(B
+    (korean-ksc5601    #x27 #x6C)      ; 
     ))
 (define-char
   '((name              . "SQUARE CC")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0063 #x0063)
-    (korean-ksc5601    #x27 #x26)      ; \e$(C'&\e(B
-    (chinese-cns11643-1 #x22 #x77)     ; \e$(G"w\e(B
+    (korean-ksc5601            #x27 #x26)      ; 
+    (chinese-cns11643-1                #x22 #x77)      ; 
+    (japanese-jisx0213-1       #x2D #x55)      ; ㏄
     ))
 (define-char
   '((name              . "SQUARE CD")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0063 #x0064)
-    (korean-ksc5601    #x27 #x60)      ; \e$(C'`\e(B
+    (korean-ksc5601    #x27 #x60)      ; 
     ))
 (define-char
   '((name              . "SQUARE C OVER KG")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0043 #x2215 #x006B #x0067)
-    (korean-ksc5601    #x27 #x6F)      ; \e$(C'o\e(B
+    (korean-ksc5601    #x27 #x6F)      ; 
     ))
 (define-char
   '((name              . "SQUARE CO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0043 #x006F #x002E)
-    (korean-ksc5601    #x22 #x61)      ; \e$(C"a\e(B
+    (korean-ksc5601    #x22 #x61)      ; 
     ))
 (define-char
   '((name              . "SQUARE DB")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0064 #x0042)
-    (korean-ksc5601    #x27 #x3C)      ; \e$(C'<\e(B
+    (korean-ksc5601    #x27 #x3C)      ; 
     ))
 (define-char
   '((name              . "SQUARE GY")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0047 #x0079)
-    (korean-ksc5601    #x27 #x6D)      ; \e$(C'm\e(B
+    (korean-ksc5601    #x27 #x6D)      ; 
     ))
 (define-char
   '((name              . "SQUARE HA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0068 #x0061)
-    (korean-ksc5601    #x27 #x35)      ; \e$(C'5\e(B
+    (korean-ksc5601    #x27 #x35)      ; 
     ))
 (define-char
   '((name              . "SQUARE HP")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0048 #x0050)
+    (japanese-jisx0213-1       #x23 #x5E)      ; ㏋
     ))
 (define-char
   '((name              . "SQUARE IN")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x004B #x004B)
+    (japanese-jisx0213-1       #x2D #x63)      ; ㏍
     ))
 (define-char
   '((name              . "SQUARE KM CAPITAL")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x004B #x004D)
-    (chinese-cns11643-1 #x22 #x73)     ; \e$(G"s\e(B
+    (chinese-cns11643-1 #x22 #x73)     ; 
     ))
 (define-char
   '((name              . "SQUARE KT")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006B #x0074)
-    (korean-ksc5601    #x27 #x39)      ; \e$(C'9\e(B
+    (korean-ksc5601    #x27 #x39)      ; 
     ))
 (define-char
   '((name              . "SQUARE LM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006C #x006D)
-    (korean-ksc5601    #x27 #x6A)      ; \e$(C'j\e(B
+    (korean-ksc5601    #x27 #x6A)      ; 
     ))
 (define-char
   '((name              . "SQUARE LN")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006C #x006E)
-    (chinese-cns11643-1 #x22 #x4C)     ; \e$(G"L\e(B
+    (chinese-cns11643-1 #x22 #x4C)     ; 
     ))
 (define-char
   '((name              . "SQUARE LOG")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006C #x006F #x0067)
-    (chinese-cns11643-1 #x22 #x4B)     ; \e$(G"K\e(B
+    (chinese-cns11643-1 #x22 #x4B)     ; 
     ))
 (define-char
   '((name              . "SQUARE LX")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006C #x0078)
-    (korean-ksc5601    #x27 #x6B)      ; \e$(C'k\e(B
+    (korean-ksc5601    #x27 #x6B)      ; 
     ))
 (define-char
   '((name              . "SQUARE MB SMALL")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x0069 #x006C)
-    (chinese-cns11643-1 #x22 #x6F)     ; \e$(G"o\e(B
+    (chinese-cns11643-1 #x22 #x6F)     ; 
     ))
 (define-char
   '((name              . "SQUARE MOL")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x006D #x006F #x006C)
-    (korean-ksc5601    #x27 #x5F)      ; \e$(C'_\e(B
+    (korean-ksc5601    #x27 #x5F)      ; 
     ))
 (define-char
   '((name              . "SQUARE PH")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0070 #x002E #x006D #x002E)
-    (korean-ksc5601    #x22 #x64)      ; \e$(C"d\e(B
+    (korean-ksc5601    #x22 #x64)      ; 
     ))
 (define-char
   '((name              . "SQUARE PPM")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0073 #x0072)
-    (korean-ksc5601    #x27 #x64)      ; \e$(C'd\e(B
+    (korean-ksc5601    #x27 #x64)      ; 
     ))
 (define-char
   '((name              . "SQUARE SV")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0053 #x0076)
-    (korean-ksc5601    #x27 #x6E)      ; \e$(C'n\e(B
+    (korean-ksc5601    #x27 #x6E)      ; 
     ))
 (define-char
   '((name              . "SQUARE WB")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   square #x0057 #x0062)
-    (korean-ksc5601    #x27 #x69)      ; \e$(C'i\e(B
+    (korean-ksc5601    #x27 #x69)      ; 
     ))
 (define-char
   '((name              . "IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ONE")