summaryrefslogtreecommitdiff
path: root/macros/latex209/contrib/misc/frenchponct.sty
blob: e8f5cb19040ac017aa2bf16f9990fbc4fa06e9ea (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
%%%%%%%%%%%%%%%%%%%%%%%% FRENCHPONCT %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\catcode`\@=11
% Origine brochcod.tex Y.Roy
% Les caracteres de double ponctuation (!?;:) sont
% saisis precedes d'un espace.
\catcode`\;=\active
\catcode`\:=\active
\catcode`\!=\active
\catcode`\?=\active
\def;{\relax\ifhmode\ifdim\lastskip>\z@
  \unskip\kern\fontdimen2\font \kern-1.4\fontdimen3\font
  \fi\fi\string;}
\def:{\relax\ifhmode\ifdim\lastskip>\z@
  \unskip\penalty\@M\ \fi\fi\string:}
\def!{\relax\ifhmode\ifdim\lastskip>\z@
  \unskip\kern\fontdimen2\font
  \kern-1.4\fontdimen3\font\fi\fi\string!}
\def?{\relax\ifhmode\ifdim\lastskip>\z@
  \unskip\kern\fontdimen2\font
  \kern-1.4\fontdimen3\font\fi\fi\string?}

\frenchspacing
\catcode`\@=12