summaryrefslogtreecommitdiff
path: root/tex/context/base/page-lay.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/page-lay.mkiv')
-rw-r--r--tex/context/base/page-lay.mkiv21
1 files changed, 17 insertions, 4 deletions
diff --git a/tex/context/base/page-lay.mkiv b/tex/context/base/page-lay.mkiv
index e30d76245..e397e2c78 100644
--- a/tex/context/base/page-lay.mkiv
+++ b/tex/context/base/page-lay.mkiv
@@ -367,12 +367,25 @@
\page_paper_restore
\fi}
-\unexpanded\def\setup_paper_size_settings[#1]%
+\unexpanded\def\setup_paper_size_settings[#1]% sometimes used to set paper/print size
{\let\currentlayouttarget\empty
+ \edef\tmp_layouttarget_paper_saved{\page_paper_the_paper_size{\layouttargetparameter\c!page }}%
+ \edef\tmp_layouttarget_print_saved{\page_paper_the_print_size{\layouttargetparameter\c!paper}}%
\setupcurrentlayouttarget[#1]%
\edef\tmp_layouttarget_paper{\page_paper_the_paper_size{\layouttargetparameter\c!page }}%
\edef\tmp_layouttarget_print{\page_paper_the_print_size{\layouttargetparameter\c!paper}}%
- \ifx\tmp_layouttarget_paper\empty
+ \ifx\tmp_layouttarget_paper_saved\tmp_layouttarget_paper
+ \ifx\tmp_layouttarget_print_saved\tmp_layouttarget_print
+ % we didn't change the size, maybe only sx or sy or so
+ \else
+ \setup_paper_size_settings_recalibrate
+ \fi
+ \else
+ \setup_paper_size_settings_recalibrate
+ \fi}
+
+\def\setup_paper_size_settings_recalibrate
+ {\ifx\tmp_layouttarget_paper\empty
% forget about it
\else
\ifx\tmp_layouttarget_print\empty
@@ -822,9 +835,9 @@
\begingroup % needed ?
\uselayoutstyleandcolor\c!style\c!color
\offinterlineskip
- \gettextboxes
+ \page_insert_elements % zero size
\endgroup
- \getmainbox#1#2}}% including footnotes
+ \page_insert_body#1#2}}% including footnotes
\installlayoutalternative\v!default{\page_boxes_construct_content_default}
\installlayoutalternative\v!normal {\page_boxes_construct_content_default}