diff options
author | Karl Berry <karl@freefriends.org> | 2018-03-20 22:37:12 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-03-20 22:37:12 +0000 |
commit | fee6f3609ee8ecf3233151f9c7962ce65b7223a2 (patch) | |
tree | 414bc83561d8706824e20fbbb1ce50ef6caf9493 /Build/source/texk/web2c/pdftexdir/pdftex.web | |
parent | 65d009a0596b194597f47531523addd3e64ed005 (diff) |
handle nested xforms
git-svn-id: svn://tug.org/texlive/trunk@47051 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pdftexdir/pdftex.web')
-rw-r--r-- | Build/source/texk/web2c/pdftexdir/pdftex.web | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web index e570526488e..86bd827890e 100644 --- a/Build/source/texk/web2c/pdftexdir/pdftex.web +++ b/Build/source/texk/web2c/pdftexdir/pdftex.web @@ -19310,6 +19310,9 @@ if pdf_obj_list <> null then begin end; end +@ @<Glob...@>= +@!saved_pdf_cur_form: integer; + @ When flushing pending forms we need to save and restore resource lists (|pdf_font_list|, |pdf_obj_list|, |pdf_xform_list| and |pdf_ximage_list|), which are also used by page shipping. @@ -19319,10 +19322,12 @@ if pdf_xform_list <> null then begin k := pdf_xform_list; while k <> null do begin if not is_obj_written(info(k)) then begin + saved_pdf_cur_form := pdf_cur_form; pdf_cur_form := info(k); @<Save resource lists@>; @<Reset resource lists@>; pdf_ship_out(obj_xform_box(pdf_cur_form), false); + pdf_cur_form := saved_pdf_cur_form; @<Restore resource lists@>; end; k := link(k); |