summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/ptex-base.ch
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2015-09-10 06:15:32 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2015-09-10 06:15:32 +0000
commit010a3cf796712768b235551e994c0bf79da930b5 (patch)
tree0a1ca43df39cca65c788340f7ad4f4ce749e451f /Build/source/texk/web2c/ptexdir/ptex-base.ch
parentc07e77acfd9fdffb0aa40310c1ec8d328d9af291 (diff)
web2c/ptexdir: Bug fix by H. Kitagawa in flushing choice node.
git-svn-id: svn://tug.org/texlive/trunk@38333 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.ch25
1 files changed, 24 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index 78704286d85..21875f8666e 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -9,7 +9,7 @@
% Yoichi Kawabata (kawabata@canon.co.jp),
% Makoto Kobayashi (makoto@lloem.fujidenki.co.jp),
% Yoshihiro Aoki (aoki@tokyo-shoseki-ptg.co.jp),
-% Akira Kakuto (kakuto@fsci.fuk.kindai.ac.jp).
+% Akira Kakuto (kakuto@fuk.kindai.ac.jp).
% Koich Inoue (inoue@ma.ns.musashi-tech.ac.jp).
%
% (??/??/87) RKS jTeX 2.9 -- j1.0
@@ -51,6 +51,7 @@
% (2013-04-09) PB pTeX p3.4 (TL 2013)
% (2014-04-17) KB pTeX p3.5 (TL 2014)
% (2014-03-15) KB pTeX p3.6 (TL 2015)
+% (2015-09-10) AK pTeX p3.7 Bug fix by Hironori Kitagawa in flushing choice node.
%
@x [1.2] l.200 - pTeX:
@d banner==TeX_banner
@@ -3418,6 +3419,28 @@ accent_noad: begin print_esc("accent");
print_fam_and_char(accent_chr(p),math_char);
@z
+@x pTeX: flush choice_node
+ begin if math_type(nucleus(p))>=sub_box then
+ flush_node_list(info(nucleus(p)));
+ if math_type(supscr(p))>=sub_box then
+ flush_node_list(info(supscr(p)));
+ if math_type(subscr(p))>=sub_box then
+ flush_node_list(info(subscr(p)));
+@y
+ begin if (math_type(nucleus(p))>=sub_box)
+ and (math_type(nucleus(p))<>math_jchar)
+ and (math_type(nucleus(p))<>math_text_jchar) then
+ flush_node_list(info(nucleus(p)));
+ if math_type(supscr(p))>=sub_box
+ and (math_type(supscr(p))<>math_jchar)
+ and (math_type(supscr(p))<>math_text_jchar) then
+ flush_node_list(info(supscr(p)));
+ if math_type(subscr(p))>=sub_box
+ and (math_type(subscr(p))<>math_jchar)
+ and (math_type(subscr(p))<>math_text_jchar) then
+ flush_node_list(info(subscr(p)));
+@z
+
@x [35.715] l.14687 - pTeX: rebox
begin if type(b)=vlist_node then b:=hpack(b,natural);
p:=list_ptr(b);