poemscol update

git-svn-id: svn://tug.org/texlive/trunk@1584 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 213 insertions, 111 deletions

diff --git a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
index 791dd0e0375..9f3c6111f71 100644
--- a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
+++ b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
@@ -22,9 +22,7 @@
 %% in the same archive or directory.)
 \NeedsTeXFormat{LaTeX2e}[1997/12/01]
 \ProvidesPackage{poemscol}
-   [2005/10/05 v2.391 poemscol file]
-
-
+   [2006/04/25 v2.49 poemscol file]
 
 
 
@@ -336,15 +334,15 @@
 }{\newpage\thispagestyle{volumetitlestyle}\cleardoublepage}
 \newenvironment{booksectionpage}
 {\par\newpage\thispagestyle{volumetitlestyle}}{\newpage}
- \setlength{\marginparsep}{-18pt}
+ \setlength{\marginparsep}{18pt}
  \setlength{\marginparwidth}{10pt}
 \newif\ifnumbersswitch \numbersswitchfalse
 \newif\ifnumbersright \numbersrighttrue
-\providecommand{\sidepar}{\@dblarg{\@sidepar}}
-\long\def\@sidepar[#1]#2{\@bsphack\leavevmode\vadjust{% %
-  \checkoddpage
-  \ifsideparswitch
-    \ifreversesidepar
+\newcommand{\pmclsidepar}{\@dblarg{\@pmclsidepar}}
+\long\def\@pmclsidepar[#1]#2{\@bsphack\strut\vadjust{% added
+\checkoddpage
+  \ifpmclsideparswitch
+    \ifpmclreversesidepar
       \ifoddpage
         \oddpagefalse
       \else
@@ -353,7 +351,7 @@
     \fi
   \else
     \oddpagetrue
-    \ifreversesidepar
+    \ifpmclreversesidepar
       \oddpagefalse
     \fi
   \fi
@@ -371,12 +369,13 @@
         \kern -\marginparsep \kern -\marginparwidth % at left
       \fi
     \fi
-    \vbox to 0pt{%
-     \kern \sideparvshift%           % vertical shift to align top text lines
-     \begin{minipage}{\marginparwidth}%
-      \ifoddpage #2\else #1\fi%
+    \setbox0=\vtop to 0pt{% added
+     \begin{minipage}[t]{\marginparwidth}% added
+     \ifoddpage #2\else #1\fi%
       \end{minipage}%
-  \vss}}}\@esphack}
+\vss}% added
+ \vtop to 0pt{\kern\pmclsideparvshift % default should be 0pt
+  \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\@esphack}% added
 
 \gdef\thepmemc@@page{\the\c@page}
 
@@ -413,49 +412,54 @@
     \ifodd\c@page\oddpagetrue\fi
   \fi}
 
-\newif\ifreversesidepar
-  \reversesidepartrue
-\newif\ifsideparswitch
-  \sideparswitchfalse
-\if@twoside \sideparswitchtrue \fi
+\newif\ifpmclreversesidepar
+  \pmclreversesidepartrue
+\newif\ifpmclsideparswitch
+  \pmclsideparswitchfalse
+\if@twoside \pmclsideparswitchtrue \fi
 
 \newif\ifoddpage
 \newif\ifstrictpagecheck
   \strictpagecheckfalse
 \newcounter{cp@cntr}
 \newcommand{\cplabel}{^_}
