% General TTF Fraktur family by Daniel TAUPIN, July 2002, fit for
% mfrak/fkt1* fonts.
% Global work done by Yannis Haralambous, Claus Tondering, and Daniel Taupin.

\DeclareRobustCommand\FrakturMfamily
        {\not@math@alphabet\FrakturMfamily\mathrm
         \fontfamily\FrakturDefault\selectfont}

\DeclareTextFontCommand{\texttms}{\FrakturMfamily}

\newcommand\FrakturDefault{mfrak}
\newcommand\FrakturRmDefault{mfrak}

\newcommand\SetFrakturDefault{\def\rmdefault{\FrakturDefault}%
  \def\Scdefault{mtimc}
}
\def\SetCmDefault{\def\rmdefault{cmr}%
  \def\Scdefault{cmsc}
}

\ifx\scaps\undefined 
\newcommand\scaps[1]{\leavevmode\rlap{\scshape #1}\kern 0.02em\hbox{\scshape #1}}
\fi

\ifx\textpm\undefined\else\RequirePackage{textcmod}\fi

\SetFrakturDefault

\endinput