(\GTpj[A-M]): Use \char\jis"#1 instead of \char"#1.

diff --git a/platex/chiseotf.sty b/platex/chiseotf.sty
index ac44e65..2157826 100644 (file)
--- a/platex/chiseotf.sty
+++ b/platex/chiseotf.sty
@@ -215,43 +215,43 @@
 \DeclareFontShape{JT1}{gto13}{bx}{n}{<-> s * [0.961] gto13-v}{}
 
 \DeclareRobustCommand{\GTpjA}[1]{\begingroup%
-  \kanjifamily{gto01}\selectfont\char"#1\endgroup
+  \kanjifamily{gto01}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjB}[1]{\begingroup%
-  \kanjifamily{gto02}\selectfont\char"#1\endgroup
+  \kanjifamily{gto02}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjC}[1]{\begingroup%
-  \kanjifamily{gto03}\selectfont\char"#1\endgroup
+  \kanjifamily{gto03}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjD}[1]{\begingroup%
-  \kanjifamily{gto04}\selectfont\char"#1\endgroup
+  \kanjifamily{gto04}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjE}[1]{\begingroup%
-  \kanjifamily{gto05}\selectfont\char"#1\endgroup
+  \kanjifamily{gto05}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjF}[1]{\begingroup%
-  \kanjifamily{gto06}\selectfont\char"#1\endgroup
+  \kanjifamily{gto06}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjG}[1]{\begingroup%
-  \kanjifamily{gto07}\selectfont\char"#1\endgroup
+  \kanjifamily{gto07}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjH}[1]{\begingroup%
-  \kanjifamily{gto08}\selectfont\char"#1\endgroup
+  \kanjifamily{gto08}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjI}[1]{\begingroup%
-  \kanjifamily{gto09}\selectfont\char"#1\endgroup
+  \kanjifamily{gto09}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjJ}[1]{\begingroup%
-  \kanjifamily{gto10}\selectfont\char"#1\endgroup
+  \kanjifamily{gto10}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjK}[1]{\begingroup%
-  \kanjifamily{gto11}\selectfont\char"#1\endgroup
+  \kanjifamily{gto11}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjL}[1]{\begingroup%
-  \kanjifamily{gto12}\selectfont\char"#1\endgroup
+  \kanjifamily{gto12}\selectfont\char\jis"#1\endgroup
 }
 \DeclareRobustCommand{\GTpjM}[1]{\begingroup%
-  \kanjifamily{gto13}\selectfont\char"#1\endgroup
+  \kanjifamily{gto13}\selectfont\char\jis"#1\endgroup
 }
 
 \DeclareFontFamily{T1}{chisesub000}{}