summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel/locale/fr/babel-french.tex
blob: a53769ba554b057b77169740f4879fb5df7465b2 (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
48
49
50
51
52
53
% This file is part of babel. For further details see:
% https://www.ctan.org/pkg/babel
\ifx\BabelBeforeIni\undefined
  \PackageError{babel}%
    {This file is a component of babel and cannot\MessageBreak
     be loaded directly. I'll stop immediately}%
    {Just use babel as documented.}%
  \stop
\fi
\BabelBeforeIni{fr}{%
}

\ifcase\bbl@engine\or\or % XeTeX

% Partly based on babel-french, by Daniel Flipo
\IfBabelIntercharT{puntuation.space}{%
  \providecommand{\BabelFrenchGuillemetSpace}{%
    \leavevmode\nobreak\hskip.8\fontdimen2\font
      plus.3\fontdimen3\font
      minus.8\fontdimen4\font\relax}%
  \providecommand{\BabelFrenchColonSpace}{\nobreakspace}%
  \providecommand{\BabelFrenchHighSpace}{%
    \leavevmode\nobreak\hskip.5\fontdimen2\font\relax}%
%
  \babelcharclass{\CurrentOption}{high}{;!?}%
  \babelcharclass{\CurrentOption}{colon}{:}%
  \babelcharclass{\CurrentOption}{leftguillemet}{«}%
  \babelcharclass{\CurrentOption}{rightguillemet}{»}%
  \babelcharclass{\CurrentOption}{opening}{([\{}% just make != default
%
  \babelinterchar[label=puntuation.space]{\CurrentOption}%
    {default, rightguillemet, high, colon}{high}{\BabelFrenchHighSpace}%
  \babelinterchar[label=puntuation.space]{\CurrentOption}%
    {default, rightguillemet, high}{colon}{\BabelFrenchColonSpace}%
  \babelinterchar[label=puntuation.space]{\CurrentOption}%
    {leftguillemet}{default}{\BabelFrenchGuillemetSpace}%
  \babelinterchar[label=puntuation.space]{\CurrentOption}%
    {default, high}{rightguillemet}{\BabelFrenchGuillemetSpace}%
%
% Here boundary means essentialy space:
  \babelinterchar[label=puntuation.space]{\CurrentOption}%
    {boundary}{high}{\ifhmode\unskip\nobreak\fi\BabelFrenchHighSpace}%
  \babelinterchar[label=puntuation.space]{\CurrentOption}%
    {boundary}{colon}{\ifhmode\unskip\nobreak\fi\BabelFrenchColonSpace}%
  \babelinterchar[label=puntuation.space]{\CurrentOption}%
    {leftguillemet}{boundary}{\BabelFrenchGuillemetSpace\ignorespaces}%
  \babelinterchar[label=puntuation.space]{\CurrentOption}%
    {boundary}{rightguillemet}{\ifhmode\unskip\fi\BabelFrenchGuillemetSpace}%
}

\fi

\endinput