diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel-greek/greek.ldf')
-rw-r--r-- | Master/texmf-dist/tex/generic/babel-greek/greek.ldf | 45 |
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} |