summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel-greek
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-06-02 21:23:33 +0000
committerKarl Berry <karl@freefriends.org>2023-06-02 21:23:33 +0000
commit3f4eed1797ce5dd237f3680638a2be5e37db3be0 (patch)
tree37f2658249e7c50589e1291bd81e3504d496ed0f /Master/texmf-dist/tex/generic/babel-greek
parent193a4a9f79a21c46d0d3785469b1b1ee9d4184ef (diff)
babel-greek (2jun23)
git-svn-id: svn://tug.org/texlive/trunk@67268 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel-greek')
-rw-r--r--Master/texmf-dist/tex/generic/babel-greek/greek.ldf33
1 files changed, 27 insertions, 6 deletions
diff --git a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
index 86e98ca0814..9fe63802bd5 100644
--- a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
+++ b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
@@ -32,7 +32,7 @@
%% and covered by LPPL is defined by the unpacking script (babel-greek.ins)
%% which is part of the package.
\ProvidesLanguage{greek}
- [2023/03/17 1.13.1 Greek support for the babel system]
+ [2023-06-01 1.13.2 Greek support for the babel system]
%% File `babel-greek.dtx'
%% Greek language Definition File
%% Copyright © 1997, 2005 Apostolos Syropoulos, Johannes Braams
@@ -62,13 +62,9 @@
\providehyphenmins{\CurrentOption}{\@ne\@ne}
\def\bbl@greek@setup@polytonic{%
\expandafter\addto\expandafter\extrasgreek
- \expandafter{\extraspolutonikogreek}%
+ \expandafter{\extraspolutonikogreek}%
\let\captionsgreek\captionspolutonikogreek
\let\gr@month\gr@polutoniko@month
- \def\bbl@tempa{LGR}
- \ifx\greekfontencoding\bbl@tempa
- \declare@shorthand{greek}{~}{\bbl@greek@tilde}
- \fi
}
\bbl@declare@ttribute{greek}{polutoniko}{%
\bbl@greek@setup@polytonic
@@ -99,6 +95,18 @@
\declare@shorthand{greek}{;}{\TextOrMath{\textsemicolon}{;}}
\fi
}
+\def\bbl@greek@modifiers{,polutoniko,polytonic,ancient,keep-semicolon,}
+\addto\bbl@greek@modifiers{local-LGR-fixes,no-LGR-fixes,}
+\ifx\BabelModifiers\relax\else
+ \bbl@foreach\BabelModifiers{%
+ \@expandtwoargs\in@{,#1,}{\bbl@greek@modifiers}
+ \ifin@\else
+ \bbl@warning
+ {Unknown/misspelled modifier '#1' in '\CurrentOption'.
+ See "babel-greek.pdf" for valid modifiers.}
+ \fi}%
+\fi
+
\ifdefined\UnicodeEncodingName % set by XeTeX/LuaTeX
\providecommand*{\greekfontencoding}{\UnicodeEncodingName}
\providecommand*{\bbl@greek@fontencdef}{tuenc-greek}
@@ -559,6 +567,16 @@
\lccode219=240% GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
\lccode223=244% GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
}
+ \ifdefined\DeclareUppercaseMapping % new in 2023
+ \DeclareUppercaseMapping[el]{"1FBE}{\prosgegrammeni}%
+ \DeclareUppercaseMapping[el]{"0027}{}% '
+ \addto\bbl@greek@setup@polytonic{
+ \DeclareUppercaseMapping[el]{"003C}{}% <
+ \DeclareUppercaseMapping[el]{"003E}{}% >
+ \DeclareUppercaseMapping[el]{"0060}{}% `
+ \DeclareUppercaseMapping[el]{"007E}{}% ~
+ }
+ \fi
% fallback for for LaTeX versions older than 2020-10-01
\providecommand\IfFormatAtLeastTF{\@ifl@t@r\fmtversion}
\IfFormatAtLeastTF{2022/06/01}%
@@ -589,6 +607,9 @@
\fi
}% end of the \IfFormatAtLeastTF else block
\DeclareTextSymbol{\bbl@greek@tilde}{LGR}{126}
+ \addto\bbl@greek@setup@polytonic{
+ \declare@shorthand{greek}{~}{\bbl@greek@tilde}
+ }
\fi % End of LGR-specific code.
\providecommand*{\anwtonos}{\textdexiakeraia}
\providecommand*{\katwtonos}{\textaristerikeraia}