summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tests/aftergroupout.tex
blob: 9e2d47a96df230092adc7dc1fa25f61d2d5b0623 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
% $Id$
% Public domain. Based on a post by David Carlisle to tex-live,
% https://tug.org/pipermail/tex-live/2024-March/050292.html
% 
% See ./unbalanced-braces.tex for background.
% 
\catcode`\{=1 \catcode`\}=2
\pdfoutput = 1
\pdfmapline{cmr10 CMR10 <cmr10.pfb}
\font\f = cmr10 \f
\hsize=6in
\vsize=9in
\parfillskip=0pt plus1fil

% with original TL24 binaries, \aftergroup on the \output routine didn't work.
\def\xxx{\aftergroup A\global\let\xxx\relax}

\output{\xxx\global\advance\count0 by 1 \shipout\box255}

page1

\penalty-10000

page2

\end