mathastext (24may14)

git-svn-id: svn://tug.org/texlive/trunk@34411 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 381 insertions, 351 deletions

diff --git a/Master/texmf-dist/tex/latex/mathastext/mathastext.sty b/Master/texmf-dist/tex/latex/mathastext/mathastext.sty
index 59f70128ab2..02b134fe25a 100644
--- a/Master/texmf-dist/tex/latex/mathastext/mathastext.sty
+++ b/Master/texmf-dist/tex/latex/mathastext/mathastext.sty
@@ -21,16 +21,16 @@
 %% same distribution. (The sources need not necessarily be
 %% in the same archive or directory.)
 %%----------------------------------------------------------------
-%% The mathastext package (version 1.3c of December 14, 2013)
+%% The mathastext package (version 1.3d of May 23, 2014)
 %% Use the text font in math mode (jfB)
-%% Copyright (C) 2011, 2012, 2013 by Jean-Francois Burnol
+%% Copyright (C) 2011-2014 Jean-Francois Burnol
 %% Examples of use of mathastext:
 %%        http://jf.burnol.free.fr/mathastext.html
 %%        http://jf.burnol.free.fr/showcase.html
 %%----------------------------------------------------------------
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage {mathastext}
-  [2013/12/14 v1.3c Use the text font in math mode (jfB)]
+  [2014/05/23 v1.3d Use the text font in math mode (jfB)]
 \newif\ifmst@XeTeX
 \begingroup\expandafter\expandafter\expandafter\endgroup
 \expandafter\ifx\csname XeTeXinterchartoks\endcsname\relax
@@ -123,7 +123,9 @@
 \newif\ifmst@symboldigits
     \DeclareOption{symboldigits}{\mst@needsymboltrue\mst@symboldigitstrue}
 \newif\ifmst@symbolgreek
-    \DeclareOption{symbolgreek}{\mst@needsymboltrue\mst@symbolgreektrue}
+\newif\ifmst@customgreek %% new with 1.3d
+    \DeclareOption{symbolgreek}{\mst@needsymboltrue\mst@symbolgreektrue
+                                \mst@customgreektrue }
 \newif\ifmst@symbolre
     \DeclareOption{symbolre}{\mst@needsymboltrue\mst@symbolretrue}
 \newif\ifmst@symbolmisc
@@ -135,16 +137,19 @@
 \newif\ifmst@eulerdigits
     \DeclareOption{eulerdigits}{\mst@needeulertrue\mst@eulerdigitstrue}
 \newif\ifmst@eulergreek
-    \DeclareOption{eulergreek}{\mst@needeulertrue\mst@eulergreektrue}
+    \DeclareOption{eulergreek}{\mst@needeulertrue\mst@eulergreektrue
+                               \mst@customgreektrue }
 %%
 \newif\ifmst@selfGreek
-    \DeclareOption{selfGreek}{\mst@selfGreektrue}
+    \DeclareOption{selfGreek}{\mst@selfGreektrue\mst@customgreektrue}
 \newif\ifmst@selfGreeks
-    \DeclareOption{selfGreeks}{\mst@selfGreekstrue\mst@selfGreektrue}
+    \DeclareOption{selfGreeks}{\mst@selfGreekstrue\mst@selfGreektrue
+                               \mst@customgreektrue }
 \newif\ifmst@LGRgreek
-    \DeclareOption{LGRgreek}{\mst@LGRgreektrue}
+    \DeclareOption{LGRgreek}{\mst@LGRgreektrue\mst@customgreektrue}
 \newif\ifmst@LGRgreeks
-    \DeclareOption{LGRgreeks}{\mst@LGRgreekstrue\mst@LGRgreektrue}
+    \DeclareOption{LGRgreeks}{\mst@LGRgreekstrue\mst@LGRgreektrue
+                              \mst@customgreektrue}
 %%
 \def\mst@greek@select{0}
 \newif\ifmst@itgreek
@@ -370,9 +375,12 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
   \mst@do@AZ\expandafter{\the\mst@do@AZ\mst@mathactivate#1#2#3}%
 }
 \ifmst@basic\else
+\AtBeginDocument {%
     \@ifpackageloaded{amsmath}
-    {\let\newmcodes@\relax} % brutal, but bye bye and don't come back.
-    {}
+    {\@ifpackageloaded{lualatex-math}
+       {\@ifpackagelater{lualatex-math}{2013/08/03}{}{\let\newmcodes@\relax}}
+       {\let\newmcodes@\relax}}
+    {}}
 \fi
 \ifmst@subdued
   \def\mst@reserved#1\getanddefine@fonts\symletters#2#3\@nil{%
@@ -414,28 +422,30 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
   \typeout{** ...done.}
   }
 \fi % fin de ce \ifmst@subdued
-\DeclareSymbolFont{mtoperatorfont}
-    {\mst@enc}{\mst@fam}{\mst@ser}{\mst@opsh}
+\DeclareSymbolFont{mtoperatorfont}{\mst@enc}{\mst@fam}{\mst@ser}{\mst@opsh}
 \newcommand*{\MTmathoperatorsobeymathxx}
 {\def\operator@font{\mathgroup\ifnum\fam=\m@ne\symmtoperatorfont\else\fam\fi}}
 \newcommand*{\MTmathoperatorsdonotobeymathxx}
 {\def\operator@font{\mathgroup\symmtoperatorfont}}
 \MTmathoperatorsobeymathxx
-\DeclareSymbolFont{mtletterfont}
-       {\mst@enc}{\mst@fam}{\mst@ser}{\mst@ltsh}
+\DeclareSymbolFont{mtletterfont}{\mst@enc}{\mst@fam}{\mst@ser}{\mst@ltsh}
 \let\mst@alph@omicron\mathnormal
 \@ifpackageloaded{fourier}{\ifsloped\else\let\mst@alph@omicron\mathrm\fi}{}
 \DeclareSymbolFontAlphabet{\Mathnormal}{mtletterfont}
 \DeclareSymbolFontAlphabet{\Mathrm}{mtoperatorfont}
 \ifmst@nonormalbold\else
    \DeclareMathAlphabet{\mathnormalbold}{\mst@enc}{\mst@fam}{\mst@bold}{\mst@ltsh}
-\fi\ifmst@defaultbf\else
+\fi
+\ifmst@defaultbf\else
    \DeclareMathAlphabet{\Mathbf}{\mst@enc}{\mst@fam}{\mst@bold}{\mst@opsh}
-\fi\ifmst@defaultit\else
+\fi
+\ifmst@defaultit\else
    \DeclareMathAlphabet{\Mathit}{\mst@enc}{\mst@fam}{\mst@ser}{\itdefault}
-\fi\ifmst@defaultsf\else
+\fi
+\ifmst@defaultsf\else
    \DeclareMathAlphabet{\Mathsf}{\mst@enc}{\sfdefault}{\mst@ser}{\mst@opsh}
