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/ChangeLog | 5 +++++ Build/source/texk/web2c/ptexdir/ptex-base.ch | 21 ++++++++++++++++++++- Build/source/texk/web2c/ptexdir/ptex_version.h | 2 +- 3 files changed, 26 insertions(+), 2 deletions(-) (limited to 'Build') diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 7651f29549d..32ea8210fe4 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,8 @@ +2016-06-06 Hironori Kitagawa + + * ptex-base.ch: Fix a bug in check_box(). + ptex_version.h: pTeX version p3.7.1. + 2016-03-04 Hironori Kitagawa * ptex-base.ch: Add new primitives \textbaselineshiftfactor (=1000), 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; diff --git a/Build/source/texk/web2c/ptexdir/ptex_version.h b/Build/source/texk/web2c/ptexdir/ptex_version.h index edc2cafb029..56771ffb53d 100644 --- a/Build/source/texk/web2c/ptexdir/ptex_version.h +++ b/Build/source/texk/web2c/ptexdir/ptex_version.h @@ -1 +1 @@ -#define PTEX_VERSION "p3.7" +#define PTEX_VERSION "p3.7.1" -- cgit v1.2.3