summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-05-07 20:37:47 +0000
committerKarl Berry <karl@freefriends.org>2022-05-07 20:37:47 +0000
commit756dd58cc713766a902cd97c5a255cbd3a9c74b9 (patch)
tree6f2d1af00b6743392a26b5e9508e4d3b4796367b /Master/texmf-dist/tex/latex
parenta576e8f190f9ee34a3239738aeb3984b4ff43e57 (diff)
begingreek (7may22)
git-svn-id: svn://tug.org/texlive/trunk@63248 c570f23f-e606-0410-a88d-b1316a301751
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}}