\expandafter\edef\csname :RestoreCatcodes\endcsname{%
\expandafter\ifx \csname :RestoreCatcodes\endcsname\relax\else
\csname :RestoreCatcodes\endcsname \fi
\catcode‘\noexpand :=\the\catcode‘:%
\ifnum \the\catcode‘\#=6 \else
\catcode‘\noexpand \#=\the\catcode‘\#\fi
\let\expandafter\noexpand\csname :RestoreCatcodes\endcsname=
\noexpand\UnDefcS}
\catcode‘\:=11 \catcode‘\#=6
-_-_-