texlive[47567] Master/texmf-dist: ltximg (12apr18)
commits+karl at tug.org
commits+karl at tug.org
Wed May 2 20:26:32 CEST 2018
Revision: 47567
http://tug.org/svn/texlive?view=revision&revision=47567
Author: karl
Date: 2018-05-02 20:26:31 +0200 (Wed, 02 May 2018)
Log Message:
-----------
ltximg (12apr18)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/babel-french/frenchb.pdf
trunk/Master/texmf-dist/source/generic/babel-french/frenchb.dtx
trunk/Master/texmf-dist/tex/generic/babel-french/acadian.ldf
trunk/Master/texmf-dist/tex/generic/babel-french/canadien.ldf
trunk/Master/texmf-dist/tex/generic/babel-french/francais.ldf
trunk/Master/texmf-dist/tex/generic/babel-french/french.ldf
trunk/Master/texmf-dist/tex/generic/babel-french/frenchb.ldf
trunk/Master/texmf-dist/tex/generic/babel-french/frenchb.lua
Modified: trunk/Master/texmf-dist/doc/generic/babel-french/frenchb.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/source/generic/babel-french/frenchb.dtx
===================================================================
--- trunk/Master/texmf-dist/source/generic/babel-french/frenchb.dtx 2018-05-02 17:55:49 UTC (rev 47566)
+++ trunk/Master/texmf-dist/source/generic/babel-french/frenchb.dtx 2018-05-02 18:26:31 UTC (rev 47567)
@@ -1,4 +1,4 @@
-%\CheckSum{3600}
+%\CheckSum{3611}
%
%\iffalse
% Tell the LaTeX system who we are and write an entry on the
@@ -13,7 +13,7 @@
%<frenchb>\ProvidesLanguage{frenchb}
%<lua>--[[
%<lua> File `frenchb.lua’ generated from frenchb.dtx
- [2018/03/25 v3.4c French support from the babel system]
+ [2018/04/12 v3.4d French support from the babel system]
%<*internal>
\iffalse
%</internal>
@@ -4383,23 +4383,11 @@
% available on the keyboard (through a compose key for instance)
% is more comfortable than typing |\og| and |\fg|.
%
-% With pdfTeX (or old LuaTeX and XeTeX engines), quote characters
-% are made active and expand to |\og\ignorespaces| and |{\fg}|
-% respectively if the current language is French, and to
-% |\guillemotleft| and |\guillemotright| otherwise (think of German
-% quotes), this is done by |\FB@@og| and |\FB@@fg|; thus correct
-% non-breaking spaces will be added automatically to French quotes.
-% The quote characters typed in depend on the input encoding,
-% it can be single-byte (latin1, latin9, applemac,\dots) or
-% multi-bytes (utf-8, utf8x); the \pkg{inputenc} package has to
-% be loaded before the |\begin{document}| with the proper coding
-% option, so we check if |\DeclareInputText| is defined.
+% Life is simple here with modern LuaTeX or XeTeX engines: we just
+% have to activate the |\FB at addGUILspace| attribute for LuaTeX or
+% set |\XeTeXcharclass| of quotes to the proper value for XeTeX.
%
-% Life is much simpler here with modern LuaTeX or XeTeX engines: we
-% just have to activate the |\FB at addGUILspace| attribute for LuaTeX
-% or set |\XeTeXcharclass| of quotes to the proper value for XeTeX.
-%
-% \changes{v2.4c}{2010/05/23}{In \cs{ttfamilyFB}, also cancel
+%\changes{v2.4c}{2010/05/23}{In \cs{ttfamilyFB}, also cancel
% automatic spaces inside French guillemets coded as characters
% (see \cs{frenchbsetup}).}
%
@@ -4418,7 +4406,24 @@
% \changes{v3.2c}{2016/05/03}{Add a warning about options og/fg for old
% XeTeX or LuaTeX engines requiring active characters.}
%
+% \changes{v3.4d}{2018/04/11}{New test for deciding about utf8 encoding
+% for keys og and fg (the former one fails with LaTeX 2018 release).}
+%
+% With pdfTeX (or old LuaTeX and XeTeX engines), quote characters
+% are made active and expand to |\og\ignorespaces| and |{\fg}|
+% respectively if the current language is French, and to
+% |\guillemotleft| and |\guillemotright| otherwise (think of German
+% quotes), this is done by |\FB@@og| and |\FB@@fg|; thus correct
+% non-breaking spaces will be added automatically to French quotes.
+% The quote characters typed in depend on the input encoding,
+% it can be single-byte (latin1, latin9, applemac,\dots) or
+% multi-bytes (utf-8, utf8x); the next command checks if a character
+% is single-byte (then |\FB at second| is empty) or not.
% \begin{macrocode}
+ \def\FB at parse#1#2\endparse{\def\FB at second{#2}}%
+% \end{macrocode}
+%
+% \begin{macrocode}
\define at key{FB}{og}%
{\ifFBunicode
% \end{macrocode}
@@ -4461,43 +4466,45 @@
\fi
\else\guillemotleft\fi}%
\AtBeginDocument{%
- \ifdefined\DeclareInputText
- \ifdefined\uc at dclc
+ \ifdefined\uc at dclc
% \end{macrocode}
-% Package \pkg{inputenc} with utf8x encoding loaded, use |\uc at dclc|,
+% Package \pkg{inputenc} with utf8x (ucs) encoding loaded,
+% use |\uc at dclc|:
% \begin{macrocode}
- \uc at dclc{171}{default}{\FB@@og}%
- \else
+ \uc at dclc{171}{default}{\FB@@og}%
+ \else
% \end{macrocode}
-% if encoding is not utf8x, try utf8\dots
+% if encoding is not utf8x, check if the argument of |og|
+% is a single-byte character:
% \begin{macrocode}
- \ifdefined\DeclareUnicodeCharacter
+ \FB at parse#1\endparse
+ \ifx\FB at second\@empty
% \end{macrocode}
-% utf8 loaded, use |\DeclareUnicodeCharacter|,
+% This means 8-bit character encoding.
+% Package \pkg{MULEenc} (from CJK) defines |\mule at def|
+% to map characters to control sequences.
% \begin{macrocode}
- \DeclareUnicodeCharacter{00AB}{\FB@@og}%
+ \ifdefined\mule at def
+ \mule at def{11}{\FB@@og}%
\else
+ \ifdefined\DeclareInputText
+ \@tempcnta`#1\relax
+ \DeclareInputText{\the\@tempcnta}{\FB@@og}%
+ \else
% \end{macrocode}
-% if utf8 is not loaded either, we assume 8-bit character input
-% encoding. Package \pkg{MULEenc} (from CJK) defines |\mule at def|
-% to map characters to control sequences.
+% Package \pkg{inputenc} not loaded, no way\dots{}
% \begin{macrocode}
- \@tempcnta`#1\relax
- \ifdefined\mule at def
- \mule at def{11}{\FB@@og}%
- \else
- \DeclareInputText{\the\@tempcnta}{\FB@@og}%
+ \FBWarning{Option `og' requires package
+ inputenc;\MessageBreak reported}%
\fi
\fi
- \fi
- \else
+ \else
% \end{macrocode}
-% Package \pkg{inputenc} not loaded, no way\dots{}
+% This means multi-byte character encoding, we assume UTF-8
% \begin{macrocode}
- \FBWarning{Option `og' requires package inputenc;%
- \MessageBreak reported}%
- \fi
- }%
+ \DeclareUnicodeCharacter{00AB}{\FB@@og}%
+ \fi
+ \fi}%
\fi
}%
% \end{macrocode}
@@ -4527,26 +4534,26 @@
\fi
\else\guillemotright\fi}%
\AtBeginDocument{%
- \ifdefined\DeclareInputText
- \ifdefined\uc at dclc
- \uc at dclc{187}{default}{\FB@@fg}%
- \else
- \ifdefined\DeclareUnicodeCharacter
- \DeclareUnicodeCharacter{00BB}{\FB@@fg}%
- \else
- \@tempcnta`#1\relax
- \ifdefined\mule at def
- \mule at def{27}{{\FB@@fg}}%
- \else
- \DeclareInputText{\the\@tempcnta}{\FB@@fg}%
- \fi
- \fi
- \fi
- \else
- \FBWarning{Option `fg' requires package inputenc;%
- \MessageBreak reported}%
- \fi
- }%
+ \ifdefined\uc at dclc
+ \uc at dclc{187}{default}{\FB@@fg}%
+ \else
+ \FB at parse#1\endparse
+ \ifx\FB at second\@empty
+ \ifdefined\mule at def
+ \mule at def{27}{{\FB@@fg}}%
+ \else
+ \ifdefined\DeclareInputText
+ \@tempcnta`#1\relax
+ \DeclareInputText{\the\@tempcnta}{\FB@@fg}%
+ \else
+ \FBWarning{Option `fg' requires package
+ inputenc;\MessageBreak reported}%
+ \fi
+ \fi
+ \else
+ \DeclareUnicodeCharacter{00BB}{\FB@@fg}%
+ \fi
+ \fi}%
\fi
}%
}
Modified: trunk/Master/texmf-dist/tex/generic/babel-french/acadian.ldf
===================================================================
--- trunk/Master/texmf-dist/tex/generic/babel-french/acadian.ldf 2018-05-02 17:55:49 UTC (rev 47566)
+++ trunk/Master/texmf-dist/tex/generic/babel-french/acadian.ldf 2018-05-02 18:26:31 UTC (rev 47567)
@@ -24,7 +24,7 @@
%% Please report errors to: <daniel (dot) flipo (at) free (dot) fr>
%%
\ProvidesLanguage{acadian}
- [2018/03/25 v3.4c French support from the babel system]
+ [2018/04/12 v3.4d French support from the babel system]
\PackageInfo{acadian.ldf}%
{`acadian' dialect is currently\MessageBreak
*absolutely identical* to the\MessageBreak
Modified: trunk/Master/texmf-dist/tex/generic/babel-french/canadien.ldf
===================================================================
--- trunk/Master/texmf-dist/tex/generic/babel-french/canadien.ldf 2018-05-02 17:55:49 UTC (rev 47566)
+++ trunk/Master/texmf-dist/tex/generic/babel-french/canadien.ldf 2018-05-02 18:26:31 UTC (rev 47567)
@@ -24,7 +24,7 @@
%% Please report errors to: <daniel (dot) flipo (at) free (dot) fr>
%%
\ProvidesLanguage{canadien}
- [2018/03/25 v3.4c French support from the babel system]
+ [2018/04/12 v3.4d French support from the babel system]
\PackageWarning{canadien.ldf}%
{Option `canadien' for Babel is *deprecated*,\MessageBreak
it might be removed sooner or later. Please\MessageBreak
Modified: trunk/Master/texmf-dist/tex/generic/babel-french/francais.ldf
===================================================================
--- trunk/Master/texmf-dist/tex/generic/babel-french/francais.ldf 2018-05-02 17:55:49 UTC (rev 47566)
+++ trunk/Master/texmf-dist/tex/generic/babel-french/francais.ldf 2018-05-02 18:26:31 UTC (rev 47567)
@@ -24,7 +24,7 @@
%% Please report errors to: <daniel (dot) flipo (at) free (dot) fr>
%%
\ProvidesLanguage{francais}
- [2018/03/25 v3.4c French support from the babel system]
+ [2018/04/12 v3.4d French support from the babel system]
\PackageWarning{francais.ldf}%
{Option `francais' for Babel is *deprecated*,\MessageBreak
it might be removed sooner or later. Please\MessageBreak
Modified: trunk/Master/texmf-dist/tex/generic/babel-french/french.ldf
===================================================================
--- trunk/Master/texmf-dist/tex/generic/babel-french/french.ldf 2018-05-02 17:55:49 UTC (rev 47566)
+++ trunk/Master/texmf-dist/tex/generic/babel-french/french.ldf 2018-05-02 18:26:31 UTC (rev 47567)
@@ -24,7 +24,7 @@
%% Please report errors to: <daniel (dot) flipo (at) free (dot) fr>
%%
\ProvidesLanguage{french}
- [2018/03/25 v3.4c French support from the babel system]
+ [2018/04/12 v3.4d French support from the babel system]
%%
%% Babel package for LaTeX version 2e
%% Copyright © 1996-2018
@@ -1306,6 +1306,7 @@
LuaTeX *only*.\MessageBreak Reported}%
\fi
}%
+ \def\FB at parse#1#2\endparse{\def\FB at second{#2}}%
\define at key{FB}{og}%
{\ifFBunicode
\ifFB at luatex@punct
@@ -1329,26 +1330,26 @@
\fi
\else\guillemotleft\fi}%
\AtBeginDocument{%
- \ifdefined\DeclareInputText
- \ifdefined\uc at dclc
- \uc at dclc{171}{default}{\FB@@og}%
- \else
- \ifdefined\DeclareUnicodeCharacter
- \DeclareUnicodeCharacter{00AB}{\FB@@og}%
+ \ifdefined\uc at dclc
+ \uc at dclc{171}{default}{\FB@@og}%
+ \else
+ \FB at parse#1\endparse
+ \ifx\FB at second\@empty
+ \ifdefined\mule at def
+ \mule at def{11}{\FB@@og}%
\else
- \@tempcnta`#1\relax
- \ifdefined\mule at def
- \mule at def{11}{\FB@@og}%
+ \ifdefined\DeclareInputText
+ \@tempcnta`#1\relax
+ \DeclareInputText{\the\@tempcnta}{\FB@@og}%
\else
- \DeclareInputText{\the\@tempcnta}{\FB@@og}%
+ \FBWarning{Option `og' requires package
+ inputenc;\MessageBreak reported}%
\fi
\fi
+ \else
+ \DeclareUnicodeCharacter{00AB}{\FB@@og}%
\fi
- \else
- \FBWarning{Option `og' requires package inputenc;%
- \MessageBreak reported}%
- \fi
- }%
+ \fi}%
\fi
}%
\define at key{FB}{fg}%
@@ -1374,26 +1375,26 @@
\fi
\else\guillemotright\fi}%
\AtBeginDocument{%
- \ifdefined\DeclareInputText
- \ifdefined\uc at dclc
- \uc at dclc{187}{default}{\FB@@fg}%
- \else
- \ifdefined\DeclareUnicodeCharacter
- \DeclareUnicodeCharacter{00BB}{\FB@@fg}%
- \else
- \@tempcnta`#1\relax
- \ifdefined\mule at def
- \mule at def{27}{{\FB@@fg}}%
- \else
- \DeclareInputText{\the\@tempcnta}{\FB@@fg}%
- \fi
- \fi
- \fi
- \else
- \FBWarning{Option `fg' requires package inputenc;%
- \MessageBreak reported}%
- \fi
- }%
+ \ifdefined\uc at dclc
+ \uc at dclc{187}{default}{\FB@@fg}%
+ \else
+ \FB at parse#1\endparse
+ \ifx\FB at second\@empty
+ \ifdefined\mule at def
+ \mule at def{27}{{\FB@@fg}}%
+ \else
+ \ifdefined\DeclareInputText
+ \@tempcnta`#1\relax
+ \DeclareInputText{\the\@tempcnta}{\FB@@fg}%
+ \else
+ \FBWarning{Option `fg' requires package
+ inputenc;\MessageBreak reported}%
+ \fi
+ \fi
+ \else
+ \DeclareUnicodeCharacter{00BB}{\FB@@fg}%
+ \fi
+ \fi}%
\fi
}%
}
Modified: trunk/Master/texmf-dist/tex/generic/babel-french/frenchb.ldf
===================================================================
--- trunk/Master/texmf-dist/tex/generic/babel-french/frenchb.ldf 2018-05-02 17:55:49 UTC (rev 47566)
+++ trunk/Master/texmf-dist/tex/generic/babel-french/frenchb.ldf 2018-05-02 18:26:31 UTC (rev 47567)
@@ -24,7 +24,7 @@
%% Please report errors to: <daniel (dot) flipo (at) free (dot) fr>
%%
\ProvidesLanguage{frenchb}
- [2018/03/25 v3.4c French support from the babel system]
+ [2018/04/12 v3.4d French support from the babel system]
\def\bbl at tempa{frenchb}
\ifx\CurrentOption\bbl at tempa
\let\l at frenchb\l at french
Modified: trunk/Master/texmf-dist/tex/generic/babel-french/frenchb.lua
===================================================================
--- trunk/Master/texmf-dist/tex/generic/babel-french/frenchb.lua 2018-05-02 17:55:49 UTC (rev 47566)
+++ trunk/Master/texmf-dist/tex/generic/babel-french/frenchb.lua 2018-05-02 18:26:31 UTC (rev 47567)
@@ -1,6 +1,6 @@
--[[
File `frenchb.lua’ generated from frenchb.dtx
- [2018/03/25 v3.4c French support from the babel system]
+ [2018/04/12 v3.4d French support from the babel system]
Copyright © 2014-2018 Daniel Flipo
<daniel (dot) flipo (at) free (dot) fr>
License LPPL: see french.ldf.
More information about the tex-live-commits
mailing list