summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex')
-rw-r--r--Master/texmf-dist/tex/latex/begingreek/begingreek.sty19
1 files changed, 8 insertions, 11 deletions
diff --git a/Master/texmf-dist/tex/latex/begingreek/begingreek.sty b/Master/texmf-dist/tex/latex/begingreek/begingreek.sty
index 39df2a73b47..ab2001ed4e4 100644
--- a/Master/texmf-dist/tex/latex/begingreek/begingreek.sty
+++ b/Master/texmf-dist/tex/latex/begingreek/begingreek.sty
@@ -29,7 +29,7 @@
%% file or a modified version, except for a nominal charge for copying
%% etc.
\NeedsTeXFormat{LaTeX2e}[2018/01/01]
-\ProvidesPackage{begingreek}[2022/05/06 v.1.6 Defines environment greek]
+\ProvidesPackage{begingreek}[2022/05/06 v.1.7 Defines environment greek]
\usepackage{iftex}
\unless\ifPDFTeX
@@ -67,24 +67,21 @@ Type X to quit}{\@ehd}
}
\ProcessOptions\relax
-\newenvironment{greek}[1][\greekfontfamily]{\begin{otherlanguage}{greek}%
-\edef\Greekfontfamily{#1}%
-\IfFileExists{lgr\Greekfontfamily.fd}{}%
+\def\CBverifyandselectfont{\IfFileExists{lgr\Greekfontfamily.fd}{}%
{\PackageWarning{begingreek}{\MessageBreak
Font family lgr\Greekfontfamily.fd does not exist\MessageBreak
Default fonts used\MessageBreak}%
\def\Greekfontfamily{\greekfontfamily}}%
-\fontfamily{\Greekfontfamily}\selectfont
+\fontfamily{\Greekfontfamily}\selectfont}
+
+\newenvironment{greek}[1][\greekfontfamily]{\begin{otherlanguage}{greek}%
+\edef\Greekfontfamily{#1}%
+\CBverifyandselectfont
}{\end{otherlanguage}}
\newcommand*\greektxt[2][\greekfontfamily]{%
\edef\Greekfontfamily{#1}%
-\IfFileExists{lgr\Greekfontfamily.fd}{}%
- {\PackageWarning{begingreek}{\MessageBreak
- Font family lgr\Greekfontfamily.fd does not exist\MessageBreak
- Default fonts used\MessageBreak}%
-\def\Greekfontfamily{\greekfontfamily}}%
-\fontfamily{\Greekfontfamily}\selectfont
+\CBverifyandselectfont
\foreignlanguage{greek}{#2}}