summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel/locale/fr/babel-french.tex
diff options
context:
space:
mode:
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.tex41
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