diff options
author | Karl Berry <karl@freefriends.org> | 2011-09-17 22:59:04 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-09-17 22:59:04 +0000 |
commit | ae2491a03dcd2036d8879409d6fe624854f27e3f (patch) | |
tree | cc0d7a0656462040d39f116cabb0af7897ce8822 /Master/texmf-dist/tex/latex/ledmac/ledpar.sty | |
parent | 1660ead686e1adf91f9eb96d0fe3010b137136f4 (diff) |
ledmac (17sep11)
git-svn-id: svn://tug.org/texlive/trunk@23993 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/ledmac/ledpar.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/ledmac/ledpar.sty | 36 |
1 files changed, 33 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/latex/ledmac/ledpar.sty b/Master/texmf-dist/tex/latex/ledmac/ledpar.sty index 7c90f0b2415..68b27b70d4b 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/08/31 v0.7 ledmac extension for parallel texts] +\ProvidesPackage{ledpar}[2011/09/16 v0.8 ledmac extension for parallel texts] \newif\ifshiftedverses \shiftedversesfalse @@ -706,7 +706,7 @@ \fi \fi} -\newenvironment{pairs}{% +\newenvironment{pairs}{%} \l@dpairingtrue \l@dpagingfalse }{% @@ -858,6 +858,7 @@ \newcount\@donetotallinesR \newcommand*{\do@lineL}{% + \manageparhangingsymbol \advance\countLline \@ne \ifvbox\namebox{l@dLcolrawbox\the\l@dpscL}% {\vbadness=10000 @@ -867,7 +868,7 @@ \global\setbox\one@line=\vsplit\namebox{l@dLcolrawbox\the\l@dpscL} to\baselineskip}% \unvbox\one@line \global\setbox\one@line=\lastbox - \getline@num + \getline@numL \setbox\l@dleftbox \hb@xt@ \Lcolwidth{% \affixline@num @@ -890,6 +891,7 @@ \newcommand*{\do@lineRhook}{} \newcommand*{\do@lineR}{% +\manageparhangingsymbol \advance\countRline \@ne \ifvbox\namebox{l@dRcolrawbox\the\l@dpscR}% {\vbadness=10000 @@ -928,10 +930,26 @@ \fi \else \ifnum\@lockR<\tw@ +\addtocounter{hbox}{10}% \global\advance\line@numR \@ne \global\subline@numR \z@ \fi \fi} +\newcommand*{\getline@numL}{% + \global\advance\absline@num \@ne + \do@actions + \do@ballast + \ifsublines@ + \ifnum\sub@lock<\tw@ + \global\advance\subline@num \@ne + \fi + \else + \ifnum\@lock<\tw@ + \global\advance\line@num \@ne + \addtocounter{hbox}{10}% + \global\subline@num \z@ + \fi + \fi} \newcommand*{\do@ballastR}{\global\ballast@count=\z@ \begingroup @@ -1438,6 +1456,15 @@ \fi \fi\ignorespaces} + + +\newcommand{\manageparhangingsymbol}{% + \setcounter{hbox}{0}% + \everyhbox{% + \ifnum \value{hbox}=-2% + \hangingsymbol% + \fi% + \addtocounter{hbox}{-1}}} \chardef\next=\catcode`\& \catcode`\&=\active @@ -1728,6 +1755,7 @@ \do@lineL \advance\numpagelinesL \@ne \ifshiftedverses +\addtocounter{hbox}{-1} \ifdim\ht\l@dleftbox>0pt\hb@xt@ \hsize{\ledstrutL\unhbox\l@dleftbox}\fi% \else \hb@xt@ \hsize{\ledstrutL\unhbox\l@dleftbox}% @@ -1748,6 +1776,7 @@ \do@lineR \advance\numpagelinesR \@ne \ifshiftedverses +\addtocounter{hbox}{-1} \ifdim\ht\l@drightbox>0pt\hb@xt@ \hsize{\ledstrutR\unhbox\l@drightbox}\fi% \else \hb@xt@ \hsize{\ledstrutR\unhbox\l@drightbox}% @@ -1778,6 +1807,7 @@ \global\l@dpscR=\z@ \global\l@dnumpstartsL=\z@ \global\l@dnumpstartsR=\z@ + \ignorespaces} \newcommand*{\ledstrutL}{\strut} |