-\fi\ifmst@defaulttt\else
+\fi
+\ifmst@defaulttt\else
    \DeclareMathAlphabet{\Mathtt}{\mst@enc}{\ttdefault}{\mst@ser}{\mst@opsh}
 \fi
 \let\mst@original@normal\mathnormal
@@ -480,14 +490,11 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
 \mst@update@greeksh
 \ifmst@LGRgreek
     \DeclareFontEncoding{LGR}{}{}
-    \DeclareSymbolFont{mtlgrfontlower}{LGR}
-            {\mst@fam}{\mst@ser}{\mst@greek@lsh}
-    \DeclareSymbolFont{mtlgrfontupper}{LGR}
-            {\mst@fam}{\mst@ser}{\mst@greek@ush}
+    \DeclareSymbolFont{mtlgrfontlower}{LGR}{\mst@fam}{\mst@ser}{\mst@greek@lsh}
+    \DeclareSymbolFont{mtlgrfontupper}{LGR}{\mst@fam}{\mst@ser}{\mst@greek@ush}
 \else
 \ifmst@selfGreek
-        \DeclareSymbolFont{mtselfGreekfont}{OT1}
-            {\mst@fam}{\mst@ser}{\mst@greek@ush}
+    \DeclareSymbolFont{mtselfGreekfont}{OT1}{\mst@fam}{\mst@ser}{\mst@greek@ush}
 \fi\fi
 \ifmst@needeuler\typeout{** will use Euler font; command \string\MTEulerScale}
 \DeclareSymbolFont{mteulervm}{U}{zeur}{m}{n}
