%% This is file `fguill.sty' 
% This file gives french guillemets (and not guillemots!)
% built with the LASY fonts or the EC fonts. 
% This is useful in the following case:
%   1) you do not use the french package
%   2) you do not use the ae package
%   3) you do not use the T1 encoding
% typically, when you have some french quotations in an english document.
%
% This package is useful when you want to keep the CM fonts,
% for the purpose of producing a PDF file for example.
% If you use the french package, you should also use the T1 encoding,
% and therefore the ae package, if you want to produce PDF.
% Then, use the aeguill package instead of fguill.
%
% In order to get the guillemets, it is necessary to either type
% \guillemotleft and \guillemotright, or to use an 8 bit encoding
% (such as ISO-Latin1) which selects these two commands. You cannot
% get these characters by typing << or >>, except if you want
% to have fun and decide to code it yourself by making < and > active ...
%
% By default, you get the EC guillemets, but if you load 
% this package with the `cm' option, you get the CM guillemets.
% The overall effect of the default case
% is different from using the EC fonts because
% the EC fonts are limited to the guillemets.
% 
\def\fileversion{0.91}
\def\filedate{1998/07/23}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{fguill}[\filedate\space\fileversion\space
French guillemets for use in OT1 without french (D. Roegel)]
\RequirePackage{latexsym}
\newif\if@ae@ec
\DeclareOption{ec}{\@ae@ectrue}
\DeclareOption{cm}{\@ae@ecfalse}
\ExecuteOptions{ec}
\ProcessOptions
\def\@LP{(}
\def\@RP{)}
\def\ly{\fontencoding{U}\fontfamily{lasy}%
        \fontseries{m}\fontshape{n}\selectfont}
\if@ae@ec
  \def\@oguills{{\fontencoding{T1}\fontfamily{cmr}\selectfont\symbol{19}}}%
  \def\@fguills{{\fontencoding{T1}\fontfamily{cmr}\selectfont\symbol{20}}}%
\else
  \def\@oguills{\nobreak\leavevmode
              \hbox{{\ly\@LP\kern-0.20em\@LP\kern+0.20em}}\nobreak}%
  \def\@fguills{\nobreak\leavevmode
              \hbox{{\ly\kern+0.20em\@RP\kern-0.20em\@RP}}%
              \ifdim\fontdimen\@ne\font>\z@\/\fi}
\fi
\let\guillemotleft=\@oguills
\let\guillemotright=\@fguills
\endinput
