Hi,
\def\font_typefaces_setup[#class][#settings]%
{\setcurrentfontclass{#class}%
\let\globalfontclass\fontclass
- \iffourthargument
+ \ifsecondargument
\setupbodyfont[#settings]%
\else\ifx\fontclass\empty
\setupbodyfont[\s!rm]%
\else\ifcsname\??typescriptdefaultstyles\fontclass\endcsname
%\setupbodyfont[\csname\??typescriptdefaultstyles\fontclass\endcsname]%
\expandafter\setupbodyfont\expandafter[\lastnamedcs]%
\else
\setupbodyfont[\s!rm]%
\fi \fi \fi
\ifmmode\mr\else\tf\fi} % needed ?
\def\font_typefaces_switch[#class][#settings]%
{\setcurrentfontclass{#class}%
\let\globalfontclass\globalfontclass
- \iffourthargument
+ \ifsecondargument
\switchtobodyfont[#settings]%
\else\ifx\fontclass\empty
\switchtobodyfont[\s!rm]%
\else\ifcsname\??typescriptdefaultstyles\fontclass\endcsname
%\switchtobodyfont[\csname\??typescriptdefaultstyles\fontclass\endcsname]%
\expandafter\switchtobodyfont\expandafter[\lastnamedcs]%
\else
\switchtobodyfont[\s!rm]%
\fi \fi \fi
\ifmmode\mr\else\tf\fi} % needed ?
Wolfgang
_______________________________________________
dev-context mailing list
dev-context@ntg.nl
http://mailman.ntg.nl/mailman/listinfo/dev-context
