summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel-greek/greek.ldf')
-rw-r--r--Master/texmf-dist/tex/generic/babel-greek/greek.ldf45
1 files changed, 26 insertions, 19 deletions
diff --git a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
index 0c67a235de6..86e98ca0814 100644
--- a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
+++ b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
@@ -32,14 +32,15 @@
%% and covered by LPPL is defined by the unpacking script (babel-greek.ins)
%% which is part of the package.
\ProvidesLanguage{greek}
- [2023/03/04 1.12 Greek support for the babel system]
+ [2023/03/17 1.13.1 Greek support for the babel system]
%% File `babel-greek.dtx'
%% Greek language Definition File
%% Copyright © 1997, 2005 Apostolos Syropoulos, Johannes Braams
-%% Copyright © 2013 -- 2020 Günter Milde
+%% Copyright © 2013 -- 2023 Günter Milde
%% Please report errors to: Günter Milde <milde@users.sf.net>
\LdfInit\CurrentOption{captions\CurrentOption}
\gdef\CurrentOption{greek}
+\addto\extrasgreek{\languageshorthands{greek}}
\ifx\l@greek\@undefined
\@nopatterns{greek}
\adddialect\l@greek 0
@@ -59,32 +60,45 @@
\addto\extraspolutonikogreek{\l@greek=\bbl@polygreek}
\addto\extrasancientgreek{\l@greek=\bbl@ancientgreek}
\providehyphenmins{\CurrentOption}{\@ne\@ne}
-\bbl@declare@ttribute{greek}{polutoniko}{%
+\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
\let\l@polutonikogreek\l@greek
\let\datepolutonikogreek\dategreek
\let\extraspolutonikogreek\extrasgreek
\let\noextraspolutonikogreek\noextrasgreek
}
\bbl@declare@ttribute{greek}{polytonic}{%
- \expandafter\addto\expandafter\extrasgreek
- \expandafter{\extraspolutonikogreek}%
- \let\captionsgreek\captionspolutonikogreek
- \let\gr@month\gr@polutoniko@month
+ \bbl@greek@setup@polytonic
}
\bbl@declare@ttribute{greek}{ancient}{%
- \expandafter\addto\expandafter\extrasgreek
- \expandafter{\extraspolutonikogreek}% multi-accented letters
+ \bbl@greek@setup@polytonic
\expandafter\addto\expandafter\extrasgreek
\expandafter{\extrasancientgreek}%
\let\captionsgreek\captionsancientgreek
- \let\gr@month\gr@polutoniko@month % (modern) polytonic month names
\renewcommand{\greeknumeralninety}{\textqoppa}%
\renewcommand{\greeknumeralNinety}{\textQoppa}%
}
+\bbl@declare@ttribute{greek}{keep-semicolon}{%
+ \def\bbl@tempa{LGR}
+ \ifx\greekfontencoding\bbl@tempa
+ \ProvideTextCommandDefault{\textsemicolon}{;}
+ \ProvideTextCommand{\textsemicolon}{LGR}{\texterotimatiko}
+ \initiate@active@char{;}
+ \addto\extrasgreek{\bbl@activate{;}}
+ \addto\noextrasgreek{\bbl@deactivate{;}}
+ \declare@shorthand{greek}{;}{\TextOrMath{\textsemicolon}{;}}
+ \fi
+}
\ifdefined\UnicodeEncodingName % set by XeTeX/LuaTeX
\providecommand*{\greekfontencoding}{\UnicodeEncodingName}
\providecommand*{\bbl@greek@fontencdef}{tuenc-greek}
@@ -574,14 +588,7 @@
\DeclareTextCompositeCommand{\"}{TU}{^^9f}{\accdialytika}
\fi
}% end of the \IfFormatAtLeastTF else block
- \begingroup
- \@ifundefined{active@char\string!}{}{\catcode`!=12\relax}
- \catcode`\~=12%
- \lccode`\!=`\~%
- \lowercase{\def\x{\endgroup
- \def\greek@tilde{!}}\x}
- \addto\extraspolutonikogreek{\languageshorthands{greek}}
- \declare@shorthand{greek}{~}{\greek@tilde}
+ \DeclareTextSymbol{\bbl@greek@tilde}{LGR}{126}
\fi % End of LGR-specific code.
\providecommand*{\anwtonos}{\textdexiakeraia}
\providecommand*{\katwtonos}{\textaristerikeraia}