teubner (15jan15)

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

2 files changed, 10 insertions, 6 deletions

diff --git a/Master/texmf-dist/tex/latex/teubner/teubner.sty b/Master/texmf-dist/tex/latex/teubner/teubner.sty
index 9e867f0e043..a9d8936e2ee 100644
--- a/Master/texmf-dist/tex/latex/teubner/teubner.sty
+++ b/Master/texmf-dist/tex/latex/teubner/teubner.sty
@@ -44,7 +44,7 @@
 %%   Right brace   \}     Tilde         \~}
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{teubner}[%
-2014/10/02 v.4.3
+2015/01/14 v.4.5
 Extensions for Greek philology]
 \RequirePackage{iftex}
 \let\ifPDF\ifPDFTeX
@@ -74,9 +74,9 @@ Type X <return> to exit.}%
 \RequirePackage{ifthen}
 \DeclareFontFamily{U}{mtr}{\hyphenchar\font\m@ne}
 \ifonesizetypeone
-\DeclareFontShape{U}{mtr}{m}{n}{<-> gmtr1000}{}%
+  \DeclareFontShape{U}{mtr}{m}{n}{<-> gmtr1000}{}%
 \else
-\DeclareFontShape{U}{mtr}{m}{n}{%
+  \DeclareFontShape{U}{mtr}{m}{n}{%
       <-5.5>    gmtr0500     <5.5-6.5> gmtr0600
       <6.5-7.5> gmtr0700     <7.5-8.5> gmtr0800
       <8.5-9.5> gmtr0900     <9.5-11>  gmtr1000
@@ -102,6 +102,7 @@ Type X <return> to exit.}%
  \let\strip@slash\@undefined
  \let\getgreekdate\@undefined
 \fi
+
 \newif\ifLipsian
 
 \providecommand*\substitutefontfamily{}%
@@ -325,6 +326,7 @@ Type X <return> to exit.}%
 \setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi
 \hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}}
 
+\AtBeginDocument{\RequirePackage{textalpha}}
 \let\nbs\nobreakspace
 \let\accacuto\'
 \let\accgrave\`
@@ -1004,7 +1006,8 @@ Type X <return> to exit.}%
         \else
           \empty
         \fi}%
-    \def\\{\@ifstar{\v@rscr{\@M}}{\v@rscr{\z@}}}%
+    \def\acapo{\@ifstar{\v@rscr{\@M}}{\v@rscr{\z@}}%
+    \let\\\acapo
     \def\v@rscr##1{\@ifnextchar[{\wr@teverse{##1}}%
         {\wr@teverse{##1}[\z@]}}%
     \def\wr@teverse##1[##2]{\egroup
@@ -1070,7 +1073,8 @@ Type X <return> to exit.}%
             {\fontseries{m}\scriptsize\expandafter\oldstylenums
                 \expandafter{\the\c@subverso}}%
         \fi}%
-    \def\\{\@ifstar{\v@rscr{\@M}}{\v@rscr{\z@}}}%
+    \def\\%
+        {\@ifstar{\v@rscr{\@M}}{\v@rscr{\z@}}}%
     \def\v@rscr##1{\@ifnextchar[{\writ@verse{##1}}%
         {\writ@verse{##1}[\z@]}}%
     \def\writ@verse##1[##2]{\egroup
diff --git a/Master/texmf-dist/tex/latex/teubner/teubnertx.sty b/Master/texmf-dist/tex/latex/teubner/teubnertx.sty
index 9f341df5eb4..c795d4d5646 100644
--- a/Master/texmf-dist/tex/latex/teubner/teubnertx.sty
+++ b/Master/texmf-dist/tex/latex/teubner/teubnertx.sty
@@ -43,7 +43,7 @@
 %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
 %%   Right brace   \}     Tilde         \~}
 \ProvidesPackage{teubnertx}[%
-2014/10/02 v.4.3
+2015/01/14 v.4.5
 Access to the LGR encoded Greek fonts that match the TX fonts]
 
  \DeclareFontFamily{LGR}{txr}{}