summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/ptexdir/kanji.c4
2 files changed, 7 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index cc07b4c3372..a754ccc6f24 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-06 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * kanji.c: More strict check kanji token.
+
2018-04-14 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
* ptex-base.ch: Fix issue GitHub:texjporg/tex-jp-build#57
diff --git a/Build/source/texk/web2c/ptexdir/kanji.c b/Build/source/texk/web2c/ptexdir/kanji.c
index d7e5a3f26be..5cd9ebabe02 100644
--- a/Build/source/texk/web2c/ptexdir/kanji.c
+++ b/Build/source/texk/web2c/ptexdir/kanji.c
@@ -4,6 +4,7 @@
*/
#include "kanji.h"
+#define CS_TOKEN_FLAG 0xFFFF
#if !defined(WIN32)
int sjisterminal;
@@ -12,7 +13,8 @@ int sjisterminal;
/* TOKEN */
boolean check_kanji(integer c)
{
- return is_char_kanji(c);
+ if (c >= CS_TOKEN_FLAG) return false;
+ else return is_char_kanji(c);
}
boolean is_char_ascii(integer c)