summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/ptex-base.ch
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-06-06 20:33:56 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-06-06 20:33:56 +0000
commitb0ec485795614c8d2fc48393ce8414ebcb097b65 (patch)
treebfe7e79e1f3a14f58701929bdb9e5809e877d484 /Build/source/texk/web2c/ptexdir/ptex-base.ch
parentbec6081194da3796fb20d9e6ec52d84a9a8b8b23 (diff)
ptexdir: H. Kitagawa fixed a bug in check_box()
git-svn-id: svn://tug.org/texlive/trunk@41295 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.ch21
1 files changed, 20 insertions, 1 deletions
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;