-\newlength{\sideparvshift}
-\setlength{\sideparvshift}{-2.58ex}
+\newlength{\pmclsideparvshift}
+\setlength{\pmclsideparvshift}{0ex}
 \newcommand{\verselinenumberstoleft}{%
    \setlength{\marginparsep}{18pt}%
    \setlength{\marginparwidth}{10pt}%
    \numbersswitchfalse\numbersrightfalse}
 \newcommand{\verselinenumberstoright}{%
-   \setlength{\marginparsep}{-18pt}%
+ %  \setlength{\marginparsep}{-18pt}%
+   \setlength{\marginparsep}{18pt}%
    \setlength{\marginparwidth}{10pt}%
    \numbersswitchfalse\numbersrighttrue}
 \newcommand{\verselinenumbersswitch}{%
    \strictpagechecktrue%
    \setlength{\marginparsep}{18pt}%
    \setlength{\marginparwidth}{10pt}%
-   \numbersswitchtrue\numbersrightfalse}
-\newif\ifnumbersgutter \numbersgutterfalse
+   \numbersswitchtrue\numbersrightfalse\pmclsideparswitchtrue}
+\newif\ifnumbersgutter \numbersgutterfalse%
 \newcommand{\verselinenumbersgutter}{\verselinenumbersswitch%
-\reversesideparfalse\numbersguttertrue}
+\pmclreversesideparfalse%
+\numbersguttertrue%
+}
 \newcommand{\verselinenumbersouter}{\verselinenumbersswitch%
-\reversesidepartrue\numbersgutterfalse}
+\pmclreversesidepartrue%
+\numbersgutterfalse}
 \newcommand{\putverselinenumber}{\nolinebreak\begin{marginenvironment}%
-  \nolinebreak
-  \ifnumbersswitch\sidepar{\hfil\textrm{\scriptsize\theverselinenumber}}%
-    \else
-    \ifnumbersright\rightsidepar{\hfil\textrm{\scriptsize\theverselinenumber}}%
-      \else
-      \leftsidepar{\textrm{\scriptsize\theverselinenumber}\hfil}%
-      \fi
-    \fi
-  \nolinebreak
+  \nolinebreak%
+  \ifnumbersswitch\pmclsidepar{\hfil\textrm{\scriptsize\theverselinenumber}}%
+    \else%
+    \ifnumbersright\pmclrightsidepar{\hfil\textrm{\scriptsize\theverselinenumber}}%
+      \else%
+      \pmclleftsidepar
+{\textrm{\scriptsize\theverselinenumber}\hfil}%
+      \fi%
+    \fi%
+  \nolinebreak%
   \end{marginenvironment}%
-  \nolinebreak
+  \nolinebreak%
 }
 \newif\ifspeciallinelock
 \speciallinelockfalse
