From 05dfaaef40a4dc5ac8b48618d25a91cb95488b4c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 6 Nov 2021 20:40:50 +0000 Subject: pwebmac (6nov21) git-svn-id: svn://tug.org/texlive/trunk@60979 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/plain/pwebmac/pwebmac.tex | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/tex/plain') diff --git a/Master/texmf-dist/tex/plain/pwebmac/pwebmac.tex b/Master/texmf-dist/tex/plain/pwebmac/pwebmac.tex index 2eb713f8c0e..3dac11f4bc4 100644 --- a/Master/texmf-dist/tex/plain/pwebmac/pwebmac.tex +++ b/Master/texmf-dist/tex/plain/pwebmac/pwebmac.tex @@ -239,11 +239,11 @@ \message{*\modno} % progress report \def\stripprefix##1>{}\def\gtitletoks{#2}% \edef\gtitletoks{\expandafter\stripprefix\meaning\gtitletoks}% - \edef\next{\write\cont{\Z{#2}{\modno}% write to contents file + \edef\next{\write\cont{\Z{\gtitletoks}{\modno}% write to contents file {\noexpand\the\pageno}{\the\toksE}}}\next % \Z{title}{sec}{page}{ss} \ifpdf\special{pdf: outline 0 << /Title (\the\toksE) /Dest [ @thispage /FitH @ypos ] >>}\fi - \ifon\startsection{\bf#2.\quad}\ignorespaces} + \ifon\startsection{\bf\ignorespaces#2.\quad}\ignorespaces} \def\MN#1.{\par % common code for \M, \N {\xdef\modstar{#1}\let\*=\empty\xdef\modno{#1}}% remove \* from section name \ifx\modno\modstar \onmaybe \else\ontrue \fi @@ -339,7 +339,7 @@ \write\cont{\catcode `\noexpand\@=12\relax} % \makeatother \closeout\cont % the contents information has been fully gathered \output{\ifpagesaved\normaloutput{\box\sbox}\lheader\rheader\fi - \global\setbox\sbox=\page \global\pagesavedtrue} + \global\setbox\sbox=\page \global\pagesavedtrue \mark{\topmark}} \pagesavedfalse \eject % eject the page-so-far and predecessors \setbox\sbox\vbox{\unvbox\sbox} % take it out of its box \vsize=\pageheight \advance\vsize by -\ht\sbox % the remaining height -- cgit v1.2.3