diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2012-03-08 14:08:14 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2012-03-08 14:08:14 +0000 |
commit | dd7800396fbf08c2385608316ffa46f096ae12f6 (patch) | |
tree | a54daff2af0df9280f1ce4434c70236b3cfeb027 /Build/source/texk/web2c/uptexdir/uptex-m.ch | |
parent | a4e2778e724aedb8554d8280674d675591d7386f (diff) |
fix a long-remained bug in show_context
git-svn-id: svn://tug.org/texlive/trunk@25581 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/uptex-m.ch')
-rw-r--r-- | Build/source/texk/web2c/uptexdir/uptex-m.ch | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/uptexdir/uptex-m.ch b/Build/source/texk/web2c/uptexdir/uptex-m.ch index 5ff0d91e6df..4c68f806fcf 100644 --- a/Build/source/texk/web2c/uptexdir/uptex-m.ch +++ b/Build/source/texk/web2c/uptexdir/uptex-m.ch @@ -352,11 +352,11 @@ if ((kcp mod @'10)>0)and(nrestmultichr(kcp)>0) then p:=p-(kcp mod @'10); @x begin if (link(start)=null)and(check_kanji(info(start))) then {|wchar_token|} begin cur_input:=input_stack[base_ptr-1]; - s:=get_avail; info(s):=Lo(buffer[loc]); + s:=get_avail; info(s):=Lo(info(loc)); @y begin if (link(start)=null)and(check_kanji(info(start))) then {|wchar_token|} begin cur_input:=input_stack[base_ptr-1]; - s:=get_avail; info(s):=(buffer[loc] mod max_char_val); + s:=get_avail; info(s):=(info(loc) mod max_char_val); @z @x |