%%% ====================================================================
%%%  @LaTeX-style-file{
%%%     author          = "Mario Wolczko",
%%%     version         = "2",
%%%     date            = "21 May 1992",
%%%     time            = "20:59:01 BST",
%%%     filename        = "nfsslint.sty",
%%%     address         = "Dept of Computer Science
%%%                        The University of Manchester
%%%                        Oxford Road
%%%                        Manchester M13 9PL
%%%                        UK",
%%%     telephone       = "+44-61-275-6146",
%%%     FAX             = "+44-61-275-6236",
%%%     checksum        = "25494 93 315 3067",
%%%     email           = "mario@cs.man.ac.uk (Internet)",
%%%     codetable       = "ISO/ASCII",
%%%     keywords        = "LaTeX, NFSS, fonts",
%%%     supported       = "yes",
%%%     docstring       = "For New Font Selection Scheme users --
%%%     warns of possible font problems in pre-NFSS files.",
%%%  }
%%% ====================================================================
%
% If you have switched to the NFSS, but have pre-NFSS documents, this
% style option will tell you when latexing those documents using NFSS
% may change the appearance.
%
% Example: if in a document you had
%	\bf foo \sf bar
% then prior to NFSS ``bar'' would be in mediumweight sans-serif, but
% using NFSS it would be in bold sans.  If you add nfsslint as a style
% option, you will get a warning something like this:
%  nfsslint: possible unexpected font in use of \sf on line 42

\@ifundefined{extract@font}
     {\@warning{The style option `nfsslint' is ignored
     	-- you are not using the new font selection scheme.}
      \endinput}
     {}

\let\@prelint@tt\tt
\let\@prelint@rm\rm
\let\@prelint@sf\sf
\let\@prelint@sc\sc
\let\@prelint@it\it
\let\@prelint@bf\bf
\let\@prelint@sl\sl

\def\@lintwarn#1{\@warning{nfsslint: possible unexpected font in use
	of \string#1}}

% warn if not default series and shape
\def\rm{%
  \ifx\f@series\default@series % series OK
    \ifx\f@shape\default@shape\else\@lintwarn\rm\fi
  \else\@lintwarn\rm\fi
  \@prelint@rm}
\def\sf{%
  \ifx\f@series\default@series % series OK
    \ifx\f@shape\default@shape\else\@lintwarn\sf\fi
  \else\@lintwarn\sf\fi
  \@prelint@sf}
\def\tt{%
  \ifx\f@series\default@series % series OK
    \ifx\f@shape\default@shape\else\@lintwarn\tt\fi
  \else\@lintwarn\tt\fi
  \@prelint@tt}

% warn if not default family and shape
\def\bf{%
  \ifx\f@family\default@family % family OK
    \ifx\f@shape\default@shape\else\@lintwarn\bf\fi
  \else\@lintwarn\bf\fi
  \@prelint@bf}


% warn if not default family and series
\def\it{%
  \ifx\f@family\default@family % family OK
    \ifx\f@series\default@series\else\@lintwarn\it\fi
  \else\@lintwarn\it\fi
  \@prelint@it}
\def\sl{%
  \ifx\f@family\default@family % family OK
    \ifx\f@series\default@series\else\@lintwarn\sl\fi
  \else\@lintwarn\sl\fi
  \@prelint@sl}
\def\sc{%
  \ifx\f@family\default@family % family OK
    \ifx\f@series\default@series\else\@lintwarn\sc\fi
  \else\@lintwarn\sc\fi
  \@prelint@sc}