@@ -846,23 +853,23 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
       \SetSymbolFont{mtlgrfontlower}{#2}{LGR}{#4}{#5}{\mst@greek@lsh@loc}%
       \SetSymbolFont{mtlgrfontupper}{#2}{LGR}{#4}{#5}{\mst@greek@ush@loc}%
     \typeout{** Greek letters (\mst@greek@lsh@loc/\mst@greek@ush@loc) will use
-                LGR font #4}%
+                LGR font #4\ifmst@subdued ^^J** (in non subdued versions)\fi}%
   \else
    \ifmst@selfGreeks
       \SetSymbolFont{mtselfGreekfont}{#2}{OT1}{#4}{#5}{\mst@greek@ush@loc}%
      \typeout{** Capital Greek letters (\mst@greek@lsh@loc/\mst@greek@ush@loc)
-                 will use OT1 font #4}%
+                 will use OT1 font #4\ifmst@subdued ^^J** (in non subdued versions)\fi}%
    \else
     \ifmst@LGRgreek
       \SetSymbolFont{mtlgrfontlower}{#2}{LGR}{\mst@greekfont}{#5}{\mst@greek@lsh@loc}%
       \SetSymbolFont{mtlgrfontupper}{#2}{LGR}{\mst@greekfont}{#5}{\mst@greek@ush@loc}%
     \typeout{** Greek letters (\mst@greek@lsh@loc/\mst@greek@ush@loc) will use
-                LGR font \mst@greekfont}%
+                LGR font \mst@greekfont\ifmst@subdued ^^J** (in non subdued versions)\fi}%
     \else
      \ifmst@selfGreek
        \SetSymbolFont{mtselfGreekfont}{#2}{OT1}{\mst@greekfont}{#5}{\mst@greek@ush@loc}%
        \typeout{** Capital Greek letters (\mst@greek@lsh@loc/\mst@greek@ush@loc)
-                   will use OT1 font \mst@greekfont}%
+                   will use OT1 font \mst@greekfont\ifmst@subdued ^^J** (in non subdued versions)\fi}%
      \fi
     \fi
    \fi
@@ -881,29 +888,16 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
     \else
         \let\mst@tmp\mst@tmpa
     \fi
-    \usefont{\csname mst@encoding@\mst@tmp\endcsname}%
-        {\csname mst@family@\mst@tmp\endcsname}%
-        {\csname mst@series@\mst@tmp\endcsname}%
-        {\csname mst@shape@\mst@tmp\endcsname}%
-    \edef\mst@@encoding{\csname mst@encoding@\mst@tmp\endcsname}%
-        \renewcommand{\encodingdefault}{\mst@@encoding}%
-%% some modifications for v1.15b
-    \edef\mst@@famdefault{\csname mst@family@\mst@tmp\endcsname}%
-        \renewcommand{\familydefault}{\mst@@famdefault}%
-    \edef\mst@@series{\csname mst@series@\mst@tmp\endcsname}%
-        \renewcommand{\mddefault}{\mst@@series}%
-    \edef\mst@@shape{\csname mst@shape@\mst@tmp\endcsname}%
-        \renewcommand{\shapedefault}{\mst@@shape}%
-    \edef\mst@@boldvariant{\csname mst@boldvariant@\mst@tmp\endcsname}%
-        \renewcommand{\bfdefault}{\mst@@boldvariant}%
-    \edef\mst@@itdefault{\csname mst@itdefault@\mst@tmp\endcsname}%
-        \renewcommand{\itdefault}{\mst@@itdefault}%
-    \edef\mst@@rmdefault{\csname mst@rmdefault@\mst@tmp\endcsname}%
-        \renewcommand{\rmdefault}{\mst@@rmdefault}%
-    \edef\mst@@sfdefault{\csname mst@sfdefault@\mst@tmp\endcsname}%
-        \renewcommand{\sfdefault}{\mst@@sfdefault}%
-    \edef\mst@@ttdefault{\csname mst@ttdefault@\mst@tmp\endcsname}%
-        \renewcommand{\ttdefault}{\mst@@ttdefault}%
+    \edef\encodingdefault {\csname mst@encoding@\mst@tmp\endcsname}%
+    \edef\familydefault   {\csname mst@family@\mst@tmp\endcsname}%
+    \edef\seriesdefault   {\csname mst@series@\mst@tmp\endcsname}%
+    \edef\shapedefault    {\csname mst@shape@\mst@tmp\endcsname}%
+    \edef\bfdefault {\csname mst@boldvariant@\mst@tmp\endcsname}%
+    \edef\itdefault {\csname mst@itdefault@\mst@tmp\endcsname}%
+    \edef\rmdefault {\csname mst@rmdefault@\mst@tmp\endcsname}%
+    \edef\sfdefault {\csname mst@sfdefault@\mst@tmp\endcsname}%
+    \edef\ttdefault {\csname mst@ttdefault@\mst@tmp\endcsname}%
+    \usefont{\encodingdefault}{\familydefault}{\seriesdefault}{\shapedefault}%
     \MTversion@@ {#2}%
 }
 \newcommand*\MTversion@@ [1]{%
@@ -932,6 +926,8 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
 %% v1.15f: subdueing math alphabets in a simpler way than in 1.15e
 %% v1.2b: subdueing the activation of characters in math mode
 %% v1.2d: special treatment of the asterisk
+%% v1.3d: extended LGRgreek mechanism of activation/restoration of Greek to all
+%% cases
     \MTmathoperatorsobeymathxx
     \MTeasynonlettersobeymathxx
     \ifmst@asterisk\let\mst@doasterisk\mst@@doasterisk\fi
@@ -939,27 +935,29 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
       \def\mst@tmpa{normal}%
       \ifx\mst@tmp\mst@tmpa
         \mst@restorealphabets
+        \MTstandardgreek
         \MTmathoperatorsdonotobeymathxx
         \MTnonlettersdonotobeymathxx
         \MTeasynonlettersdonotobeymathxx
         \MTmathstandardletters
         \ifmst@asterisk\let\mst@doasterisk\relax\fi
-        \ifmst@LGRgreek\mst@restoregreek\fi
       \else
         \def\mst@tmpa{bold}%
         \ifx\mst@tmp\mst@tmpa
           \mst@restorealphabets
+          \MTstandardgreek
           \MTmathoperatorsdonotobeymathxx
           \MTnonlettersdonotobeymathxx
           \MTeasynonlettersdonotobeymathxx
           \MTmathstandardletters
           \ifmst@asterisk\let\mst@doasterisk\relax\fi
-          \ifmst@LGRgreek\mst@restoregreek\fi
         \else
           \mst@setalphabets
-          \ifmst@LGRgreek\mst@setuplgrgreek\fi
+          \MTcustomgreek
         \fi
       \fi
+    \else
+      \MTcustomgreek % new with 1.3d
     \fi
 }
 \let\MathastextVersion\MTversion
@@ -968,12 +966,16 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
 \let\mathastextversion\MTversion
 \Mathastext
 \ifmst@eulergreek
-      \typeout{** Greek letters will use the Euler font. Use^^J%
-               ** \protect\MathastextEulerScale{<factor>} to scale the font.}%
+      \typeout{** Greek letters will use the Euler font. Use \protect\MathastextEulerScale{<factor>} to scale the
+               font.}%
+      \ifmst@subdued{\typeout{** (subdued mode: normal and bold math
+          version with default Greek letters.)}}\fi
 \else
 \ifmst@symbolgreek
        \typeout{** Greek letters will use the PostScript Symbol font. Use^^J%
                 ** \protect\MathastextSymbolScale{<factor>} to scale the font.}%
+      \ifmst@subdued{\typeout{** (subdued mode: normal and bold math
+          version with default Greek letters.)}}\fi
 \fi\fi
 \def\mst@DeclareMathLetter #1{%
     \DeclareMathSymbol {#1}{\mathalpha}{mtletterfont}{`#1}%
@@ -1266,8 +1268,6 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
 \else
     \DeclareMathDelimiter{<}{\mathopen}{\mst@font@tbu}{"3C}{largesymbols}{"0A}
     \DeclareMathDelimiter{>}{\mathclose}{\mst@font@tbu}{"3E}{largesymbols}{"0B}
-    \expandafter\DeclareMathDelimiter\@backslashchar
-        {\mathord}{mtoperatorfont}{"5C}{largesymbols}{"0F}
     \DeclareMathDelimiter{\backslash}
         {\mathord}{mtoperatorfont}{"5C}{largesymbols}{"0F}
     \DeclareMathDelimiter{\mst@varfam@backslash}
@@ -1460,302 +1460,142 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
 \mst@goaheadtrue
 \ifmst@selfGreek
     \def\mst@font@tbu{mtselfGreekfont}
- \else
-\ifmst@eulergreek
-    \def\mst@font@tbu{mteulervm}
- \else
-\ifmst@symbolgreek
-    \def\mst@font@tbu{mtpsymbol}
-    \let\mst@mathord\mathord
- \else
-\ifmst@LGRgreek
-     \mst@goaheadfalse
- \else
-       \mst@goaheadfalse
-       \ifx\omicron\undefined
-       \newcommand*{\omicron}{\mst@alph@omicron{o}}
-       \fi
-\fi\fi\fi\fi
+\else
+    \ifmst@eulergreek
+        \def\mst@font@tbu{mteulervm}
+    \else
+      \ifmst@symbolgreek
+        \def\mst@font@tbu{mtpsymbol}
+        \let\mst@mathord\mathord
+      \else
+         \ifmst@LGRgreek
+            \mst@goaheadfalse
+         \else
+           \mst@goaheadfalse
+           \def\mst@omicron {\mst@alph@omicron{o}}
+         \fi
+      \fi
+   \fi
+\fi
 \ifmst@goahead
-\DeclareMathSymbol{\Alpha}{\mst@mathord}{\mst@font@tbu}{"41}
-\DeclareMathSymbol{\Beta}{\mst@mathord}{\mst@font@tbu}{"42}
-\DeclareMathSymbol{\Epsilon}{\mst@mathord}{\mst@font@tbu}{"45}
-\DeclareMathSymbol{\Zeta}{\mst@mathord}{\mst@font@tbu}{"5A}
-\DeclareMathSymbol{\Eta}{\mst@mathord}{\mst@font@tbu}{"48}
-\DeclareMathSymbol{\Iota}{\mst@mathord}{\mst@font@tbu}{"49}
-\DeclareMathSymbol{\Kappa}{\mst@mathord}{\mst@font@tbu}{"4B}
-\DeclareMathSymbol{\Mu}{\mst@mathord}{\mst@font@tbu}{"4D}
-\DeclareMathSymbol{\Nu}{\mst@mathord}{\mst@font@tbu}{"4E}
-\DeclareMathSymbol{\Omicron}{\mst@mathord}{\mst@font@tbu}{"4F}
-\DeclareMathSymbol{\Rho}{\mst@mathord}{\mst@font@tbu}{"50}
-\DeclareMathSymbol{\Tau}{\mst@mathord}{\mst@font@tbu}{"54}
-\DeclareMathSymbol{\Chi}{\mst@mathord}{\mst@font@tbu}{"58}
-\ifx\mst@mathord\mathord
+  \DeclareMathSymbol{\mst@Alpha}{\mst@mathord}{\mst@font@tbu}{"41}
+  \DeclareMathSymbol{\mst@Beta}{\mst@mathord}{\mst@font@tbu}{"42}
+  \DeclareMathSymbol{\mst@Epsilon}{\mst@mathord}{\mst@font@tbu}{"45}
+  \DeclareMathSymbol{\mst@Zeta}{\mst@mathord}{\mst@font@tbu}{"5A}
+  \DeclareMathSymbol{\mst@Eta}{\mst@mathord}{\mst@font@tbu}{"48}
+  \DeclareMathSymbol{\mst@Iota}{\mst@mathord}{\mst@font@tbu}{"49}
+  \DeclareMathSymbol{\mst@Kappa}{\mst@mathord}{\mst@font@tbu}{"4B}
+  \DeclareMathSymbol{\mst@Mu}{\mst@mathord}{\mst@font@tbu}{"4D}
+  \DeclareMathSymbol{\mst@Nu}{\mst@mathord}{\mst@font@tbu}{"4E}
+  \DeclareMathSymbol{\mst@Omicron}{\mst@mathord}{\mst@font@tbu}{"4F}
+  \DeclareMathSymbol{\mst@Rho}{\mst@mathord}{\mst@font@tbu}{"50}
+  \DeclareMathSymbol{\mst@Tau}{\mst@mathord}{\mst@font@tbu}{"54}
+  \DeclareMathSymbol{\mst@Chi}{\mst@mathord}{\mst@font@tbu}{"58}
+  \ifx\mst@mathord\mathord
 %% attention le P de Symbol est un \Pi pas un \Rho
-\DeclareMathSymbol{\Rho}{\mathord}{mtpsymbol}{"52}
+    \DeclareMathSymbol{\mst@Rho}{\mathord}{mtpsymbol}{"52}
 %% attention le X de Symbol est un \Xi pas un \Chi
-\DeclareMathSymbol{\Chi}{\mathord}{mtpsymbol}{"43}
+    \DeclareMathSymbol{\mst@Chi}{\mathord}{mtpsymbol}{"43}
 %% attention le F de Symbol est un \Phi. Il n'y a pas de \Digamma
-\DeclareMathSymbol{\Gamma}{\mathord}{mtpsymbol}{"47}
-\DeclareMathSymbol{\Delta}{\mathord}{mtpsymbol}{"44}
-\DeclareMathSymbol{\Theta}{\mathord}{mtpsymbol}{"51}
-\DeclareMathSymbol{\Lambda}{\mathord}{mtpsymbol}{"4C}
-\DeclareMathSymbol{\Xi}{\mathord}{mtpsymbol}{"58}
-\DeclareMathSymbol{\Pi}{\mathord}{mtpsymbol}{"50}
-\DeclareMathSymbol{\Sigma}{\mathord}{mtpsymbol}{"53}
-\DeclareMathSymbol{\Upsilon}{\mathord}{mtpsymbol}{"A1}
-\DeclareMathSymbol{\Phi}{\mathord}{mtpsymbol}{"46}
-\DeclareMathSymbol{\Psi}{\mathord}{mtpsymbol}{"59}
-\DeclareMathSymbol{\Omega}{\mathord}{mtpsymbol}{"57}
-\else
-\DeclareMathSymbol{\Digamma}{\mathalpha}{\mst@font@tbu}{"46}
-\DeclareMathSymbol\Gamma    {\mathalpha}{\mst@font@tbu}{"00}
-\DeclareMathSymbol\Delta    {\mathalpha}{\mst@font@tbu}{"01}
-\DeclareMathSymbol\Theta    {\mathalpha}{\mst@font@tbu}{"02}
-\DeclareMathSymbol\Lambda   {\mathalpha}{\mst@font@tbu}{"03}
-\DeclareMathSymbol\Xi       {\mathalpha}{\mst@font@tbu}{"04}
-\DeclareMathSymbol\Pi       {\mathalpha}{\mst@font@tbu}{"05}
-\DeclareMathSymbol\Sigma    {\mathalpha}{\mst@font@tbu}{"06}
-\DeclareMathSymbol\Upsilon  {\mathalpha}{\mst@font@tbu}{"07}
-\DeclareMathSymbol\Phi      {\mathalpha}{\mst@font@tbu}{"08}
-\DeclareMathSymbol\Psi      {\mathalpha}{\mst@font@tbu}{"09}
-\DeclareMathSymbol\Omega    {\mathalpha}{\mst@font@tbu}{"0A}
-\fi
-\fi
+    \DeclareMathSymbol{\mst@Gamma}{\mathord}{mtpsymbol}{"47}
+    \DeclareMathSymbol{\mst@Delta}{\mathord}{mtpsymbol}{"44}
+    \DeclareMathSymbol{\mst@Theta}{\mathord}{mtpsymbol}{"51}
+    \DeclareMathSymbol{\mst@Lambda}{\mathord}{mtpsymbol}{"4C}
+    \DeclareMathSymbol{\mst@Xi}{\mathord}{mtpsymbol}{"58}
+    \DeclareMathSymbol{\mst@Pi}{\mathord}{mtpsymbol}{"50}
+    \DeclareMathSymbol{\mst@Sigma}{\mathord}{mtpsymbol}{"53}
+    \DeclareMathSymbol{\mst@Upsilon}{\mathord}{mtpsymbol}{"A1}
+    \DeclareMathSymbol{\mst@Phi}{\mathord}{mtpsymbol}{"46}
+    \DeclareMathSymbol{\mst@Psi}{\mathord}{mtpsymbol}{"59}
+    \DeclareMathSymbol{\mst@Omega}{\mathord}{mtpsymbol}{"57}
+  \else % de \mst@mathord=\mathord
+    \DeclareMathSymbol\mst@Digamma  {\mathalpha}{\mst@font@tbu}{"46}
+    \DeclareMathSymbol\mst@Gamma    {\mathalpha}{\mst@font@tbu}{"00}
+    \DeclareMathSymbol\mst@Delta    {\mathalpha}{\mst@font@tbu}{"01}
+    \DeclareMathSymbol\mst@Theta    {\mathalpha}{\mst@font@tbu}{"02}
+    \DeclareMathSymbol\mst@Lambda   {\mathalpha}{\mst@font@tbu}{"03}
+    \DeclareMathSymbol\mst@Xi       {\mathalpha}{\mst@font@tbu}{"04}
+    \DeclareMathSymbol\mst@Pi       {\mathalpha}{\mst@font@tbu}{"05}
+    \DeclareMathSymbol\mst@Sigma    {\mathalpha}{\mst@font@tbu}{"06}
+    \DeclareMathSymbol\mst@Upsilon  {\mathalpha}{\mst@font@tbu}{"07}
+    \DeclareMathSymbol\mst@Phi      {\mathalpha}{\mst@font@tbu}{"08}
+    \DeclareMathSymbol\mst@Psi      {\mathalpha}{\mst@font@tbu}{"09}
+    \DeclareMathSymbol\mst@Omega    {\mathalpha}{\mst@font@tbu}{"0A}
+  \fi % de \mst@mathord=\mathord
+\fi % fin de goahead
 \ifmst@goahead
-\ifmst@eulergreek
-\DeclareMathSymbol{\alpha}  {\mathalpha}{mteulervm}{"0B}
-\DeclareMathSymbol{\beta}   {\mathalpha}{mteulervm}{"0C}
-\DeclareMathSymbol{\gamma}  {\mathalpha}{mteulervm}{"0D}
-\DeclareMathSymbol{\delta}  {\mathalpha}{mteulervm}{"0E}
-\DeclareMathSymbol{\epsilon}{\mathalpha}{mteulervm}{"0F}
-\DeclareMathSymbol{\zeta}   {\mathalpha}{mteulervm}{"10}
-\DeclareMathSymbol{\eta}    {\mathalpha}{mteulervm}{"11}
-\DeclareMathSymbol{\theta}  {\mathalpha}{mteulervm}{"12}
-\DeclareMathSymbol{\iota}   {\mathalpha}{mteulervm}{"13}
-\DeclareMathSymbol{\kappa}  {\mathalpha}{mteulervm}{"14}
-\DeclareMathSymbol{\lambda} {\mathalpha}{mteulervm}{"15}
-\DeclareMathSymbol{\mu}     {\mathalpha}{mteulervm}{"16}
-\DeclareMathSymbol{\nu}     {\mathalpha}{mteulervm}{"17}
-\DeclareMathSymbol{\xi}     {\mathalpha}{mteulervm}{"18}
-\let\omicron\undefined
-\DeclareMathSymbol{\omicron}{\mathalpha}{mteulervm}{"6F}
-\DeclareMathSymbol{\pi}     {\mathalpha}{mteulervm}{"19}
-\DeclareMathSymbol{\rho}    {\mathalpha}{mteulervm}{"1A}
-\DeclareMathSymbol{\sigma}  {\mathalpha}{mteulervm}{"1B}
-\DeclareMathSymbol{\tau}    {\mathalpha}{mteulervm}{"1C}
-\DeclareMathSymbol{\upsilon}{\mathalpha}{mteulervm}{"1D}
-\DeclareMathSymbol{\phi}    {\mathalpha}{mteulervm}{"1E}
-\DeclareMathSymbol{\chi}    {\mathalpha}{mteulervm}{"1F}
-\DeclareMathSymbol{\psi}    {\mathalpha}{mteulervm}{"20}
-\DeclareMathSymbol{\omega}  {\mathalpha}{mteulervm}{"21}
-\DeclareMathSymbol{\varepsilon}{\mathalpha}{mteulervm}{"22}
-\DeclareMathSymbol{\vartheta}{\mathalpha}{mteulervm}{"23}
-\DeclareMathSymbol{\varpi}  {\mathalpha}{mteulervm}{"24}
-\let\varrho=\rho
-\let\varsigma=\sigma
-\DeclareMathSymbol{\varphi} {\mathalpha}{mteulervm}{"27}
-\DeclareMathSymbol{\partial}{\mathalpha}{mteulervm}{"40}
-\DeclareMathSymbol{\wp}{\mathalpha}{mteulervm}{"7D}
-\DeclareMathSymbol{\ell}{\mathalpha}{mteulervm}{"60}
-\else
-\ifmst@symbolgreek
-\DeclareMathSymbol{\alpha}{\mathord}{mtpsymbol}{"61}
-\DeclareMathSymbol{\beta}{\mathord}{mtpsymbol}{"62}
-\DeclareMathSymbol{\gamma}{\mathord}{mtpsymbol}{"67}
-\DeclareMathSymbol{\delta}{\mathord}{mtpsymbol}{"64}
-\DeclareMathSymbol{\epsilon}{\mathord}{mtpsymbol}{"65}
-\DeclareMathSymbol{\zeta}{\mathord}{mtpsymbol}{"7A}
-\DeclareMathSymbol{\eta}{\mathord}{mtpsymbol}{"68}
-\DeclareMathSymbol{\theta}{\mathord}{mtpsymbol}{"71}
-\DeclareMathSymbol{\iota}{\mathord}{mtpsymbol}{"69}
-\DeclareMathSymbol{\kappa}{\mathord}{mtpsymbol}{"6B}
-\DeclareMathSymbol{\lambda}{\mathord}{mtpsymbol}{"6C}
-\DeclareMathSymbol{\mu}{\mathord}{mtpsymbol}{"6D}
-\DeclareMathSymbol{\nu}{\mathord}{mtpsymbol}{"6E}
-\DeclareMathSymbol{\xi}{\mathord}{mtpsymbol}{"78}
-\let\omicron\undefined
-\DeclareMathSymbol{\omicron}{\mathord}{mtpsymbol}{"6F}
-\DeclareMathSymbol{\pi}{\mathord}{mtpsymbol}{"70}
-\DeclareMathSymbol{\rho}{\mathord}{mtpsymbol}{"72}
-\DeclareMathSymbol{\sigma}{\mathord}{mtpsymbol}{"73}
-\DeclareMathSymbol{\tau}{\mathord}{mtpsymbol}{"74}
-\DeclareMathSymbol{\upsilon}{\mathord}{mtpsymbol}{"75}
-\DeclareMathSymbol{\phi}{\mathord}{mtpsymbol}{"66}
-\DeclareMathSymbol{\chi}{\mathord}{mtpsymbol}{"63}
-\DeclareMathSymbol{\psi}{\mathord}{mtpsymbol}{"79}
-\DeclareMathSymbol{\omega}{\mathord}{mtpsymbol}{"77}
-\let\varepsilon=\epsilon
-\DeclareMathSymbol{\vartheta}{\mathord}{mtpsymbol}{"4A}
-\DeclareMathSymbol{\varpi}{\mathord}{mtpsymbol}{"76}
-\let\varrho=\rho
-\DeclareMathSymbol{\varsigma}{\mathord}{mtpsymbol}{"56}
-\DeclareMathSymbol{\varphi}{\mathord}{mtpsymbol}{"6A}
-\DeclareMathSymbol{\partial}{\mathord}{mtpsymbol}{"B6}
-\DeclareMathSymbol{\wp}{\mathord}{mtpsymbol}{"C3}
-\fi\fi\fi
-%%
-\ifmst@LGRgreek % internal names for subdued implementation (1.15c-1.15e)
-\let\mst@origAlpha\Alpha
-\let\mst@origBeta\Beta
-\let\mst@origGamma\Gamma
-\let\mst@origDelta\Delta
-\let\mst@origEpsilon\Epsilon
-\let\mst@origZeta\Zeta
-\let\mst@origEta\Eta
-\let\mst@origTheta\Theta
-\let\mst@origIota\Iota
-\let\mst@origKappa\Kappa
-\let\mst@origLambda\Lambda
-\let\mst@origMu\Mu
-\let\mst@origNu\Nu
-\let\mst@origXi\Xi
-\let\mst@origOmicron\Omicron
-\let\mst@origPi\Pi
-\let\mst@origRho\Rho
-\let\mst@origSigma\Sigma
-\let\mst@origTau\Tau
-\let\mst@origUpsilon\Upsilon
-\let\mst@origPhi\Phi
-\let\mst@origChi\Chi
-\let\mst@origPsi\Psi
-\let\mst@origOmega\Omega
-\let\mst@origalpha\alpha
-\let\mst@origbeta\beta
-\let\mst@origgamma\gamma
-\let\mst@origdelta\delta
-\let\mst@origepsilon\epsilon
-\let\mst@origzeta\zeta
-\let\mst@origeta\eta
-\let\mst@origtheta\theta
-\let\mst@origiota\iota
-\let\mst@origkappa\kappa
-\let\mst@origlambda\lambda
-\let\mst@origmu\mu
-\let\mst@orignu\nu
-\let\mst@origxi\xi
-\let\mst@origomicron\omicron
-\let\mst@origpi\pi
-\let\mst@origrho\rho
-\let\mst@origvarsigma\varsigma
-\let\mst@origsigma\sigma
-\let\mst@origtau\tau
-\let\mst@origupsilon\upsilon
-\let\mst@origphi\phi
-\let\mst@origchi\chi
-\let\mst@origpsi\psi
-\let\mst@origomega\omega
-\let\mst@origDigamma\Digamma
-\let\mst@origdigamma\digamma
-%%
-\def\mst@restoregreek{%
-\let\Alpha\mst@origAlpha
-\let\Beta\mst@origBeta
-\let\Gamma\mst@origGamma
-\let\Delta\mst@origDelta
-\let\Epsilon\mst@origEpsilon
-\let\Zeta\mst@origZeta
-\let\Eta\mst@origEta
-\let\Theta\mst@origTheta
-\let\Iota\mst@origIota
-\let\Kappa\mst@origKappa
-\let\Lambda\mst@origLambda
-\let\Mu\mst@origMu
-\let\Nu\mst@origNu
-\let\Xi\mst@origXi
-\let\Omicron\mst@origOmicron
-\let\Pi\mst@origPi
-\let\Rho\mst@origRho
-\let\Sigma\mst@origSigma
-\let\Tau\mst@origTau
-\let\Upsilon\mst@origUpsilon
-\let\Phi\mst@origPhi
-\let\Chi\mst@origChi
-\let\Psi\mst@origPsi
-\let\Omega\mst@origOmega
-\let\alpha\mst@origalpha
-\let\beta\mst@origbeta
-\let\gamma\mst@origgamma
-\let\delta\mst@origdelta
-\let\epsilon\mst@origepsilon
-\let\zeta\mst@origzeta
-\let\eta\mst@origeta
-\let\theta\mst@origtheta
-\let\iota\mst@origiota
-\let\kappa\mst@origkappa
-\let\lambda\mst@origlambda
-\let\mu\mst@origmu
-\let\nu\mst@orignu
-\let\xi\mst@origxi
-\let\omicron\mst@origomicron
-\let\pi\mst@origpi
-\let\rho\mst@origrho
-\let\varsigma\mst@origvarsigma
-\let\sigma\mst@origsigma
-\let\tau\mst@origtau
-\let\upsilon\mst@origupsilon
-\let\phi\mst@origphi
-\let\chi\mst@origchi
-\let\psi\mst@origpsi
-\let\omega\mst@origomega
-\let\Digamma\mst@origDigamma
-\let\digamma\mst@origdigamma
-}
-%%
-\def\mst@setuplgrgreek{%
-\let\Alpha\mst@Alpha
-\let\Beta\mst@Beta
-\let\Gamma\mst@Gamma
-\let\Delta\mst@Delta
-\let\Epsilon\mst@Epsilon
-\let\Zeta\mst@Zeta
-\let\Eta\mst@Eta
-\let\Theta\mst@Theta
-\let\Iota\mst@Iota
-\let\Kappa\mst@Kappa
-\let\Lambda\mst@Lambda
-\let\Mu\mst@Mu
-\let\Nu\mst@Nu
-\let\Xi\mst@Xi
-\let\Omicron\mst@Omicron
-\let\Pi\mst@Pi
-\let\Rho\mst@Rho
-\let\Sigma\mst@Sigma
-\let\Tau\mst@Tau
-\let\Upsilon\mst@Upsilon
-\let\Phi\mst@Phi
-\let\Chi\mst@Chi
-\let\Psi\mst@Psi
-\let\Omega\mst@Omega
-\let\alpha\mst@alpha
-\let\beta\mst@beta
-\let\gamma\mst@gamma
-\let\delta\mst@delta
-\let\epsilon\mst@epsilon
-\let\zeta\mst@zeta
-\let\eta\mst@eta
-\let\theta\mst@theta
-\let\iota\mst@iota
-\let\kappa\mst@kappa
-\let\lambda\mst@lambda
-\let\mu\mst@mu
-\let\nu\mst@nu
-\let\xi\mst@xi
-\let\omicron\mst@omicron
-\let\pi\mst@pi
-\let\rho\mst@rho
-\let\varsigma\mst@varsigma
-\let\sigma\mst@sigma
-\let\tau\mst@tau
-\let\upsilon\mst@upsilon
-\let\phi\mst@phi
-\let\chi\mst@chi
-\let\psi\mst@psi
-\let\omega\mst@omega
-\let\Digamma\mst@Digamma
-\let\digamma\mst@digamma
-}
-%%
+ \ifmst@eulergreek
+  \DeclareMathSymbol{\mst@alpha}  {\mathalpha}{mteulervm}{"0B}
+  \DeclareMathSymbol{\mst@beta}   {\mathalpha}{mteulervm}{"0C}
+  \DeclareMathSymbol{\mst@gamma}  {\mathalpha}{mteulervm}{"0D}
+  \DeclareMathSymbol{\mst@delta}  {\mathalpha}{mteulervm}{"0E}
+  \DeclareMathSymbol{\mst@epsilon}{\mathalpha}{mteulervm}{"0F}
+  \DeclareMathSymbol{\mst@zeta}   {\mathalpha}{mteulervm}{"10}
+  \DeclareMathSymbol{\mst@eta}    {\mathalpha}{mteulervm}{"11}
+  \DeclareMathSymbol{\mst@theta}  {\mathalpha}{mteulervm}{"12}
+  \DeclareMathSymbol{\mst@iota}   {\mathalpha}{mteulervm}{"13}
+  \DeclareMathSymbol{\mst@kappa}  {\mathalpha}{mteulervm}{"14}
+  \DeclareMathSymbol{\mst@lambda} {\mathalpha}{mteulervm}{"15}
+  \DeclareMathSymbol{\mst@mu}     {\mathalpha}{mteulervm}{"16}
+  \DeclareMathSymbol{\mst@nu}     {\mathalpha}{mteulervm}{"17}
+  \DeclareMathSymbol{\mst@xi}     {\mathalpha}{mteulervm}{"18}
+  \DeclareMathSymbol{\mst@omicron}{\mathalpha}{mteulervm}{"6F}
+  \DeclareMathSymbol{\mst@pi}     {\mathalpha}{mteulervm}{"19}
+  \DeclareMathSymbol{\mst@rho}    {\mathalpha}{mteulervm}{"1A}
+  \DeclareMathSymbol{\mst@sigma}  {\mathalpha}{mteulervm}{"1B}
+  \DeclareMathSymbol{\mst@tau}    {\mathalpha}{mteulervm}{"1C}
+  \DeclareMathSymbol{\mst@upsilon}{\mathalpha}{mteulervm}{"1D}
+  \DeclareMathSymbol{\mst@phi}    {\mathalpha}{mteulervm}{"1E}
+  \DeclareMathSymbol{\mst@chi}    {\mathalpha}{mteulervm}{"1F}
+  \DeclareMathSymbol{\mst@psi}    {\mathalpha}{mteulervm}{"20}
+  \DeclareMathSymbol{\mst@omega}  {\mathalpha}{mteulervm}{"21}
+  \let\mst@varrho=\mst@rho
+  \let\mst@varsigma=\mst@sigma
+  \DeclareMathSymbol{\mst@varepsilon}{\mathalpha}{mteulervm}{"22}
+  \DeclareMathSymbol{\mst@vartheta}{\mathalpha}{mteulervm}{"23}
+  \DeclareMathSymbol{\mst@varpi}  {\mathalpha}{mteulervm}{"24}
+  \DeclareMathSymbol{\mst@varphi} {\mathalpha}{mteulervm}{"27}
+  \DeclareMathSymbol{\mst@partial}{\mathalpha}{mteulervm}{"40}
+  \DeclareMathSymbol{\mst@wp}{\mathalpha}{mteulervm}{"7D}
+  \DeclareMathSymbol{\mst@ell}{\mathalpha}{mteulervm}{"60}
+ \else
+  \ifmst@symbolgreek
+  \DeclareMathSymbol{\mst@alpha}{\mathord}{mtpsymbol}{"61}
+  \DeclareMathSymbol{\mst@beta}{\mathord}{mtpsymbol}{"62}
+  \DeclareMathSymbol{\mst@gamma}{\mathord}{mtpsymbol}{"67}
+  \DeclareMathSymbol{\mst@delta}{\mathord}{mtpsymbol}{"64}
+  \DeclareMathSymbol{\mst@epsilon}{\mathord}{mtpsymbol}{"65}
+  \DeclareMathSymbol{\mst@zeta}{\mathord}{mtpsymbol}{"7A}
+  \DeclareMathSymbol{\mst@eta}{\mathord}{mtpsymbol}{"68}
+  \DeclareMathSymbol{\mst@theta}{\mathord}{mtpsymbol}{"71}
+  \DeclareMathSymbol{\mst@iota}{\mathord}{mtpsymbol}{"69}
+  \DeclareMathSymbol{\mst@kappa}{\mathord}{mtpsymbol}{"6B}
+  \DeclareMathSymbol{\mst@lambda}{\mathord}{mtpsymbol}{"6C}
+  \DeclareMathSymbol{\mst@mu}{\mathord}{mtpsymbol}{"6D}
+  \DeclareMathSymbol{\mst@nu}{\mathord}{mtpsymbol}{"6E}
+  \DeclareMathSymbol{\mst@xi}{\mathord}{mtpsymbol}{"78}
+  \DeclareMathSymbol{\mst@omicron}{\mathord}{mtpsymbol}{"6F}
+  \DeclareMathSymbol{\mst@pi}{\mathord}{mtpsymbol}{"70}
+  \DeclareMathSymbol{\mst@rho}{\mathord}{mtpsymbol}{"72}
+  \DeclareMathSymbol{\mst@sigma}{\mathord}{mtpsymbol}{"73}
+  \DeclareMathSymbol{\mst@tau}{\mathord}{mtpsymbol}{"74}
+  \DeclareMathSymbol{\mst@upsilon}{\mathord}{mtpsymbol}{"75}
+  \DeclareMathSymbol{\mst@phi}{\mathord}{mtpsymbol}{"66}
+  \DeclareMathSymbol{\mst@chi}{\mathord}{mtpsymbol}{"63}
+  \DeclareMathSymbol{\mst@psi}{\mathord}{mtpsymbol}{"79}
+  \DeclareMathSymbol{\mst@omega}{\mathord}{mtpsymbol}{"77}
+  \let\mst@varepsilon=\mst@epsilon
+  \DeclareMathSymbol{\mst@vartheta}{\mathord}{mtpsymbol}{"4A}
+  \DeclareMathSymbol{\mst@varpi}{\mathord}{mtpsymbol}{"76}
+  \let\mst@varrho=\mst@rho
+  \DeclareMathSymbol{\mst@varsigma}{\mathord}{mtpsymbol}{"56}
+  \DeclareMathSymbol{\mst@varphi}{\mathord}{mtpsymbol}{"6A}
+  \DeclareMathSymbol{\mst@partial}{\mathord}{mtpsymbol}{"B6}
+  \DeclareMathSymbol{\mst@wp}{\mathord}{mtpsymbol}{"C3}
+  \fi
+ \fi
+\fi
+\ifmst@LGRgreek
 \DeclareMathSymbol{\mst@Alpha}{\mathalpha}{mtlgrfontupper}{65}
 \DeclareMathSymbol{\mst@Beta}{\mathalpha}{mtlgrfontupper}{66}
 \DeclareMathSymbol{\mst@Gamma}{\mathalpha}{mtlgrfontupper}{71}
@@ -1807,8 +1647,198 @@ defaultbf,defaultit,defaultsf,defaulttt}\mst@nonormalboldtrue}
 \DeclareMathSymbol{\mst@omega}{\mathalpha}{mtlgrfontlower}{119}
 \DeclareMathSymbol{\mst@digamma}{\mathalpha}{mtlgrfontlower}{147}
 \DeclareMathSymbol{\mst@Digamma}{\mathalpha}{mtlgrfontlower}{195}
-\ifmst@subdued\else\mst@setuplgrgreek\fi
 \fi
+\newcommand*{\MTstandardgreek}{}
+\newcommand*{\MTcustomgreek}{}
+\newcommand*{\MTrecordstandardgreek}{}
+\ifmst@customgreek
+ \renewcommand*{\MTrecordstandardgreek}{%
+    \let\mst@origAlpha\Alpha
+    \let\mst@origBeta\Beta
+    \let\mst@origGamma\Gamma
+    \let\mst@origDelta\Delta
+    \let\mst@origEpsilon\Epsilon
+    \let\mst@origZeta\Zeta
+    \let\mst@origEta\Eta
+    \let\mst@origTheta\Theta
+    \let\mst@origIota\Iota
+    \let\mst@origKappa\Kappa
+    \let\mst@origLambda\Lambda
+    \let\mst@origMu\Mu
+    \let\mst@origNu\Nu
+    \let\mst@origXi\Xi
+    \let\mst@origOmicron\Omicron
+    \let\mst@origPi\Pi
+    \let\mst@origRho\Rho
+    \let\mst@origSigma\Sigma
+    \let\mst@origTau\Tau
+    \let\mst@origUpsilon\Upsilon
+    \let\mst@origPhi\Phi
+    \let\mst@origChi\Chi
+    \let\mst@origPsi\Psi
+    \let\mst@origOmega\Omega
+    \let\mst@origalpha\alpha
+    \let\mst@origbeta\beta
+    \let\mst@origgamma\gamma
+    \let\mst@origdelta\delta
+    \let\mst@origepsilon\epsilon
+    \let\mst@origvarepsilon\varepsilon
+    \let\mst@origzeta\zeta
+    \let\mst@origeta\eta
+    \let\mst@origtheta\theta
+    \let\mst@origvartheta\vartheta
+    \let\mst@origiota\iota
+    \let\mst@origkappa\kappa
+    \let\mst@origlambda\lambda
+    \let\mst@origmu\mu
+    \let\mst@orignu\nu
+    \let\mst@origxi\xi
+    \let\mst@origomicron\omicron
+    \let\mst@origpi\pi
+    \let\mst@origvarpi\varpi
+    \let\mst@origrho\rho
+    \let\mst@origvarrho\varrho
+    \let\mst@origsigma\sigma
+    \let\mst@origvarsigma\varsigma
+    \let\mst@origtau\tau
+    \let\mst@origupsilon\upsilon
+    \let\mst@origphi\phi
+    \let\mst@origvarphi\varphi
+    \let\mst@origchi\chi
+    \let\mst@origpsi\psi
+    \let\mst@origomega\omega
+    \let\mst@origDigamma\Digamma
+    \let\mst@origdigamma\digamma
+    \let\mst@origpartial\partial
+    \let\mst@origwp\wp
+    \let\mst@origell\ell }
+\MTrecordstandardgreek
+\renewcommand*{\MTstandardgreek}{%
+    \let\Alpha\mst@origAlpha
+    \let\Beta\mst@origBeta
+    \let\Gamma\mst@origGamma
+    \let\Delta\mst@origDelta
+    \let\Epsilon\mst@origEpsilon
+    \let\Zeta\mst@origZeta
+    \let\Eta\mst@origEta
+    \let\Theta\mst@origTheta
+    \let\Iota\mst@origIota
+    \let\Kappa\mst@origKappa
+    \let\Lambda\mst@origLambda
+    \let\Mu\mst@origMu
+    \let\Nu\mst@origNu
+    \let\Xi\mst@origXi
+    \let\Omicron\mst@origOmicron
+    \let\Pi\mst@origPi
+    \let\Rho\mst@origRho
+    \let\Sigma\mst@origSigma
+    \let\Tau\mst@origTau
+    \let\Upsilon\mst@origUpsilon
+    \let\Phi\mst@origPhi
+    \let\Chi\mst@origChi
+    \let\Psi\mst@origPsi
+    \let\Omega\mst@origOmega
+    \let\alpha\mst@origalpha
+    \let\beta\mst@origbeta
+    \let\gamma\mst@origgamma
+    \let\delta\mst@origdelta
+    \let\epsilon\mst@origepsilon
+    \let\varepsilon\mst@origvarepsilon
+    \let\zeta\mst@origzeta
+    \let\eta\mst@origeta
+    \let\theta\mst@origtheta
+    \let\vartheta\mst@origvartheta
+    \let\iota\mst@origiota
+    \let\kappa\mst@origkappa
+    \let\lambda\mst@origlambda
+    \let\mu\mst@origmu
+    \let\nu\mst@orignu
+    \let\xi\mst@origxi
+    \let\omicron\mst@origomicron
+    \let\pi\mst@origpi
+    \let\varpi\mst@origvarpi
+    \let\rho\mst@origrho
+    \let\varrho\mst@origvarrho
+    \let\sigma\mst@origsigma
+    \let\varsigma\mst@origvarsigma
+    \let\tau\mst@origtau
+    \let\upsilon\mst@origupsilon
+    \let\phi\mst@origphi
+    \let\varphi\mst@origvarphi
+    \let\chi\mst@origchi
+    \let\psi\mst@origpsi
+    \let\omega\mst@origomega
+    \let\Digamma\mst@origDigamma
+    \let\digamma\mst@origdigamma
+    \let\partial\mst@origpartial
+    \let\wp\mst@origwp
+    \let\ell\mst@origell
+}
+\renewcommand*{\MTcustomgreek}{%
+    \let\Alpha\mst@Alpha
+    \let\Beta\mst@Beta
+    \let\Gamma\mst@Gamma
+    \let\Delta\mst@Delta
+    \let\Epsilon\mst@Epsilon
+    \let\Zeta\mst@Zeta
+    \let\Eta\mst@Eta
+    \let\Theta\mst@Theta
+    \let\Iota\mst@Iota
+    \let\Kappa\mst@Kappa
+    \let\Lambda\mst@Lambda
+    \let\Mu\mst@Mu
+    \let\Nu\mst@Nu
+    \let\Xi\mst@Xi
+    \let\Omicron\mst@Omicron
+    \let\Pi\mst@Pi
+    \let\Rho\mst@Rho
+    \let\Sigma\mst@Sigma
+    \let\Tau\mst@Tau
+    \let\Upsilon\mst@Upsilon
+    \let\Phi\mst@Phi
+    \let\Chi\mst@Chi
+    \let\Psi\mst@Psi
+    \let\Omega\mst@Omega
+    \let\alpha\mst@alpha
+    \let\beta\mst@beta
+    \let\gamma\mst@gamma
+    \let\delta\mst@delta
+    \let\epsilon\mst@epsilon
+    \let\varepsilon\mst@varepsilon
+    \let\zeta\mst@zeta
+    \let\eta\mst@eta
+    \let\theta\mst@theta
+    \let\vartheta\mst@vartheta
+    \let\iota\mst@iota
+    \let\kappa\mst@kappa
+    \let\lambda\mst@lambda
+    \let\mu\mst@mu
+    \let\nu\mst@nu
+    \let\xi\mst@xi
+    \let\omicron\mst@omicron
+    \let\pi\mst@pi
+    \let\varpi\mst@varpi
+    \let\rho\mst@rho
+    \let\varrho\mst@varrho
+    \let\sigma\mst@sigma
+    \let\varsigma\mst@varsigma
+    \let\tau\mst@tau
+    \let\upsilon\mst@upsilon
+    \let\phi\mst@phi
+    \let\varphi\mst@varphi
+    \let\chi\mst@chi
+    \let\psi\mst@psi
+    \let\omega\mst@omega
+    \let\Digamma\mst@Digamma
+    \let\digamma\mst@digamma
+    \let\partial\mst@partial
+    \let\wp\mst@wp
+    \let\ell\mst@ell
+}
+\fi
+\let\Mathastextstandardgreek\MTstandardgreek
+\let\Mathastextcustomgreek\MTcustomgreek
+\ifmst@subdued\else\MTcustomgreek\fi
 \edef\mst@tmp@enc{\encodingdefault}
 \mst@goaheadtrue
 \ifx\mst@tmp@enc\mst@eui % xetex and unicode font