diff options
| author | Takuji Tanaka <KXD02663@nifty.ne.jp> | 2017-04-09 08:15:00 +0000 |
|---|---|---|
| committer | Takuji Tanaka <KXD02663@nifty.ne.jp> | 2017-04-09 08:15:00 +0000 |
| commit | 60a40e531d791469d825d3f2a8d6aa8ba4ac46f2 (patch) | |
| tree | 838df9e6d97b638251bec327dff3e3eb46eacff6 /Build/source/texk/web2c/ptexdir/ptex-base.ch | |
| parent | 079fcd037d5b13684545e6bdeae82f8792f8b9dd (diff) | |
(u)pTeX: bug fix on \endlinechar by Kitagawa-san
git-svn-id: svn://tug.org/texlive/trunk@43720 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch')
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index ea83b1719c2..abfe5925cdd 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -1711,7 +1711,11 @@ start_cs: sequence is found, adjust |cur_cs| and |loc|, and |goto found|@> else @<If an expanded code is present, reduce it and |goto start_cs|@>; - cur_cs:=single_base+buffer[loc]; incr(loc); + {single-letter control sequence} + if (cat=kanji)or(cat=kana) then + begin cur_cs:=id_lookup(loc,k-loc); loc:=k; goto found; + end + else begin cur_cs:=single_base+buffer[loc]; incr(loc); end; end; found: cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs); if cur_cmd>=outer_call then check_outer_validity; |