2 files changed, 34 insertions, 28 deletions
diff --git a/Master/texmf-dist/tex/generic/babel-greek/athnum.sty b/Master/texmf-dist/tex/generic/babel-greek/athnum.sty
index bbd21dae13c..e662170355e 100644
--- a/Master/texmf-dist/tex/generic/babel-greek/athnum.sty
+++ b/Master/texmf-dist/tex/generic/babel-greek/athnum.sty
@@ -31,14 +31,14 @@
 %% The list of derived (unpacked) files belonging to this work
 %% and covered by LPPL is defined by the unpacking script (babel-greek.ins)
 %% which is part of the package.
-%% \CheckSum{150}
+%% \CheckSum{146}
 %% This is file `athnum.dtx'
 %% (c) 1997-2007 Apostolos Syropoulos.
-%% Changes in version 2.0 © 2022 Günter Milde
+%% Changes in version 2 © 2022, 2023 Günter Milde
 %% All rights reserved.
+%%\title{Athenian (Attic) Numerals}
 \NeedsTeXFormat{LaTeX2e}[1996/01/01]
-\ProvidesPackage{athnum}[2022/12/08\space v2.0]
-\typeout{Package: `athnum' v2.0\space <2022/12/08> (A. Syropoulos)}
+\ProvidesPackage{athnum}[2023/03/17 v2.0.1 Athenian numerals]
 \ifdefined \UnicodeEncodingName % set by LaTeX for XeTeX/LuaTeX
   \providecommand*{\greekfontencoding}{\UnicodeEncodingName}
   \providecommand*{\athnum@greek@fontencdef}{tuenc-greek}
@@ -51,10 +51,9 @@
   \InputIfFileExists{\athnum@greek@fontencdef .def}{}{% else
     \PackageError{athnum}{Font support for the Greek script missing.\\
                can't typeset Greek symbols.\\
-               Install the "greek-fontenc" package\\
-               or use XeTeX/LuaTeX.}
+               Install the "greek-fontenc" package.}
               {I can't find the \athnum@greek@fontencdef .def file
-               for the Greek fonts (encoding \greekfontencoding)}
+               for the Greek fonts (encoding \greekfontencoding).}
     \@@end
   }
 }
@@ -101,10 +100,10 @@
 \def\@athnum#1{%
      \expandafter\@@athnum\expandafter{\the#1}}
 \def\athnum#1{%
-     \ensuregreek{%
+     \textrm{\ensuregreek{%
        \@ath@num#1\relax
        \@athnum{\@ath@num}}%
-     }
+     }}
 \endinput
 %%
 %% End of file `athnum.sty'.
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}