From f008fc632f906448b4bdbc5cd96ab7d98e68b0b9 Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Thu, 8 Jul 2021 03:00:51 +0000
Subject: CTAN sync 202107080300

---
 .../latex/contrib/tudscr/source/tudscr-fonts.dtx   | 53 ++++++++++------------
 1 file changed, 24 insertions(+), 29 deletions(-)

(limited to 'macros/latex/contrib/tudscr/source/tudscr-fonts.dtx')

diff --git a/macros/latex/contrib/tudscr/source/tudscr-fonts.dtx b/macros/latex/contrib/tudscr/source/tudscr-fonts.dtx
index 69ada7f5c2..507b9d0fd4 100644
--- a/macros/latex/contrib/tudscr/source/tudscr-fonts.dtx
+++ b/macros/latex/contrib/tudscr/source/tudscr-fonts.dtx
@@ -1,4 +1,4 @@
-% \CheckSum{3183}
+% \CheckSum{3161}
 % \iffalse meta-comment
 %
 %  TUD-Script -- Corporate Design of Technische Universität Dresden
@@ -52,7 +52,7 @@
 \ifx\ProvidesFile\undefined\def\ProvidesFile#1[#2]{}\fi
 % \fi
 %
-\ProvidesFile{tudscr-fonts.dtx}[2020/09/29 v2.06j TUD-Script\space%
+\ProvidesFile{tudscr-fonts.dtx}[2021/07/06 v2.06m TUD-Script\space%
 %
 % \iffalse
 %</dtx>
@@ -483,7 +483,7 @@
   \@tud@res@swatrue%
   \def\tud@res@a##1##2{%
     \@tud@res@swafalse%
-    \tud@cdfont@missing[##1]{##2}{\tud@cdmath@wrn}%
+    \tud@cdfont@missing[{##1}]{##2}{\tud@cdmath@wrn}%
   }%
   \def\tud@res@b##1##2{%
     \tud@if@fdfileexists{##1}{##2}{}{%
@@ -1153,7 +1153,7 @@
 %    \begin{macrocode}
   \begingroup%
     \edef\tud@res@a{%
-      \noexpand\defaultfontfeatures[#1]{%
+      \noexpand\defaultfontfeatures[{#1}]{%
         NFSSFamily=#1,%
         Ligatures=TeX,%
         BoldFont={},%
@@ -2635,16 +2635,16 @@
   \tud@math@loop@greeks@lc{#1}%
 }
 \newcommand*\tud@math@loop@greeks@uc[1]{%
-  \@for\@tempa:={%
+  \forcsvlist#1{%
     Gamma,Delta,Theta,Lambda,Xi,Pi,Sigma,Upsilon,Phi,Psi,Omega%
-  }\do{\expandafter#1\expandafter{\@tempa}}%
+  }%
 }
 \newcommand*\tud@math@loop@greeks@lc[1]{%
-  \@for\@tempa:={%
+  \forcsvlist#1{%
     alpha,beta,gamma,delta,epsilon,zeta,eta,theta,iota,kappa,lambda,%
     mu,nu,xi,pi,rho,sigma,tau,upsilon,phi,chi,psi,omega,%
     varepsilon,vartheta,varpi,varrho,varsigma,varphi%
-  }\do{\expandafter#1\expandafter{\@tempa}}%
+  }%
 }
 %    \end{macrocode}
 % \end{macro}^^A \tud@math@loop@greeks@lc
@@ -2823,15 +2823,11 @@
 \newcommand*\tud@math@map@@greeks[1]{%
   \ifcsundef{it#1}{%
     \@for\tud@res@a:={#1sl,sl#1,#1it}\do{%
-      \ifcsundef{\tud@res@a}{}{\csedef{it#1}{\csname\tud@res@a\endcsname}}%
+      \ifcsundef{\tud@res@a}{}{\csletcs{it#1}{\tud@res@a}}%
     }%
   }{}%
-  \ifcsundef{up#1}{%
-    \ifcsundef{#1up}{}{\csedef{up#1}{\csname#1up\endcsname}}%
-  }{}%
-  \ifcsundef{other#1}{%
-    \ifcsundef{#1other}{}{\csedef{other#1}{\csname#1other\endcsname}}%
-  }{}%
+  \ifcsundef{up#1}{\ifcsundef{#1up}{}{\csletcs{up#1}{#1up}}}{}%
+  \ifcsundef{other#1}{\ifcsundef{#1other}{}{\csletcs{other#1}{#1other}}}{}%
 }
 %    \end{macrocode}
 % Einige Pakete stellen für griechische Majuskeln die Befehle \cs{var\dots} 
@@ -2840,13 +2836,11 @@
 % ebenfalls ausgewertet und ggf. auf die \TUDScript-Nomenklatur abgebildet.
 %    \begin{macrocode}
 \newcommand*\tud@math@map@@@greeks[1]{%
-  \ifcsundef{it#1}{%
-    \ifcsundef{var#1}{}{\csedef{it#1}{\csname var#1\endcsname}}%
-  }{}%
+  \ifcsundef{it#1}{\ifcsundef{var#1}{}{\csletcs{it#1}{var#1}}}{}%
   \ifcsundef{up#1}{%
     \tud@lowerstring\tud@res@a{#1}%
     \edef\tud@res@a{Up\tud@res@a}%
-    \ifcsundef{\tud@res@a}{}{\csedef{up#1}{\csname\tud@res@a\endcsname}}%
+    \ifcsundef{\tud@res@a}{}{\csletcs{up#1}{\tud@res@a}}%
   }{}%
 }
 %    \end{macrocode}
@@ -3589,6 +3583,7 @@
 % \changes{v2.06}{2019/06/19}{neu}^^A
 % \begin{macro}{\tud@cdmath@declare@alias}
 % \changes{v2.06}{2019/06/19}{neu}^^A
+% \changes{v2.06m}{2021/07/06}{\cs{csedef} durch \cs{csletcs} ersetzt}^^A
 % \begin{macro}{\tud@cdmath@symb@list}
 % \changes{v2.06}{2019/06/19}{neu}^^A
 % \begin{macro}{\tud@cdmath@declare@char}
@@ -3614,9 +3609,9 @@
 %    \begin{macrocode}
 \newcommand*\tud@cdmath@declare@alias[2]{%
   \listeadd\tud@cdmath@symb@list{#1}%
-  \ifcsdef{tud@cdmath@symbol@#2}{%
-    \csedef{tud@cdmath@symbol@#1}{\csname tud@cdmath@symbol@#2\endcsname}%
-  }{}%
+  \ifcsundef{tud@cdmath@symbol@#2}{}{%
+    \csletcs{tud@cdmath@symbol@#1}{tud@cdmath@symbol@#2}%
+  }%
 }
 \newcommand*\tud@cdmath@char@list{}
 \newcommand*\tud@cdmath@declare@char[4]{%
@@ -3635,7 +3630,7 @@
       \endgroup%
       \noexpand\DeclareMathSymbol%
         {\csname tud@cdmath@symbol@#1\endcsname}%
-        {\etex@unexpanded{#2}}{#3}{#4}%
+        {\unexpanded{#2}}{#3}{#4}%
     }%
   \tud@res@a%
 }
@@ -3689,20 +3684,20 @@
 % gesichert und später wiederhergestellt. Andernfalls wird er wieder undefinert 
 % gesetzt.
 %    \begin{macrocode}
-  \ifcsdef{#1}{%
+  \ifcsundef{#1}{%
+    \addto@hook\tud@cdmath@symbols@toks{\csundef{#1}}%
+  }{%
     \tud@cs@store{#1}%
     \addto@hook\tud@cdmath@symbols@toks{\tud@cs@restore{#1}}%
-  }{%
-    \addto@hook\tud@cdmath@symbols@toks{\csundef{#1}}%
   }%
 %    \end{macrocode}
 % Nur wenn ein gewünschtes Symbol auch existiert, wird es gesetzt. Damit können 
 % Symbole für \opt{cdmath=true} auch gezielt undefiniert gesetzt werden.
 %    \begin{macrocode}
-  \ifcsdef{tud@cdmath@symbol@#1}{%
-    \tud@cs@letltx{#1}{tud@cdmath@symbol@#1}%
-  }{%
+  \ifcsundef{tud@cdmath@symbol@#1}{%
     \csundef{#1}%
+  }{%
+    \tud@cs@letltx{#1}{tud@cdmath@symbol@#1}%
   }%
 }
 %    \end{macrocode}
-- 
cgit v1.2.3