@@ -885,6 +889,14 @@ EXPLANATORY NOTES}\end{center}
 }
 \newcommand{\poemsectiontitlenocontents}[1]{%
   \sequencesubsectiontitlenocontents{#1}}%
+\newcommand{\poemfirstsectiontitle}[1]{%
+\set@p@emtitle{#1}{\par\nobreak}{\subsectiontitlefont}%
+{\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}%
+{\titleindentamount}%
+\c@ntentsinfo{#1}{\contentsindenttwo}{\contentspoemtitlefont}%
+{\contentsindentthreeamount}%
+\t@xtnotesinfo{#1}%
+}
 \newcommand{\poemfirstsectiontitlebaretitle}[1]{%
 \set@p@emtitle{#1}{\par\nobreak}{\subsectiontitlefont}%
 {\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}%
@@ -1159,7 +1171,52 @@ EXPLANATORY NOTES}\end{center}
 \newcommand{\interjectiontitlemiddleline}[1]{
 \sequencefirstsubsectionmiddleline{#1}
 }
-
+\newcommand{\setmargpoemtitle}[2]{%
+\set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}%
+{\relax}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}{#2}%
+\c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}%
+{\contentsindenttwoamount}%
+\t@xtnotesinfo{#1}%
+}
+\newcommand{\set@margp@emtitle}[7]{\setlength{\titleentryoverrun}{#6}%
+{#2}%
+{#3 \begin{titleentryenvironment}%
+{#4 #1 #7}\end{titleentryenvironment}}%
+{#5}%
+\m@kep@emlabel%
+\m@ken@teholder{#1}%
+\setlength{\titleentryoverrun}{\z@}}
+\newcommand{\JHpoemtitle}[2]{%
+\setmargpoemtitle{#1}{\JHlabel{#2}}%
+}
+\newcommand{\JHlabel}[1]{%
+\marginpar{{\scriptsize{\dag~p.~\pageref{#1}}}}}
+\newcommand{\JHsequencetitle}[2]{%
+\set@margp@emtitle{#1}{\sequencetitlepenalty}{\sequencetitlefont}%
+{\relax}{\nobreak\par\nobreak\aftersequencetitleskip\nobreak}{\z@}%
+{\JHlabel{#2}}%
+\putpagenumberincontentsfalse%
+\c@ntentsinfo{#1}{\contentsindentone}{\contentssequencetitlefont}%
+{\contentsindenttwoamount}%
+\putpagenumberincontentstrue%
+\t@xtnotesinfo{#1}%
+}
+\newcommand{\JHsequencesectiontitle}[2]{%
+\set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}%
+{\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}%
+{\titleindentamount}{\JHlabel{#2}}%
+\c@ntentsinfo{#1}{\contentsindenttwo}{\contentspoemtitlefont}%
+{\contentsindentthreeamount}%
+\t@xtnotesinfo{#1}%
+}
+\newcommand{\JHsequencefirstsectiontitle}[2]{%
+\set@margp@emtitle{#1}{\par\nobreak\afterpoemtitleskip}{\poemtitlefont}%
+{\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}%
+{\titleindentamount}{\JHlabel{#2}}%
+\c@ntentsinfo{#1}{\contentsindenttwo}{\contentspoemtitlefont}%
+{\contentsindentthreeamount}%
+\t@xtnotesinfo{#1}%
+}
 \newcommand{\epigraph}[1]{\nopagebreak\afterpoemtitleskip\begin{epigraphquote}
   \emph{#1}\end{epigraphquote}\afterpoemtitleskip\nopagebreak}
 \newcommand{\headnote}[1]{\epigraph{#1}}
@@ -1390,18 +1447,48 @@ EXPLANATORY NOTES}\end{center}
 \normalfont \backmattertextfont}
 \expandafter\newcommand\csname first#1\endcsname{
 \immediate\write\expandafter\csname#1s\endcsname{\titletoothernotes}}
-\expandafter\newcommand\csname #1\endcsname[2][0]{
-     \setlemmarange{##1}
-     \csname ifno#1yet\endcsname
-     \csname first#1\endcsname
-     \fi
-\global\csname no#1yetfalse\endcsname
-\immediate\write\expandafter\csname #1s\endcsname{\checknoteheaders}
-\csname literal#1\endcsname{##2}
-\resetlemmacounters}
+\expandafter\newcommand\csname #1\endcsname[2][0]{%
+     \setlemmarange{##1}%
+     \csname ifno#1yet\endcsname%
+     \csname first#1\endcsname%
+     \fi%
+\global\csname no#1yetfalse\endcsname%
+\immediate\write\expandafter\csname #1s\endcsname{\checknoteheaders}%
+\csname literal#1\endcsname{##2}%
+\resetlemmacounters%
+}
+\expandafter\newcommand\csname prose#1\endcsname[3][0]{%                                               %
+\unskip\proselinelabel{##2}%
+\setproselemmarange{##2}{##1}%
+\csname ifno#1yet\endcsname%
+\csname first#1\endcsname%
+\fi%
+\global\csname no#1yetfalse\endcsname%
+\immediate\write\expandafter\csname #1s\endcsname{\checkprosenoteheaders}%
+\csname literal#1\endcsname{##3}%
+\resetlemmacounters\unskip%
+}
+\expandafter\newcommand\csname pm#1\endcsname[2][0]{%
+     \setpmlemmarange{##1}%
+     \csname ifno#1yet\endcsname%
+     \csname first#1\endcsname%
+     \fi%
+\global\csname no#1yetfalse\endcsname%
+\immediate\write\expandafter\csname #1s\endcsname{\pmchecknoteheaders\string~}%
+\immediate\write\expandafter\csname #1s\endcsname{\pmciterange}%
+\csname literal#1\endcsname{##2}%
+\pmresetlemmacounters\unskip%
+}
 \makeatletter
 \appendtomacro{\poem}{\global\expandafter\csname no#1yettrue\endcsname}
 \makeatother
+\makeatletter
+\appendtomacro{\prosesection}{\global\expandafter\csname no#1yettrue\endcsname}
+\makeatother
+\makeatletter
+\appendtomacro{\pmsection}{\global\expandafter\csname no#1yettrue\endcsname}
+\makeatother
+
 \expandafter\newcommand\csname put#1s\endcsname{
 \newpage\hyphenationforsmall
 \immediate\expandafter\closeout\csname #1s\endcsname
@@ -1431,7 +1518,10 @@ EXPLANATORY NOTES}\end{center}
 \else\ifnumbersswitch\rightlinenumbers*\setlength{\linenumbersep}{-\marginparsep}%
 \else\leftlinenumbers*\setlength{\linenumbersep}{\marginparsep}%
 \addtolength{\linenumbersep}{5pt}% seems about right
-\fi\fi}
+\fi\fi
+\noemendyettrue%
+\noexplainyettrue%
+}
 {\end{linenumbers}}
 \newenvironment{prosesectionnoreset}
 {\begin{linenumbers}%
@@ -1585,27 +1675,35 @@ r@#2\endcsname{}{}\@nil
 \newcounter{pmindexcount}\setcounter{pmindexcount}{0}
 \newcommand{\setprosebysentence}{\prosebysentencetrue%
 }
+\newenvironment{pmsection}{
+\noemendyettrue%
+\noexplainyettrue%
+}{}
 \newcommand{\runningsentencenumberformat}[1]{\nobreak%
 \textsuperscript{\scriptsize{#1}}\unskip\nobreak}
 \newcommand{\marginsentencenumberformat}[1]{\scriptsize{#1}}
 \newcommand{\setpmmodulo}[1]{\setcounter{pmmodulo}{#1}%
 \addtocounter{pmmodulo}{-1}%
 }
-\newcommand{\pmnumberstoleft}{\numbersswitchfalse\numbersrightfalse%
+\newcommand{\pmnumberstoleft}{%\catcode`\@=11%
+\numbersswitchfalse\numbersrightfalse%
 \setlength{\marginparsep}{18pt}%
 }
-\newcommand{\pmnumberstoright}{\numbersswitchfalse\numbersrighttrue%
+\newcommand{\pmnumberstoright}{%\catcode`\@=11%
+\numbersswitchfalse\numbersrighttrue%
 \setlength{\marginparsep}{-18pt}
 }
 \newcommand{\pmnumbersswitch}{\strictpagechecktrue\numbersswitchtrue\numbersrightfalse%
 \setlength{\marginparsep}{18pt}%
 }
-\newcommand{\pmnumbersgutter}{\pmnumbersswitch%
-\reversesideparfalse\numbersguttertrue%
+\newcommand{\pmnumbersgutter}{%\catcode`\@=11%
+\pmnumbersswitch%
+\pmclreversesideparfalse\numbersguttertrue%
 \setlength{\marginparsep}{18pt}%
 }
-\newcommand{\pmnumbersouter}{\pmnumbersswitch%
-\reversesidepartrue\numbersgutterfalse%
+\newcommand{\pmnumbersouter}{%\catcode`\@=11%
+\pmnumbersswitch%
+\pmclreversesidepartrue\numbersgutterfalse%
 \setlength{\marginparsep}{18pt}%
 }
 \newcommand{\putpmsentencenumber}{%
@@ -1613,55 +1711,59 @@ r@#2\endcsname{}{}\@nil
 {\marginsentencenumberformat}}
 \newcommand{\putpmmarginnumber}[2]{%
 \nolinebreak\begin{marginenvironment}%
-  \nolinebreak
-  \ifnumbersswitch\sidepar{\hfil #2{#1}}%
-    \else
-    \ifnumbersright\rightsidepar{\hfil #2{#1}}%
-      \else \leftsidepar{#2{#1}\hfil}%
-      \fi
-    \fi
-  \nolinebreak
-  \end{marginenvironment}\nolinebreak
+  \nolinebreak%
+  \ifnumbersswitch%\marginpar{\hfil #2{#1}}
+  \pmclsidepar{\hfil #2{#1}}%
+    \else%
+    \ifnumbersright%\marginpar{\hfil #2{#1}}
+    \pmclrightsidepar{\hfil #2{#1}}%
+      \else% \marginpar{#2{#1}\hfil}
+      \pmclleftsidepar
+{#2{#1}\hfil}%
+      \fi%
+    \fi%
+  \nolinebreak%
+  \end{marginenvironment}\nolinebreak%
 }
 \newcommand{\pmsentence}{%
 \addtocounter{pmsentencenumber}{1}%
-\ifrunningsentencenumbers % add running number
+\ifrunningsentencenumbers% add running number
 \runningsentencenumberformat{\thepmsentencenumber}%
 \fi%
-\ifmarginsentencenumbers % add marginal number
+\ifmarginsentencenumbers% add marginal number
   \addtocounter{pmindexcount}{1}%
   \leavevmode%
-  \ifnum\thepmindexcount>\thepmmodulo%
-      \putpmsentencenumber\nobreak%
+\ifthenelse{\value{pmindexcount}>\value{pmmodulo}}%
+{     \putpmsentencenumber\nobreak%
     \setcounter{pmindexcount}{0}%
-   \fi%
+}{\relax}%
 \fi%
 \ifpmparas%
 \global\edef\noteheaderconcat{\thepmparagraph:\thepmsentencenumber}%
 \pmnoteheader=\expandafter{\noteheaderconcat}%
 \else%
-\global\edef\noteheaderconcat{\thepmsentencenumber:}%
+\global\edef\noteheaderconcat{\thepmsentencenumber}
 \pmnoteheader=\expandafter{\noteheaderconcat}%
 \fi%
 }
 \newcommand{\pmsentencetwo}{%
 \addtocounter{pmsentencenumber}{1}%
-\ifrunningsentencenumbers % add running number
+\ifrunningsentencenumbers% add running number
 \runningsentencenumberformat{\thepmsentencenumber}%
 \fi%
-\ifmarginsentencenumbers % add marginal number
+\ifmarginsentencenumbers% add marginal number
   \addtocounter{pmindexcount}{1}%
   \leavevmode%
-  \ifnum\thepmindexcount>\thepmmodulo%
-      \putpmsentencenumbertwo\nobreak%
+\ifthenelse{\value{pmindexcount}>\value{pmmodulo}}%
+{     \putpmsentencenumbertwo\nobreak%
     \setcounter{pmindexcount}{0}%
-   \fi%
+}{\relax}%
 \fi%
 \ifpmparas%
 \global\edef\noteheaderconcat{\thepmparagraph:\thepmsentencenumber}%
 \pmnoteheader=\expandafter{\noteheaderconcat}%
 \else%
-\global\edef\noteheaderconcat{\thepmsentencenumber:}%
+\global\edef\noteheaderconcat{\thepmsentencenumber}%
 \pmnoteheader=\expandafter{\noteheaderconcat}%
 \fi%
 }
@@ -1669,24 +1771,24 @@ r@#2\endcsname{}{}\@nil
 \newcommand{\putpmsentencenumbertwo}{%
 \putpmmarginnumber{\rlap{\phantom{1},~\thepmsentencenumber}}%
 {\marginsentencenumberformat}}
-\newcommand{\pmsentencethree}{
+\newcommand{\pmsentencethree}{%
 \addtocounter{pmsentencenumber}{1}%
-\ifrunningsentencenumbers % add running number
+\ifrunningsentencenumbers% add running number
 \runningsentencenumberformat{\thepmsentencenumber}%
 \fi%
-\ifmarginsentencenumbers % add marginal number
+\ifmarginsentencenumbers% add marginal number
   \addtocounter{pmindexcount}{1}%
   \leavevmode%
-  \ifnum\thepmindexcount>\thepmmodulo%
-      \putpmsentencenumberthree\nobreak%
+\ifthenelse{\value{pmindexcount}>\value{pmmodulo}}%
+{     \putpmsentencenumberthree\nobreak%
     \setcounter{pmindexcount}{0}%
-   \fi%
+}{\relax}%
 \fi%
 \ifpmparas%
 \global\edef\noteheaderconcat{\thepmparagraph:\thepmsentencenumber}%
 \pmnoteheader=\expandafter{\noteheaderconcat}%
 \else%
-\global\edef\noteheaderconcat{\thepmsentencenumber:}%
+\global\edef\noteheaderconcat{\thepmsentencenumber}%
 \pmnoteheader=\expandafter{\noteheaderconcat}%
 \fi%
 }
@@ -1694,24 +1796,24 @@ r@#2\endcsname{}{}\@nil
 \newcommand{\putpmsentencenumberthree}{%
 \putpmmarginnumber{\rlap{\phantom{1,~2},~\thepmsentencenumber}}%
 {\marginsentencenumberformat}}
-\newcommand{\pmsentencefour}{
+\newcommand{\pmsentencefour}{%
 \addtocounter{pmsentencenumber}{1}%
-\ifrunningsentencenumbers % add running number
+\ifrunningsentencenumbers% add running number
 \runningsentencenumberformat{\thepmsentencenumber}%
 \fi%
-\ifmarginsentencenumbers % add marginal number
+\ifmarginsentencenumbers% add marginal number
   \addtocounter{pmindexcount}{1}%
   \leavevmode%
-  \ifnum\thepmindexcount>\thepmmodulo%
-      \putpmsentencenumberfour\nobreak%
+\ifthenelse{\value{pmindexcount}>\value{pmmodulo}}%
+{     \putpmsentencenumberfour\nobreak%
     \setcounter{pmindexcount}{0}%
-   \fi%
+}{\relax}%
 \fi%
 \ifpmparas%
 \global\edef\noteheaderconcat{\thepmparagraph:\thepmsentencenumber}%
 \pmnoteheader=\expandafter{\noteheaderconcat}%
 \else%
-\global\edef\noteheaderconcat{\thepmsentencenumber:}%
+\global\edef\noteheaderconcat{\thepmsentencenumber}%
 \pmnoteheader=\expandafter{\noteheaderconcat}%
 \fi%
 }
@@ -1944,30 +2046,30 @@ r@#2\endcsname{}{}\@nil
       \ignorespaces
     \fi
   \fi}
-\newlength{\pmclsideparvshift}
-\setlength{\pmclsideparvshift}{-2.58ex}%
-\newcommand{\leftsidepar}[1]{%
-\pmclbsphack\leavevmode\vadjust{% %
-    \rlap{\kern-\parindent%
-  \kern -\marginparsep \kern -\marginparwidth % at left
-      \vbox to 0pt{%
-       \kern \pmclsideparvshift%           % vertical shift to align top text lines
-       \begin{minipage}{\marginparwidth}%
+\newcommand{\pmclleftsidepar}[1]{%
+\pmclbsphack\strut\vadjust{% changed
+\rlap{\kern-\parindent%
+\kern -\marginparsep \kern -\marginparwidth% at left
+\setbox0=\vtop to 0pt{% added
+\begin{minipage}[t]{\marginparwidth}% added
 #1%
 \end{minipage}%
-    \vss}}}\pmclesphack%
-}
-\newcommand{\rightsidepar}[1]{%
-\pmclbsphack\leavevmode\vadjust{% %
-    \rlap{\kern-\parindent%
-  \kern \textwidth \kern -\marginparsep        % at right
-      \vbox to 0pt{%
-       \kern \pmclsideparvshift%           % vertical shift to align top text lines
-       \begin{minipage}{\marginparwidth}%
+\vss}% changed
+\vtop to 0pt{\kern\pmclsideparvshift % default should be 0pt
+\kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\pmclesphack}% changed
+
+\newcommand{\pmclrightsidepar}[1]{%
+\pmclbsphack\strut\vadjust{%
+\rlap{\kern-\parindent%
+\kern\textwidth\kern\marginparsep% at right
+\setbox0=\vtop to 0pt{% added
+\begin{minipage}[t]{\marginparwidth}% added
 #1%
 \end{minipage}%
-    \vss}}}\pmclesphack%
-}
+\vss}% changed
+\vtop to 0pt{\kern\pmclsideparvshift% default should be 0pt
+\kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\pmclesphack}% changed
+
 
 \newif\ifparalleltexts
 \paralleltextsfalse
@@ -2057,7 +2159,7 @@ r@#2\endcsname{}{}\@nil
 }
 \renewcommand{\putverselinenumber}{\nolinebreak\begin{marginenvironment}%
   \nolinebreak
-  \leftsidepar{\textrm{\scriptsize\theverselinenumber}}%
+  \pmclleftsidepar{\textrm{\scriptsize\theverselinenumber}}%
   \nolinebreak
   \end{marginenvironment}%
   \nolinebreak
@@ -2081,7 +2183,7 @@ r@#2\endcsname{}{}\@nil
 \newcommand{\synchrolabel}[1]{\poemlinelabel{#1}}
 \newcommand{\hfilll}{\hskip 0pt plus 1 filll}
 \newcommand{\synchroref}[1]{%
-\rightsidepar{{\textrm{\scriptsize[\the\synchroflag\ref{#1}]}}}%
+\pmclrightsidepar{{\textrm{\scriptsize[\the\synchroflag\ref{#1}]}}}%
  }
 \newcommand{\startversopage}{
 \ifrectostanzastillopen