%%%% Gllmts.tex, version CM, Dec 1992
   %% Hack for Guillemets
   %% One layer of protection for LaTeX

  %\chardef\GuillemetsUlineCat=\catcode`\_
  %%% Beware: supposes Plain catcodes
  %% Activation of < > later
 \catcode`\_=11
 \catcode`\<=13
 \catcode`\>=13

 \def\gobble_#1{}
 \def\Space{ }
 \def\empty{}
 \let\protect\relax

 \catcode`\<=13
 \def<{\ifmmode\string<\else
        \expandafter\protect\expandafter\_LG\fi}
 \def\_LG{\futurelet\next\_LGmole}
 \def\_LGmole{%\show\next
    \ifx <\next
       \def\temp_{\_DLG\gobble_}%
    \else
       \ifx \_LG\next
          \def\temp_{\_DLG\gobble_}%
       \else
       \edef\temp_{\string<}%
       \fi
    \fi%\show\temp_
    \temp_}

 \catcode`\>=13
 \def>{\ifmmode\string>\else
      \expandafter\protect\expandafter\_RG\fi}
 \def\_RG{\futurelet\next\_RGmole}
 \def\_RGmole{%\show\next
    \ifx >\next
       \def\temp_{\_DRG\gobble_}%
    \else
       \ifx \_RG\next
          \def\temp_{\_DRG\gobble_}%
       \else
       \edef\temp_{\string>}%
       \fi
    \fi
    \temp_}


 \begingroup
 %
 \catcode`\@=11 
 \gdef \_guillemotleft {\leavevmode\mathsurround=\z@ \raise .3ex
    \hbox{$\scriptscriptstyle 
    \langle \kern -.15em \langle$}}
 %
 \gdef \_guillemotright {\leavevmode\mathsurround=\z@  
    \raise  .3ex \hbox{$\scriptscriptstyle 
    \rangle \kern -.15em  \rangle$}} 
 %
 \gdef\_DLG{%\string^^13
    \_guillemotleft    %%\Diac@{guillemotleft}
    \kern.4\fontdimen2\font\ignorespaces}
 % 
 \gdef\_DRG{%
   \unskip\kern.4\fontdimen2\font
    \_guillemotright    %%\Diac@{guillemotright}
    \kern0pt{}}
 %
 \endgroup

 \let\<\_DLG 
 \let\>\_DRG

\def\SetCaesarsGuillemets{%% \_LG etc defined in CeasarCK
   \let<\_LG \let>\_RG      
   \let\<\_DLG \let\>\_DRG} 

 \catcode`\_=8
 \catcode`\<=12
 \catcode`\>=12

 \endinput

 aaa aaa \_DLG xx\_DRG{} zzz zzz

\bye