diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2015-09-10 06:15:32 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2015-09-10 06:15:32 +0000 |
commit | 010a3cf796712768b235551e994c0bf79da930b5 (patch) | |
tree | 0a1ca43df39cca65c788340f7ad4f4ce749e451f /Build/source/texk/web2c/ptexdir/ptex-base.ch | |
parent | c07e77acfd9fdffb0aa40310c1ec8d328d9af291 (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.ch | 25 |
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); |