From dd7800396fbf08c2385608316ffa46f096ae12f6 Mon Sep 17 00:00:00 2001
From: Akira Kakuto <kakuto@fuk.kindai.ac.jp>
Date: Thu, 8 Mar 2012 14:08:14 +0000
Subject: fix a long-remained bug in show_context

git-svn-id: svn://tug.org/texlive/trunk@25581 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/web2c/ptexdir/ChangeLog    | 4 ++++
 Build/source/texk/web2c/ptexdir/ptex-base.ch | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'Build/source/texk/web2c/ptexdir')

diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index 734a649903d..d6b086c7b7a 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-08  Akira Kakuto  <kakuto@fuk.kindai.ac.jp>
+
+	* ptex-base.ch: fix a long-remained bug in show_context.
+
 2012-03-04  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	Avoid 'differ in signedness' warnings.
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index c62b9ac59c3..215fc411648 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -1549,7 +1549,7 @@ if token_type<macro then
   begin  if (token_type=backed_up)and(loc<>null) then
     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));
       cur_input:=input_stack[base_ptr];
       link(start):=s;
       show_token_list(start,loc,100000);
-- 
cgit v1.2.3