From 517d814fc2151f1a207e0fff3705de6384552f86 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Tue, 4 Oct 2011 23:07:56 +0000
Subject: ledmac (4oct11)

git-svn-id: svn://tug.org/texlive/trunk@24192 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/ledmac/ledpar.sty | 32 ++++++++++++++++++++-------
 1 file changed, 24 insertions(+), 8 deletions(-)

(limited to 'Master/texmf-dist/tex/latex/ledmac/ledpar.sty')

diff --git a/Master/texmf-dist/tex/latex/ledmac/ledpar.sty b/Master/texmf-dist/tex/latex/ledmac/ledpar.sty
index 68b27b70d4b..8c84333c46e 100644
--- a/Master/texmf-dist/tex/latex/ledmac/ledpar.sty
+++ b/Master/texmf-dist/tex/latex/ledmac/ledpar.sty
@@ -24,7 +24,7 @@
 %% 
 
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{ledpar}[2011/09/16 v0.8 ledmac extension for parallel texts]
+\ProvidesPackage{ledpar}[2011/10/02 v0.9.1 ledmac extension for parallel texts]
 
 \newif\ifshiftedverses
 \shiftedversesfalse
@@ -33,7 +33,6 @@
   \l@dpairingfalse
 \newif\ifl@dpaging
   \l@dpagingfalse
-\newif\ifledRcol
   \ledRcolfalse
 \newdimen\Lcolwidth
   \Lcolwidth=0.45\textwidth
@@ -52,7 +51,6 @@
   \ledmac@error{The right page has ended on a left page}{\@ehc}}
 \newcount\section@numR
   \section@numR=\z@
-\newif\ifnumberingR
   \pst@rtedLfalse
 \newif\ifpst@rtedR
   \pst@rtedRfalse
@@ -88,7 +86,9 @@
   \global\let\sub@change\relax
   \message{Section \the\section@numR R }%
   \line@list@stuffR{\jobname.\extensionchars\the\section@numR R}%
-  \l@dend@stuff}
+  \l@dend@stuff
+  \setcounter{pstartR}{1}
+}
 
 \def\endnumberingR{%
   \ifnumberingR
@@ -731,7 +731,9 @@
 
 \newenvironment{Leftside}{%
   \ledRcolfalse
+  \let\beginnumbering\beginnumbering\setcounter{pstartL}{1}
   \let\pstart\pstartL
+  \let\thepstart\thepstartL
   \let\pend\pendL
   \let\memorydump\memorydumpL
   \Leftsidehook
@@ -748,6 +750,7 @@
   \let\pausenumbering\pausenumberingR
   \let\resumenumbering\resumenumberingR
   \let\memorydump\memorydumpR
+  \let\thepstart\thepstartR
   \let\pstart\pstartR
   \let\pend\pendR
   \let\lineation\lineationR
@@ -760,6 +763,12 @@
 \newcount\num@linesR
 \newbox\one@lineR
 \newcount\par@lineR
+
+\newcounter{pstartL}
+\renewcommand{\thepstartL}{{\bf\@arabic\c@pstartL}. }
+\newcounter{pstartR}
+\renewcommand{\thepstartR}{{\bf\@arabic\c@pstartR}. }
+
 \newcommand*{\pstartL}{
 \if@nobreak
 \let\@oldnobreak\@nobreaktrue
@@ -786,7 +795,7 @@
     \led@err@TooManyPstarts
     \global\l@dnumpstartsL=\l@dc@maxchunks
   \fi
-  \global\setnamebox{l@dLcolrawbox\the\l@dnumpstartsL}=\vbox\bgroup%
+  \global\setnamebox{l@dLcolrawbox\the\l@dnumpstartsL}=\vbox\bgroup\ifautopar\else\ifnumberpstart\thepstartL\fi\fi%
                      \hsize=\Lcolwidth
   \numberedpar@true}
 \newcommand*{\pstartR}{
@@ -815,7 +824,7 @@
     \led@err@TooManyPstarts
     \global\l@dnumpstartsR=\l@dc@maxchunks
   \fi
-  \global\setnamebox{l@dRcolrawbox\the\l@dnumpstartsR}=\vbox\bgroup%
+  \global\setnamebox{l@dRcolrawbox\the\l@dnumpstartsR}=\vbox\bgroup\ifautopar\else\ifnumberpstart\thepstartR\fi\fi%
                      \hsize=\Rcolwidth
   \numberedpar@true}
 \newcommand*{\pendL}{\ifnumbering \else
@@ -829,7 +838,10 @@
   \global\par@line=0
   \endgroup
   \ignorespaces
-  \@oldnobreak}
+  \@oldnobreak
+\ifnumberpstart
+\addtocounter{pstartL}{1}
+\fi}
 
 \newcommand*{\pendR}{\ifnumberingR \else
     \led@err@PendNotNumbered
@@ -842,7 +854,11 @@
   \global\par@lineR=0
   \endgroup
   \ignorespaces
-  \@oldnobreak}
+  \@oldnobreak
+\ifnumberpstart
+\addtocounter{pstartR}{1}
+\fi
+}
 
 \newbox\l@dleftbox
 \newbox\l@drightbox
-- 
cgit v1.2.3

