blob: 43351e1d3423da9030dc6607562e12ef0a2bf3c6 (
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
|
% 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-CA}{%
}
\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}%
%
\babelcharclass{\CurrentOption}{colon}{:}%
\babelcharclass{\CurrentOption}{leftguillemet}{«}%
\babelcharclass{\CurrentOption}{rightguillemet}{»}%
\babelcharclass{\CurrentOption}{opening}{([\{}% just make != default
%
\babelinterchar[label=puntuation.space]{\CurrentOption}%
{default, rightguillemet}{colon}{\BabelFrenchColonSpace}%
\babelinterchar[label=puntuation.space]{\CurrentOption}%
{leftguillemet}{default}{\BabelFrenchGuillemetSpace}%
\babelinterchar[label=puntuation.space]{\CurrentOption}%
{default}{rightguillemet}{\BabelFrenchGuillemetSpace}%
%
% Here boundary means essentialy space:
\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
|