From c70862e56903d16c3f4a014431e6bf9f9c378115 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 22 Aug 2019 20:24:08 +0000
Subject: poemscol (21aug19)

git-svn-id: svn://tug.org/texlive/trunk@51934 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/poemscol/poemscol.sty | 28 ++++++++++++++---------
 1 file changed, 17 insertions(+), 11 deletions(-)

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

diff --git a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
index 1a42da65680..15617f71408 100644
--- a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
+++ b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
@@ -22,8 +22,7 @@
 %% in the same archive or directory.)
 \NeedsTeXFormat{LaTeX2e}[1997/12/01]
 \ProvidesPackage{poemscol}
-   [2019/08/03 v3 poemscol file]
- % must enclose it in square brackets, not curly ones.\end{sloppypar}
+   [2019/08/18 v3.02 poemscol file]
  %|\prosexyznote|
 
 %%
@@ -92,22 +91,29 @@
 \hfuzz=2pt
 \newlength{\verseindentamount}
 \setlength{\verseindentamount}{2em}
-\newcommand{\verseindent}{\hspace{\verseindentamount}}
+\newcount\l@@pcounter
+\newcommand{\repeatedindent}[1]{\l@@pcounter=#1%
+\loop%
+\ifnum\l@@pcounter>0%
+\hspace{\verseindentamount}%
+\advance \l@@pcounter -1
+\repeat}
+\newcommand{\verseindent}[1][]{%
+\ifthenelse{\equal{#1}{}}{\hspace{\verseindentamount}}{\repeatedindent{#1}}}
 \newlength{\indentedstanzaamount}
 \setlength{\indentedstanzaamount}{\verseindentamount}
 \newlength{\variablestanzaamount}
 \setlength{\variablestanzaamount}{\indentedstanzaamount}
-\newcount\loopcounter
-\newcommand{\adjustst@nzaindent}[1]{\loopcounter=#1
-\loop
- \addtolength{\variablestanzaamount}{\indentedstanzaamount}
-  \advance \loopcounter -1
-\ifnum \loopcounter>0
+\newcommand{\adjustst@nzaindent}[1]{\l@@pcounter=#1%
+\loop%
+ \addtolength{\variablestanzaamount}{\indentedstanzaamount}%
+  \advance \l@@pcounter -1%
+\ifnum \l@@pcounter>0
 \repeat}
 \newif\ifinindentedverse
 \newenvironment{indentedverse}[1][]{%
-\inindentedversetrue
-\ifthenelse{\equal{#1}{}}{\relax}{\adjustst@nzaindent{#1}}
+\inindentedversetrue%
+\ifthenelse{\equal{#1}{}}{\relax}{\adjustst@nzaindent{#1}}%
 \let\\=\@centercr%
 \list{}{\itemsep\z@ \itemindent -\runoverindentvalue\listparindent \itemindent
 \rightmargin 0sp\leftmargin 0sp\advance\leftmargin
-- 
cgit v1.2.3

