diff options
author | Karl Berry <karl@freefriends.org> | 2015-04-13 22:09:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-04-13 22:09:26 +0000 |
commit | ab9be52a67d39f40115219e0f9bc910e2f3fe161 (patch) | |
tree | 4733e546b3e768b05f371ec3d7996eac0d29f7a5 /Master/texmf-dist/tex/latex/eledmac/eledpar.sty | |
parent | 8562bba79a44a820fa5d61677186442b48d889e6 (diff) |
eledmac (13apr15)
git-svn-id: svn://tug.org/texlive/trunk@36840 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/eledmac/eledpar.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/eledmac/eledpar.sty | 508 |
1 files changed, 269 insertions, 239 deletions
diff --git a/Master/texmf-dist/tex/latex/eledmac/eledpar.sty b/Master/texmf-dist/tex/latex/eledmac/eledpar.sty index 07d9fadb905..f1fd61f5c34 100644 --- a/Master/texmf-dist/tex/latex/eledmac/eledpar.sty +++ b/Master/texmf-dist/tex/latex/eledmac/eledpar.sty @@ -23,7 +23,7 @@ %% This work consists of the files listed in the README file. %% \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{eledpar}[2015/03/22 v1.14.0 eledmac extension for parallel texts]% +\ProvidesPackage{eledpar}[2015/04/13 v1.15.0 eledmac extension for parallel texts]% \RequirePackage{xspace}% \newif\ifshiftedpstarts @@ -166,19 +166,28 @@ \ifx\@tempa\@tempb \global\bypage@Rtrue \global\bypstart@Rfalse + \unless\ifnocritical@% + \pstartinfootnote[][false]% + \fi% \else \def\@tempb{pstart}% \ifx\@tempa\@tempb \global\bypage@Rfalse \global\bypstart@Rtrue + \unless\ifnocritical@% + \pstartinfootnote% + \fi% \else \def@tempb{section} \ifx\@tempa\@tempb - \global\bypage@Rfalse - \global\bypstart@Rfalse + \global\bypage@Rfalse% + \global\bypstart@Rfalse% + \unless\ifnocritical@% + \pstartinfootnote[][false]% + \fi% \else \led@warn@BadLineation - \fi + \fi% \fi \fi \fi}} @@ -550,15 +559,6 @@ \fi} \global\let\lock@off=\do@lockoff -\providecommand*{\n@num}{} -\renewcommand*{\n@num}{% - \ifledRcol - \xright@appenditem{\the\absline@numR}\to\actionlines@listR - \xright@appenditem{-1007}\to\actions@listR - \else - \n@num@reg - \fi} - \newcount\insert@countR \renewcommand*{\@ref}[2]{% \ifledRcol @@ -668,13 +668,6 @@ \else \write\linenum@out{\string\lock@off}% \fi} -\renewcommand*{\skipnumbering}{% - \ifledRcol \write\linenum@outR{\string\n@num}% - \advanceline{-1}% - \else - \skipnumbering@reg - \fi} - \renewcommand*{\set@line}{% \ifledRcol @@ -698,35 +691,44 @@ \fi} \newcommand{\newseries@eledpar}[1]{% - \csgdef{onlysideX@#1}{}% - \csgdef{onlyXside@#1}{}% - \global\newbool{keepforXside@#1}% - \global\newbool{keepforsideX@#1}% - \expandafter\list@create\csname footnote#1@mk\endcsname% - \expandafter\newcommand\csname footnote#1nomk\endcsname[1]{% - \toggletrue{nomk@}% - \csuse{footnote#1}{##1}% - \togglefalse{nomk@}% - \letcs{\@tmp}{footnote#1@mk}% - \numdef\@tmpa{\csuse{c@footnote#1}}% - \global\xright@appenditem{\@tmpa}\to\@tmp% - \global\cslet{footnote#1@mk}{\@tmp}% - }% - \expandafter\newcommand\csname footnote#1mk\endcsname{% - \letcs{\@tmp}{footnote#1@mk}% - \gl@p\@tmp\to\@tmpa% - \global\cslet{footnote#1@mk}{\@tmp}% - \letcs{\old@footnote}{c@footnote#1}% - \setcounter{footnote#1}{\@tmpa}% - \protected@csxdef{@thefnmark#1}{\csuse{thefootnote#1}}% - \csuse{@footnotemark#1}% - \setcounter{footnote#1}{\old@footnote}% - \xspace% - }% + \unless\ifnocritical@% + \csgdef{onlysideX@#1}{}% + \global\newbool{keepforXside@#1}% + \fi% + \unless\ifnofamiliar@% + \global\newbool{keepforsideX@#1}% + \csgdef{onlyXside@#1}{}% + \fi% + \unless\ifnofamiliar@% + \expandafter\list@create\csname footnote#1@mk\endcsname% + \expandafter\newcommand\csname footnote#1nomk\endcsname[1]{% + \toggletrue{nomk@}% + \csuse{footnote#1}{##1}% + \togglefalse{nomk@}% + \letcs{\@tmp}{footnote#1@mk}% + \numdef\@tmpa{\csuse{c@footnote#1}}% + \global\xright@appenditem{\@tmpa}\to\@tmp% + \global\cslet{footnote#1@mk}{\@tmp}% + }% + \expandafter\newcommand\csname footnote#1mk\endcsname{% + \letcs{\@tmp}{footnote#1@mk}% + \gl@p\@tmp\to\@tmpa% + \global\cslet{footnote#1@mk}{\@tmp}% + \letcs{\old@footnote}{c@footnote#1}% + \setcounter{footnote#1}{\@tmpa}% + \protected@csxdef{@thefnmark#1}{\csuse{thefootnote#1}}% + \csuse{@footnotemark#1}% + \setcounter{footnote#1}{\old@footnote}% + \xspace% + }% + \fi }% -\newhookcommand@series{onlysideX}% - -\newhookcommand@series{onlyXside}% +\unless\ifnocritical@% + \newhookcommand@series{onlyXside}% +\fi% +\unless\ifnofamiliar@% + \newhookcommand@series{onlysideX}% +\fi \newcommand{\init@series@eledpar}{% \def\do##1{\newseries@eledpar{##1}}% @@ -884,6 +886,7 @@ \ifstrempty{#1}% {\csgdef{before@pstartL@\the\l@dnumpstartsL}{\at@every@pstart}}% {\csgdef{before@pstartL@\the\l@dnumpstartsL}{\noindent#1}}% + \at@every@pstart@call% } \newcommandx*{\pstartR}[1][1]{% \if@nobreak% @@ -931,6 +934,7 @@ \ifstrempty{#1}% {\csgdef{before@pstartR@\the\l@dnumpstartsR}{\at@every@pstart}}% {\csgdef{before@pstartR@\the\l@dnumpstartsR}{\noindent#1}}% + \at@every@pstart@call% } \newcommandx*{\pendL}[1][1]{% \ifnumbering \else% @@ -977,6 +981,8 @@ {\csgdef{after@pendR@\the\l@dnumpstartsR}{\noindent#1}}% } +\newcommand{\AtEveryPstartCall}[1]{\xdef\at@every@pstart@call{\unexpanded{#1}}}% +\gdef\at@every@pstart@call{}% \newif\ifprint@last@after@pendL% \newif\ifprint@last@after@pendR% \newbox\l@dleftbox @@ -994,34 +1000,39 @@ \newcommand*{\do@lineL}{% \letcs{\ifnumberpstart}{numberpstart@L\the\l@dpscL}% - \advance\countLline \@ne + \advance\countLline \@ne% \ifvbox\namebox{l@dLcolrawbox\the\l@dpscL}% - {\vbadness=10000 - \splittopskip=\z@ - \do@lineLhook - \l@demptyd@ta - \global\setbox\one@line=\vsplit\namebox{l@dLcolrawbox\the\l@dpscL} + {\vbadness=10000% + \splittopskip=\z@% + \do@lineLhook% + \l@demptyd@ta% + \global\setbox\one@line=\vsplit\namebox{l@dLcolrawbox\the\l@dpscL}% to\baselineskip}% - \IfStrEq{\splitfirstmarks\parledgroup@}{begin}{\parledgroup@notes@startL}{} - \unvbox\one@line \global\setbox\one@line=\lastbox - \getline@numL + \IfStrEq{\splitfirstmarks\parledgroup@}{begin}{\parledgroup@notes@startL}{}% + \unvbox\one@line \global\setbox\one@line=\lastbox% + \getline@numL% \ifnum\@lock>\@ne% \inserthangingsymboltrue% \else% \inserthangingsymbolfalse% - \fi - \setbox\l@dleftbox + \fi% + \setbox\l@dleftbox% \hb@xt@ \Lcolwidth{% - \affixline@num + \ifl@dhidenumber% + \global\l@dhidenumberfalse% + \f@x@l@cks% + \else% + \affixline@num% + \fi% \xifinlist{\the\l@dpscL}{\eled@sections@@}% {\add@inserts\affixside@note}% {\print@lineL}}% - \add@penaltiesL - \global\advance\@donereallinesL\@ne - \global\advance\@donetotallinesL\@ne -\else + \add@penaltiesL% + \global\advance\@donereallinesL\@ne% + \global\advance\@donetotallinesL\@ne% +\else% \setbox\l@dleftbox \hb@xt@ \Lcolwidth{\hspace*{\Lcolwidth}}% - \global\advance\@donetotallinesL\@ne + \global\advance\@donetotallinesL\@ne% \fi} \def\print@lineL{% @@ -1029,14 +1040,14 @@ \l@dld@ta %space kept for backward compatibility \add@inserts\affixside@note% \l@dlsn@te %space kept for backward compatibility - {\ledllfill\hb@xt@ \wd\one@line{% + {\ledllfill\hb@xt@ \Lcolwidth{% \do@insidelineLhook% \ifluatex% \luatextextdir\l@luatextextdir@L% \fi% \new@lineL% \inserthangingsymbolL% - \l@dunhbox@line{\one@line}}\correcthangingL\ledrlfill\l@drd@ta% + \l@dunhbox@line{\one@line}}\ledrlfill\l@drd@ta% \l@drsn@te}} \def\print@eledsectionL{%% @@ -1080,36 +1091,41 @@ \newcommand*{\do@lineR}{% \letcs{\ifnumberpstart}{numberpstart@R\the\l@dpscR}% \ledRcol@true% - \advance\countRline \@ne + \advance\countRline \@ne% \ifvbox\namebox{l@dRcolrawbox\the\l@dpscR}% - {\vbadness=10000 - \splittopskip=\z@ - \do@lineRhook - \l@demptyd@ta - \global\setbox\one@lineR=\vsplit\namebox{l@dRcolrawbox\the\l@dpscR} + {\vbadness=10000% + \splittopskip=\z@% + \do@lineRhook% + \l@demptyd@ta% + \global\setbox\one@lineR=\vsplit\namebox{l@dRcolrawbox\the\l@dpscR}% to\baselineskip}% - \IfStrEq{\splitfirstmarks\parledgroup@}{begin}{\parledgroup@notes@startR}{} - \unvbox\one@lineR \global\setbox\one@lineR=\lastbox - \getline@numR + \IfStrEq{\splitfirstmarks\parledgroup@}{begin}{\parledgroup@notes@startR}{}% + \unvbox\one@lineR \global\setbox\one@lineR=\lastbox% + \getline@numR% \ifnum\@lockR>\@ne% - \inserthangingsymbolRtrue + \inserthangingsymbolRtrue% \else% \inserthangingsymbolRfalse% \fi% - \setbox\l@drightbox + \setbox\l@drightbox% \hb@xt@ \Rcolwidth{% - \affixline@numR% + \ifl@dhidenumber% + \global\l@dhidenumberfalse% + \f@x@l@cksR% + \else% + \affixline@numR% + \fi% \xifinlist{\the\l@dpscR}{\eled@sectionsR@@}% {\add@insertsR\affixside@noteR}% {\print@lineR}% }% - \add@penaltiesR - \global\advance\@donereallinesR\@ne - \global\advance\@donetotallinesR\@ne -\else - \setbox\l@drightbox \hb@xt@ \Rcolwidth{\hspace*{\Rcolwidth}} - \global\advance\@donetotallinesR\@ne -\fi + \add@penaltiesR% + \global\advance\@donereallinesR\@ne% + \global\advance\@donetotallinesR\@ne% +\else% + \setbox\l@drightbox \hb@xt@ \Rcolwidth{\hspace*{\Rcolwidth}}% + \global\advance\@donetotallinesR\@ne% +\fi% \ledRcol@false% } @@ -1118,7 +1134,7 @@ \l@dld@ta %space kept for backward compatibility \add@insertsR\affixside@noteR% \l@dlsn@te %space kept for backward compatibility - \correcthangingR\ledllfill\hb@xt@ \wd\one@lineR{% + \ledllfill\hb@xt@ \Rcolwidth{% \do@insidelineRhook% \new@lineR% \inserthangingsymbolR% @@ -1126,7 +1142,7 @@ \luatextextdir\l@luatextextdir@R% \fi% \l@dunhbox@line{\one@lineR}}\ledrlfill\l@drd@ta% - \l@drsn@te + \l@drsn@te% } \def\print@eledsectionR{% @@ -1161,37 +1177,39 @@ \global\advance\absline@numR \@ne \do@actionsR \do@ballastR -\ifledgroupnotesR@\else\ifnumberline - \ifsublines@ - \ifnum\sub@lockR<\tw@ - \global\advance\subline@numR \@ne - \fi - \else - \ifnum\@lockR<\tw@ - \global\advance\line@numR \@ne - \global\subline@numR \z@ - \fi + \ifledgroupnotesR@\else + \ifnumberline + \ifsublines@ + \ifnum\sub@lockR<\tw@ + \global\advance\subline@numR \@ne + \fi + \else + \ifnum\@lockR<\tw@ + \global\advance\line@numR \@ne + \global\subline@numR \z@ + \fi + \fi + \fi \fi -\fi -\fi } \newcommand*{\getline@numL}{% - \global\advance\absline@num \@ne + \global\advance\absline@num \@ne \do@actions \do@ballast -\ifledgroupnotesL@\else\ifnumberline - \ifsublines@ - \ifnum\sub@lock<\tw@ - \global\advance\subline@num \@ne - \fi - \else - \ifnum\@lock<\tw@ - \global\advance\line@num \@ne - \global\subline@num \z@ - \fi + \ifledgroupnotesL@\else + \ifnumberline + \ifsublines@ + \ifnum\sub@lock<\tw@ + \global\advance\subline@num \@ne + \fi + \else + \ifnum\@lock<\tw@ + \global\advance\line@num \@ne + \global\subline@num \z@ + \fi + \fi + \fi \fi -\fi -\fi } \newcommand*{\do@ballastR}{\global\ballast@count=\z@ @@ -1203,6 +1221,8 @@ \fi \fi \endgroup} + +\newif\ifl@dskipversenumberR \newcommand*{\do@actions@fixedcodeR}{% \ifcase\@l@dtempcnta% \or% % 1001 @@ -1211,7 +1231,7 @@ \global\sublines@false \or% % 1003 \global\@lockR=\@ne - \or% % 1004 + \or% % 1004% \ifnum\@lockR=\tw@ \global\@lockR=\thr@@ \else @@ -1227,9 +1247,14 @@ \fi \or% % 1007 \l@dskipnumbertrue - \else + \or% % 1008 + \l@dskipversenumberRtrue% + \or% % 1009 + \l@dhidenumbertrue% + \else% \led@warn@BadAction - \fi} + \fi% +} \newcommand*{\do@actionsR}{% \global\let\do@actions@nextR=\relax @@ -1349,21 +1374,23 @@ \ch@ck@l@ckR \fi \ifnum\@l@dtempcnta=\@l@dtempcntb - \if@twocolumn - \if@firstcolumn - \gdef\l@dld@ta{\llap{{\leftlinenumR}}}% - \else - \gdef\l@drd@ta{\rlap{{\rightlinenumR}}}% - \fi - \else - \@l@dtempcntb=\line@marginR - \ifnum\@l@dtempcntb>\@ne - \advance\@l@dtempcntb by\page@numR - \fi - \ifodd\@l@dtempcntb - \gdef\l@drd@ta{\rlap{{\rightlinenumR}}}% + \ifl@dskipversenumberR\else + \if@twocolumn + \if@firstcolumn + \gdef\l@dld@ta{\llap{{\leftlinenumR}}}% + \else + \gdef\l@drd@ta{\rlap{{\rightlinenumR}}}% + \fi \else - \gdef\l@dld@ta{\llap{{\leftlinenumR}}}% + \@l@dtempcntb=\line@marginR + \ifnum\@l@dtempcntb>\@ne + \advance\@l@dtempcntb by\page@numR + \fi + \ifodd\@l@dtempcntb + \gdef\l@drd@ta{\rlap{{\rightlinenumR}}}% + \else + \gdef\l@dld@ta{\llap{{\leftlinenumR}}}% + \fi \fi \fi \fi @@ -1691,36 +1718,24 @@ \newif\ifinserthangingsymbolR \newcommand{\inserthangingsymbolL}{% -\ifinserthangingsymbol% + \ifinserthangingsymbol% \ifinstanzaL% + \hskip \@ifundefined{sza@0@}{0}{\expandafter% + \noexpand\csname sza@0@\endcsname}\stanzaindentbase% \hangingsymbol% \fi% -\fi} + \fi% +}% \newcommand{\inserthangingsymbolR}{% -\ifinserthangingsymbolR% + \ifinserthangingsymbolR% \ifinstanzaR% + \hskip \@ifundefined{sza@0@}{0}{\expandafter% + \noexpand\csname sza@0@\endcsname}\stanzaindentbase% \hangingsymbol% \fi% -\fi} -\newcommand{\correcthangingL}{% -\ifl@dpaging\else% - \ifinstanzaL% - \ifinserthangingsymbol% - \hskip \@ifundefined{sza@0@}{0}{\expandafter% - \noexpand\csname sza@0@\endcsname}\stanzaindentbase% - \fi% - \fi% -\fi} + \fi% +}% -\newcommand{\correcthangingR}{% -\ifl@dpaging\else% - \ifinstanzaR% - \ifinserthangingsymbolR% - \hskip \@ifundefined{sza@0@}{0}{\expandafter% - \noexpand\csname sza@0@\endcsname}\stanzaindentbase% - \fi% - \fi% -\fi} \chardef\next=\catcode`\& \catcode`\&=\active @@ -2122,67 +2137,67 @@ \newcommand*{\Pages}{% \l@dprintingpagestrue% \eledsection@correcting@skip=-2\baselineskip% line correcting for section titles. - \parledgroup@notespacing@set@correction - \typeout{} - \typeout{*************************** PAGES ***************************} - \ifnum\l@dnumpstartsL=\l@dnumpstartsR\else + \parledgroup@notespacing@set@correction% + \typeout{}% + \typeout{*************************** PAGES ***************************}% + \ifnum\l@dnumpstartsL=\l@dnumpstartsR\else% \led@err@BadLeftRightPstarts{\the\l@dnumpstartsL}{\the\l@dnumpstartsR}% - \fi + \fi% \setlength{\Lcolwidth}{\textwidth}% \setlength{\Rcolwidth}{\textwidth}% - \cleartol@devenpage - \begingroup - \l@dzeropenalties - \endgraf\global\num@lines=\prevgraf - \global\num@linesR=\prevgraf - \global\par@line=\z@ - \global\par@lineR=\z@ - \global\l@dpscL=\z@ - \global\l@dpscR=\z@ - \writtenlinesLfalse - \writtenlinesRfalse + \cleartol@devenpage% + \begingroup% + \l@dzeropenalties% + \endgraf\global\num@lines=\prevgraf% + \global\num@linesR=\prevgraf% + \global\par@line=\z@% + \global\par@lineR=\z@% + \global\l@dpscL=\z@% + \global\l@dpscR=\z@% + \writtenlinesLfalse% + \writtenlinesRfalse% \let\print@Xnotes\print@Xnotes@forpages% \let\print@notesX\print@notesX@forpages% - \check@pstarts - \loop\if@pstarts - \global\advance\l@dpscL \@ne - \global\advance\l@dpscR \@ne - \getlinesfromparlistL - \getlinesfromparlistR + \check@pstarts% + \loop\if@pstarts% + \global\advance\l@dpscL \@ne% + \global\advance\l@dpscR \@ne% + \getlinesfromparlistL% + \getlinesfromparlistR% \l@dcalc@maxoftwo{\@cs@linesinparL}{\@cs@linesinparR}% {\usenamecount{l@dmaxlinesinpar\the\l@dpscL}}% - \check@pstarts - \repeat - \global\l@dpscL=\z@ - \global\l@dpscR=\z@ - \getlinesfrompagelistL - \getlinesfrompagelistR + \check@pstarts% + \repeat% + \global\l@dpscL=\z@% + \global\l@dpscR=\z@% + \getlinesfrompagelistL% + \getlinesfrompagelistR% \l@dcalc@minoftwo{\@cs@linesonpageL}{\@cs@linesonpageR}% {\l@dminpagelines}% - \check@pstarts - \if@pstarts - \global\advance\l@dpscL \@ne - \global\advance\l@dpscR \@ne + \check@pstarts% + \if@pstarts% + \global\advance\l@dpscL \@ne% + \global\advance\l@dpscR \@ne% \restore@pstartL@pc% \restore@pstartR@pc% - \global\@donereallinesL=\z@ - \global\@donetotallinesL=\z@ - \global\@donereallinesR=\z@ - \global\@donetotallinesR=\z@ - \checkraw@text -{ \loop\ifaraw@text - \checkpageL + \global\@donereallinesL=\z@% + \global\@donetotallinesL=\z@% + \global\@donereallinesR=\z@% + \global\@donetotallinesR=\z@% + \checkraw@text% +{ \loop\ifaraw@text% + \checkpageL% \l@duselanguage{\theledlanguageL}% { \loop\ifl@dsamepage% - \ifdefstring{\@eledsectnotoc}{L}{\ledsectnotoc}{} + \ifdefstring{\@eledsectnotoc}{L}{\ledsectnotoc}{}% \csuse{before@pstartL@\the\l@dpscL}% - \global\csundef{before@pstartL@\the\l@dpscL} - \do@lineL + \global\csundef{before@pstartL@\the\l@dpscL}% + \do@lineL% \xifinlist{\the\l@dpscL}{\eled@sections@@} {\print@eledsectionL}% {}% - \advance\numpagelinesL \@ne - \ifshiftedpstarts + \advance\numpagelinesL \@ne% + \ifshiftedpstarts% \ifdim\ht\l@dleftbox>0pt\hb@xt@% \hsize{\ledstrutL\unhbox\l@dleftbox}% \else% @@ -2193,37 +2208,38 @@ \else% \parledgroup@correction@notespacing{L} \hb@xt@ \hsize{\ledstrutL\unhbox\l@dleftbox}% - \fi + \fi% \get@nextboxL% + \global\l@dskipversenumberfalse% \ifprint@last@after@pendL% \csuse{after@pendL@\the\l@dpscL}% \global\csundef{after@pendL@\the\l@dpscL}% \fi% \checkpageL% - \checkverseL - \checkpbL - \repeat - \ifl@dpagefull + \checkverseL% + \checkpbL% + \repeat% + \ifl@dpagefull% \@writelinesonpageL{\the\numpagelinesL}% - \else + \else% \@writelinesonpageL{1000}% - \fi - \numpagelinesL \z@ - \parledgroup@correction@notespacing@init + \fi% + \numpagelinesL \z@% + \parledgroup@correction@notespacing@init% \clearl@dleftpage }% \checkpageR% \l@duselanguage{\theledlanguageR}% { \loop\ifl@dsamepage% - \initnumbering@sectcountR - \ifdefstring{\@eledsectnotoc}{R}{\ledsectnotoc}{} + \initnumbering@sectcountR% + \ifdefstring{\@eledsectnotoc}{R}{\ledsectnotoc}{}% \csuse{before@pstartR@\the\l@dpscR}% - \global\csundef{before@pstartR@\the\l@dpscR} - \do@lineR - \xifinlist{\the\l@dpscR}{\eled@sectionsR@@} + \global\csundef{before@pstartR@\the\l@dpscR}% + \do@lineR% + \xifinlist{\the\l@dpscR}{\eled@sectionsR@@}% {\print@eledsectionR}% {}% - \advance\numpagelinesR \@ne - \ifshiftedpstarts + \advance\numpagelinesR \@ne% + \ifshiftedpstarts% \ifdim\ht\l@drightbox>0pt\hb@xt@% \hsize{\ledstrutR\unhbox\l@drightbox}% \else% @@ -2232,50 +2248,57 @@ \global\pagetotal=\dimen0% \fi% \else% - \parledgroup@correction@notespacing{R} + \parledgroup@correction@notespacing{R}% \hb@xt@ \hsize{\ledstrutR\unhbox\l@drightbox}% - \fi + \fi% \get@nextboxR% + \global\l@dskipversenumberRfalse% \ifprint@last@after@pendR% \csuse{after@pendR@\the\l@dpscR}% \global\csundef{after@pendR@\the\l@dpscR}% \fi% \checkpageR% - \checkverseR - \checkpbR - \repeat - \ifl@dpagefull + \checkverseR% + \checkpbR% + \repeat% + \ifl@dpagefull% \@writelinesonpageR{\the\numpagelinesR}% - \else + \else% \@writelinesonpageR{1000}% - \fi - \numpagelinesR=\z@ - \parledgroup@correction@notespacing@init - \clearl@drightpage} - \checkraw@text - \ifaraw@text - \getlinesfrompagelistL - \getlinesfrompagelistR + \fi% + \numpagelinesR=\z@% + \parledgroup@correction@notespacing@init% + \clearl@drightpage}% + \checkraw@text% + \ifaraw@text% + \getlinesfrompagelistL% + \getlinesfrompagelistR% \l@dcalc@minoftwo{\@cs@linesonpageL}{\@cs@linesonpageR}% {\l@dminpagelines}% - \fi - \repeat} - \fi - \flush@notes - \flush@notesR - \endgroup - \global\l@dpscL=\z@ - \global\l@dpscR=\z@ - \global\l@dnumpstartsL=\z@ - \global\l@dnumpstartsR=\z@ - \global\instanzaLfalse - \global\instanzaRfalse + \fi% + \repeat}% + \fi% + \flush@notes% + \flush@notesR% + \endgroup% + \global\l@dpscL=\z@% + \global\l@dpscR=\z@% + \global\l@dnumpstartsL=\z@% + \global\l@dnumpstartsR=\z@% + \global\instanzaLfalse% + \global\instanzaRfalse% \l@dprintingpagesfalse% \finish@Pages@notes%Needed to prevent final notes overlap line number \ignorespaces} \newcommand{\finish@Pages@notes}{% \def\do##1{% + \ifnocritical@% + \newbox\csuse{##1footins} + \fi + \ifnofamiliar@% + \newbox\csuse{footins##1} + \fi \ifvoid\csuse{##1footins}% \ifvoid\csuse{footins##1}\else% \newpage\null% @@ -2539,6 +2562,13 @@ \fi \fi} +\pretocmd{\chapter}{% + \ifl@dprintingpages% + \vbox{}% + \fi% + }% + {}% + {}% \newcommand{\eledsectnotoc}[1]{\xdef\@eledsectnotoc{#1}} \eledsectnotoc{R} \newcommand{\eledsectmark}[1]{\xdef\@eledsectmark{#1}} |