\ocp\IdOCP=id
     \ocplist\NilOCP=
     \addbeforeocplist 500 \IdOCP
     \addbeforeocplist 1750 \IdOCP
     \addbeforeocplist 2000 \IdOCP
     \addbeforeocplist 3500 \IdOCP
     \nullocplist
     \ocp\BasicFrenchTexUni=french2uni
     \ocp\BasicLatinUniToFont=uni2lat
     \ocp\BasicLatinUniToFontNoFfi=uni2lat-noffi
     \ocplist\BasicFrenchOCP=
     \addbeforeocplist 500 \BasicFrenchTexUni
     \addbeforeocplist 1750 \IdOCP
     \addbeforeocplist 2000 \IdOCP
     \addbeforeocplist 3500 \BasicLatinUniToFont
     \nullocplist

\def\frenchpunctuation{%
\def\LeftPointingDoubleAngleQuotationMark{^^^^00ab\kern.1667em}%
\def\RightPointingDoubleAngleQuotationMark{\unskip\kern.1667em^^^^00bb}%
\def\LeftDoubleQuotationMark{^^^^201c}%
\def\RightDoubleQuotationMark{^^^^201d}%
\def\QuestionMark{\unskip\kern.1667em?}%
\def\ExclamationMark{\unskip\kern.1667em!}%
\def\Semicolon{\unskip\kern.1667em;}%
\def\Colon{\unskip~:\typeout{French colon!}}}

\makeatletter
\newenvironment{french}{\frenchpunctuation\language=\l@french\def\today{\number\day
    \ifnum1=\day \ier\fi
    \space \ifcase\month
    \or janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
    juillet\or ao\^ut\or septembre\or octobre\or novembre\or
    d\'ecembre\fi
    \space \number\year}%
\def\addcontentsline##1##2##3{%
  \addtocontents{##1}{\protect\contentsline{##2}{\protect\pushocplist\BasicFrenchOCP##3}{\thepage}}}%
\pushocplist\BasicFrenchOCP}{}
\newcommand{\localfrench}[1]{{\frenchpunctuation\protect\pushocplist\BasicFrenchOCP#1}}
\makeatother

\endinput