From b0ec485795614c8d2fc48393ce8414ebcb097b65 Mon Sep 17 00:00:00 2001 From: Akira Kakuto Date: Mon, 6 Jun 2016 20:33:56 +0000 Subject: ptexdir: H. Kitagawa fixed a bug in check_box() git-svn-id: svn://tug.org/texlive/trunk@41295 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ptexdir/ptex-base.ch | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch') diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 42bc118e454..f8ebc5d8dc7 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -54,12 +54,14 @@ % (2015-09-10) AK pTeX p3.7 Bug fix by Hironori Kitagawa in flushing choice node. % (2016-03-04) AK Hironori Kitagawa added new primitives to improve typesetting % with non-vanishing \ybaselineshift. +% (2016-06-06) AK Hironori Kitagawa fixed a bug in check_box(box_p:pointer). +% pTeX p3.7.1. % @x [1.2] l.200 - pTeX: @d banner==TeX_banner @d banner_k==TeX_banner_k @y -@d pTeX_version_string=='-p3.7' {current p\TeX\ version} +@d pTeX_version_string=='-p3.7.1' {current p\TeX\ version} @# @d pTeX_banner=='This is pTeX, Version 3.14159265',pTeX_version_string @d pTeX_banner_k==pTeX_banner @@ -6502,6 +6504,23 @@ while p<>null do last_char:=p; flag:=true; end else do_nothing; {\.{\\beginR} etc.} + kern_node: + if subtype(p)=acc_kern then + begin p:=link(p); + if is_char_node(p) then + if font_dir[font(p)]<>dir_default then p:=link(p); + p:=link(link(p)); + if find_first_char then + begin find_first_char:=false; first_char:=p; + end; + last_char:=p; flag:=true; + if font_dir[font(p)]<>dir_default then p:=link(p); + end + else + begin flag:=true; + if find_first_char then find_first_char:=false + else last_char:=null; + end; othercases begin flag:=true; if find_first_char then find_first_char:=false else last_char:=null; -- cgit v1.2.3