diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel-french/french.ldf')
-rw-r--r-- | Master/texmf-dist/tex/generic/babel-french/french.ldf | 55 |
1 files changed, 33 insertions, 22 deletions
diff --git a/Master/texmf-dist/tex/generic/babel-french/french.ldf b/Master/texmf-dist/tex/generic/babel-french/french.ldf index ecb35924393..fcf3dc7d05b 100644 --- a/Master/texmf-dist/tex/generic/babel-french/french.ldf +++ b/Master/texmf-dist/tex/generic/babel-french/french.ldf @@ -24,7 +24,7 @@ %% Please report errors to: <daniel (dot) flipo (at) free (dot) fr> %% \ProvidesLanguage{french} - [2019/01/30 v3.5d French support from the babel system] + [2019/03/30 v3.5e French support from the babel system] %% %% Babel package for LaTeX version 2e %% Copyright © 1996-2019 @@ -563,8 +563,12 @@ \addto\extrasfrench{\babel@save\og \babel@save\fg \bbl@frenchguillemets} \newcommand*{\ogi}{\FB@og} \newcommand*{\fgi}{\FB@fg} +\newcommand*{\@ogi}{\ifmmode\hbox{\ogi}\else\ogi\fi} +\newcommand*{\@fgi}{\ifmmode\hbox{\fgi}\else\fgi\fi} \newcommand*{\ogii}{\textquotedblleft} \newcommand*{\fgii}{\textquotedblright} +\newcommand*{\@ogii}{\ifmmode\hbox{\ogii}\else\ogii\fi} +\newcommand*{\@fgii}{\ifmmode\hbox{\fgii}\else\fgii\fi} \newcount\FBguill@level \newtoks\FBold@everypar \def\FB@addquote@everypar{% @@ -600,19 +604,21 @@ \def\FBeverypar@quote{\FBeveryparguill\FB@guillspace}% \FB@addquote@everypar \fi - \ogi #1\fgi + \@ogi #1\@fgi \or \ifx\FBeverylineguill\FBguillopen - \def\FBeveryline@quote{\guillemotleft\FB@guillspace}% + \def\FBeveryline@quote{\FB@addGUILspace=0 \guillemotleft + \FB@guillspace}% \localleftbox{\FBeveryline@quote}% \let\FBeverypar@quote\relax - \ogi #1\ifFBcloseguill\fgi\fi + \@ogi #1\ifFBcloseguill\@fgi\fi \else \ifx\FBeverylineguill\FBguillclose - \def\FBeveryline@quote{\guillemotright\FB@guillspace}% + \def\FBeveryline@quote{\FB@addGUILspace=0 \guillemotright + \FB@guillspace}% \localleftbox{\FBeveryline@quote}% \let\FBeverypar@quote\relax - \ogi #1\ifFBcloseguill\fgi\fi + \@ogi #1\ifFBcloseguill\@fgi\fi \else \let\FBeverypar@quote\relax \ifFBInnerGuillSingle @@ -627,7 +633,7 @@ \def\FBeverypar@quote{\guilsinglright\FB@guillspace}% \fi \fi - \ogii #1\ifFBcloseguill \fgii \fi + \@ogii #1\ifFBcloseguill \@fgii \fi \fi \fi \else @@ -640,13 +646,14 @@ \MessageBreak Quotation not printed. Reported} \fi \fi - \advance\FBguill@level by \m@ne - \ifcase\FBguill@level \let\FBeverypar@quote\relax - \or \def\FBeverypar@quote{\FBeveryparguill\FB@guillspace}% - \let\FBeveryline@quote\empty + \global\advance\FBguill@level by \m@ne + \ifcase\FBguill@level \global\let\FBeverypar@quote\relax + \or \gdef\FBeverypar@quote{\FBeveryparguill\FB@guillspace}% + \global\let\FBeveryline@quote\empty \ifx\FBeverylineguill\FBguillnone\else\localleftbox{}\fi \fi } +\newcommand*{\NoEveryParQuote}{\let\FBeveryparguill\FBguillnone} \def\BabelLanguages{french,acadian} \StartBabelCommands*{\BabelLanguages}{date} [unicode, fontenc=TU EU1 EU2, charset=utf8] @@ -1144,7 +1151,14 @@ \define@key{FB}{ShowOptions}[true]% {\csname FBShowOptions#1\endcsname}% \define@key{FB}{StandardLayout}[true]% - {\csname FBStandardLayout#1\endcsname + {\ifFB@mainlanguage@FR + \csname FBStandardLayout#1\endcsname + \else + \PackageWarning{french.ldf}% + {Option `StandardlLayout' skipped:\MessageBreak + French is *not* babel's last option.\MessageBreak + Reported}% + \fi \ifFBStandardLayout \FBStandardListSpacingtrue \FBStandardItemizeEnvtrue @@ -1164,16 +1178,13 @@ \FBAutoSpaceFootnotestrue \fi}% \define@key{FB}{GlobalLayoutFrench}[true]% - {\csname FBGlobalLayoutFrench#1\endcsname - \ifFBGlobalLayoutFrench - \ifFB@mainlanguage@FR - \else - \FBGlobalLayoutFrenchfalse - \PackageWarning{french.ldf}% - {Option `GlobalLayoutFrench' skipped:\MessageBreak - French is *not* babel's last option.\MessageBreak - Reported}% - \fi + {\ifFB@mainlanguage@FR + \csname FBGlobalLayoutFrench#1\endcsname + \else + \PackageWarning{french.ldf}% + {Option `GlobalLayoutFrench' skipped:\MessageBreak + French is *not* babel's last option.\MessageBreak + Reported}% \fi}% \define@key{FB}{ReduceListSpacing}[true]% {\csname FBReduceListSpacing#1\endcsname |