diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/teubner/teubner.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/teubner/teubner.sty | 14 |
1 files changed, 9 insertions, 5 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 |