[latex3-commits] [latex3/babel] main: Fix #248. Fix #178. Another fix for #240. (fc50c9b)

[github at latex-project.org]

Repository : https://github.com/latex3/babel
On branch  : main
Link       : https://github.com/latex3/babel/commit/fc50c9b0770569e851027e69cc9ca87a5b5c3a82

>---------------------------------------------------------------

commit fc50c9b0770569e851027e69cc9ca87a5b5c3a82
Author: Javier <email at localhost>
Date:   Sun Jul 9 18:37:56 2023 +0200

    Fix #248. Fix #178. Another fix for #240.


>---------------------------------------------------------------

fc50c9b0770569e851027e69cc9ca87a5b5c3a82
 README.md      |   2 +-
 babel-code.pdf | Bin 626873 -> 626795 bytes
 babel.dtx      |  24 ++++++++++++++++++------
 babel.pdf      | Bin 404347 -> 404355 bytes
 bbcompat.dtx   |   2 +-
 5 files changed, 20 insertions(+), 8 deletions(-)

diff --git a/README.md b/README.md
index d9e620c..a0a5930 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-## Babel 3.91
+## Babel 3.91.19073
 
 2023-07-09
 
diff --git a/babel-code.pdf b/babel-code.pdf
index 3308a56..cd076fc 100644
Binary files a/babel-code.pdf and b/babel-code.pdf differ
diff --git a/babel.dtx b/babel.dtx
index 6f91f11..7eb328f 100644
--- a/babel.dtx
+++ b/babel.dtx
@@ -32,7 +32,7 @@
 %
 % \iffalse
 %<*filedriver>
-\ProvidesFile{babel.dtx}[2023/07/09 v3.91 The Babel package]
+\ProvidesFile{babel.dtx}[2023/07/09 v3.91.19073 The Babel package]
 \documentclass{ltxdoc}
 \GetFileInfo{babel.dtx}
 \usepackage{fontspec}
@@ -5466,7 +5466,7 @@ wouldn’t exist.
 % \section{Tools}
 %
 %    \begin{macrocode}
-%<<version=3.91>>
+%<<version=3.91.19073>>
 %<<date=2023/07/09>>
 %    \end{macrocode}
 %
@@ -7678,9 +7678,18 @@ wouldn’t exist.
       \string\providecommand\string\babel at aux[2]{}}%
     \immediate\write\@mainaux{\string\@nameuse{bbl at beforestart}}%
   \fi
-%<-package>
   \expandafter\selectlanguage\expandafter{\bbl at main@language}%
-%<+package>
+%<-core>
+  \ifx\bbl at normalsf\@empty
+    \ifnum\sfcode`\.=\@m
+      \let\normalsfcodes\frenchspacing
+    \else
+      \let\normalsfcodes\nonfrenchspacing
+    \fi
+  \else
+    \let\normalsfcodes\bbl at normalsf
+  \fi
+%<+core>
   \ifbbl at single  % must go after the line above.
     \renewcommand\selectlanguage[1]{}%
     \renewcommand\foreignlanguage[2]{#2}%
@@ -7688,7 +7697,8 @@ wouldn’t exist.
   \fi}
 %<-core>
 \AddToHook{begindocument/before}{%
-  \expandafter\selectlanguage\expandafter{\bbl at main@language}}
+  \let\bbl at normalsf\normalsfcodes
+  \let\normalsfcodes\relax} % Hack, to delay the setting
 %<+core>
 \ifcase\bbl at engine\or
   \AtBeginDocument{\pagedir\bodydir} % TODO - a better place
@@ -13432,6 +13442,8 @@ wouldn’t exist.
 %     still not sure -- must investigate:
 \def\bbl at fontspec@set#1#2#3#4{% eg \bbl at rmdflt@lang fnt-opt fnt-nme \xxfamily
   \let\bbl at tempe\bbl at mapselect
+  \edef\bbl at tempb{\bbl at stripslash#4/}% Catcodes hack (better pass it).
+  \bbl at exp{\\\bbl at replace\\\bbl at tempb{\bbl at stripslash\family/}{}}%
   \let\bbl at mapselect\relax
   \let\bbl at temp@fam#4%       eg, '\rmfamily', to be restored below
   \let#4\@empty      %       Make sure \renewfontfamily is valid
@@ -13446,7 +13458,7 @@ wouldn’t exist.
     \let\\\bbl at tempfs@nxx\<__fontspec_warning:nxx>%
     \let\<__fontspec_warning:nxx>\\\bbl at fs@warn at nxx
     \\\renewfontfamily\\#4%
-      [\bbl at cl{lsys},#2]}{#3}% ie \bbl at exp{..}{#3}
+      [\bbl at cl{lsys},RawFeature={family=\bbl at tempb},#2]}{#3}% ie \bbl at exp{..}{#3}
   \bbl at exp{%
     \let\<__fontspec_warning:nx>\\\bbl at tempfs@nx
     \let\<__fontspec_warning:nxx>\\\bbl at tempfs@nxx}%
diff --git a/babel.pdf b/babel.pdf
index d6a7524..4a00cbe 100644
Binary files a/babel.pdf and b/babel.pdf differ
diff --git a/bbcompat.dtx b/bbcompat.dtx
index 6aed129..01cf93a 100644
--- a/bbcompat.dtx
+++ b/bbcompat.dtx
@@ -30,7 +30,7 @@
 %
 % \iffalse
 %<*dtx>
-\ProvidesFile{bbcompat.dtx}[2023/07/09 v3.91]
+\ProvidesFile{bbcompat.dtx}[2023/07/09 v3.91.19073]
 %</dtx>
 %
 %% File 'bbcompat.dtx'