ledmac (4oct11)

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

1 files changed, 30 insertions, 8 deletions

diff --git a/Master/texmf-dist/tex/latex/ledmac/ledmac.sty b/Master/texmf-dist/tex/latex/ledmac/ledmac.sty
index c9858377d35..dcd5a7301a3 100644
--- a/Master/texmf-dist/tex/latex/ledmac/ledmac.sty
+++ b/Master/texmf-dist/tex/latex/ledmac/ledmac.sty
@@ -23,7 +23,7 @@
 %%   This work consists of the files listed in the README file.
 %% 
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{ledmac}[2011/09/16 v0.11 LaTeX port of EDMAC]
+\ProvidesPackage{ledmac}[2011/10/02 v0.12.1 LaTeX port of EDMAC]
 
 \newif\ifledfinal
 \DeclareOption{final}{\ledfinaltrue}
@@ -131,7 +131,8 @@
 \newif\ifpst@rtedL
   \pst@rtedLfalse
 \newcount\l@dnumpstartsL
-
+\newif\ifledRcol
+\newif\ifnumberingR
 \newcommand*{\beginnumbering}{%
   \ifnumbering
     \led@err@NumberingStarted
@@ -142,7 +143,9 @@
   \initnumbering@reg
   \message{Section \the\section@num }%
   \line@list@stuff{\jobname.\extensionchars\the\section@num}%
-  \l@dend@stuff}
+  \l@dend@stuff
+  \setcounter{pstart}{1}
+}
 \newcommand*{\initnumbering@reg}{%
   \global\pst@rtedLfalse
   \global\l@dnumpstartsL \z@
@@ -174,8 +177,8 @@
     \fi
   \else
     \led@err@NumberingNotStarted
-  \fi}
-
+  \fi
+  \autoparfalse}
 \newcommand{\pausenumbering}{%
   \endnumbering\global\numberingtrue}
 \newcommand*{\resumenumbering}{%
@@ -729,6 +732,11 @@
 \newcount\num@lines
 \newbox\one@line
 \newcount\par@line
+
+\newcounter{pstart}
+\renewcommand{\thepstart}{{\bf\@arabic\c@pstart}. }
+\newif\ifnumberpstart
+\numberpstartfalse
 \newcommand*{\pstart}{
 \managehangingsymbol
 \if@nobreak
@@ -748,7 +756,7 @@
   \list@clear{\inserts@list}%
   \global\let\next@insert=\empty
   \begingroup\normal@pars
-  \global\setbox\raw@text=\vbox\bgroup
+  \global\setbox\raw@text=\vbox\bgroup\ifautopar\else\ifnumberpstart\ifinstanza\else\thepstart\fi\fi\fi
   \numberedpar@true}
 \newcommand*{\pend}{\ifnumbering \else
     \led@err@PendNotNumbered
@@ -756,6 +764,9 @@
   \ifnumberedpar@ \else
     \led@err@PendNoPstart
   \fi
+\ifnumberpstart
+\addtocounter{pstart}{1}
+\fi
   \l@dzeropenalties
   \endgraf\global\num@lines=\prevgraf\egroup
   \global\par@line=0
@@ -772,13 +783,24 @@
   \displaywidowpenalty \z@ \interlinepenalty \z@ \predisplaypenalty \z@
   \postdisplaypenalty \z@ \widowpenalty \z@}
 
-\newcommand*{\autopar}{\ifnumbering \else
+\newif\ifautopar
+\autoparfalse
+\newcommand*{\autopar}{
+  \ifledRcol
+    \ifnumberingR \else
+    \led@err@AutoparNotNumbered
+    \beginnumberingR
+    \fi
+    \else
+    \ifnumbering \else
     \led@err@AutoparNotNumbered
     \beginnumbering
+    \fi
   \fi
+  \autopartrue
   \everypar={\setbox0=\lastbox
     \endgraf \vskip-\parskip
-    \pstart \noindent \kern\wd0
+    \pstart \noindent \kern\wd0 \ifnumberpstart\ifinstanza\else\thepstart\fi\fi
     \let\par=\pend}%
   \ignorespaces}
 \newcommand*{\normal@pars}{\everypar={}\let\par\endgraf}