summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/epslatex-fr/frnew.sty
blob: d9217dd101d0d01f4b0b330c2752ec0b53d5b703 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
%permet dans la frappe de retrouver les habitudes de
%la dactylographie francaise qui conseille de mettre
%un espace avant les signes de ponctuation ; : ! ?
%et d'empecher pourtant une coupure de ligne a cet
%endroit dans le traitement
\def\dospecials{\do\ \do\\\do\{\do\}\do\$\do\&%
  \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~\do\!\do\?\do\:\do\;}
\catcode`\@=11
\catcode`\;=\active
\catcode`\:=\active
\catcode`\!=\active
\catcode`\?=\active
\def;{\relax\ifhmode\ifdim\lastskip>\z@
  \unskip\fi\kern.25em\fi\string;}
\def:{\relax\ifhmode\ifdim\lastskip>\z@
  \unskip\fi\penalty\@M\ \fi\string:}
\def!{\relax\ifhmode\ifdim\lastskip>\z@
  \unskip\fi\kern.25em\fi\string!}
\def?{\relax\ifhmode\ifdim\lastskip>\z@
  \unskip\fi\kern.25em\fi\string?}
\let\old@C\^
\let\old@T\"
%\uccode"10=`I
%\uccode"11=`J
\uccode`\i=`I
\uccode`\j=`J
\def\^#1{\ifx#1i{\old@C\i}\else{\old@C #1}\fi}
\def\"#1{\ifx#1i{\old@T\i}\else{\old@T #1}\fi}
\def\og{\leavevmode\raise.3ex\hbox{$\scriptscriptstyle\langle\!\langle$}}
\def\fg{\leavevmode\raise.3ex\hbox{$\scriptscriptstyle\,\rangle\!\rangle$}}
\def\guill#1{\og\relax #1\relax\fg}
\frenchspacing
\def\fron{\catcode`\;=\active
\catcode`\:=\active
\catcode`\!=\active
\catcode`\?=\active
\frenchspacing}
\def\froff{\catcode`\;=12
\catcode`\:=12
\catcode`\!=12
\catcode`\?=12
\nonfrenchspacing}
\def\@tochtitle{Table des Chapitres}
\def\@utochtitle{TABLE DES CHAPITRES}
\def\@Hint{Indications}
%%%  Espace apres le :
\fron