diff options
| author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2012-07-17 13:23:24 +0000 |
|---|---|---|
| committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2012-07-17 13:23:24 +0000 |
| commit | 9f994061eae6b8f96ff93f0e22f409268823fb5c (patch) | |
| tree | 641066041aedfd5e26708ba1085dc1e41d73ae7e /Build/source/texk/web2c/ptexdir | |
| parent | 6d3ed5616046046278577f23609e0258757a6612 (diff) | |
bug fix from H. Kitagawa
git-svn-id: svn://tug.org/texlive/trunk@27076 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 5 | ||||
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 4eda595b09e..fb056210058 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,8 @@ +2012-07-17 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * ptex-base.ch: fix a bug in + @<Scan an alphabetic character code into |cur_val|@> + 2012-07-15 Peter Breitenlohner <peb@mppmu.mpg.de> * pbibtex.ch, pdvitype.ch, ppltotf.ch, ptftopl.ch: diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 4b553a5d612..cd4d3a5c262 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -2149,7 +2149,7 @@ if cur_tok<cs_token_flag then else if cur_tok<cs_token_flag+single_base then cur_val:=cur_tok-cs_token_flag-active_base else cur_val:=cur_tok-cs_token_flag-single_base; -if (cur_val>255)and(cur_cmd<kanji) then +if (cur_val>255)and((cur_cmd<kanji)or(cur_cmd>max_char_code)) then begin print_err("Improper alphabetic or KANJI constant"); @.Improper alphabetic constant@> help2("A one-character control sequence belongs after a ` mark.")@/ |