diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel/locale/fr/babel-french.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/babel/locale/fr/babel-french.tex | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/babel/locale/fr/babel-french.tex b/Master/texmf-dist/tex/generic/babel/locale/fr/babel-french.tex index b0e3a6e1bbd..a53769ba554 100644 --- a/Master/texmf-dist/tex/generic/babel/locale/fr/babel-french.tex +++ b/Master/texmf-dist/tex/generic/babel/locale/fr/babel-french.tex @@ -9,4 +9,45 @@ \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
\ No newline at end of file |