From f713ac513a897193c8b6ac8e34d55d8490fe270f Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Tue, 12 Apr 2022 03:04:20 +0000
Subject: CTAN sync 202204120304

---
 macros/latex/contrib/l3kernel/l3names.dtx | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

(limited to 'macros/latex/contrib/l3kernel/l3names.dtx')

diff --git a/macros/latex/contrib/l3kernel/l3names.dtx b/macros/latex/contrib/l3kernel/l3names.dtx
index f330647e3f..50512593c3 100644
--- a/macros/latex/contrib/l3kernel/l3names.dtx
+++ b/macros/latex/contrib/l3kernel/l3names.dtx
@@ -43,7 +43,7 @@
 %    }^^A
 % }
 %
-% \date{Released 2022-02-24}
+% \date{Released 2022-04-10}
 %
 % \maketitle
 %
@@ -1140,12 +1140,14 @@
   \@@_primitive:NN \kcatcode              \tex_kcatcode:D
   \@@_primitive:NN \kuten                 \tex_kuten:D
   \@@_primitive:NN \lastnodechar          \tex_lastnodechar:D
+  \@@_primitive:NN \lastnodefont          \tex_lastnodefont:D
   \@@_primitive:NN \lastnodesubtype       \tex_lastnodesubtype:D
   \@@_primitive:NN \noautospacing         \tex_noautospacing:D
   \@@_primitive:NN \noautoxspacing        \tex_noautoxspacing:D
   \@@_primitive:NN \pagefistretch         \tex_pagefistretch:D
   \@@_primitive:NN \postbreakpenalty      \tex_postbreakpenalty:D
   \@@_primitive:NN \prebreakpenalty       \tex_prebreakpenalty:D
+  \@@_primitive:NN \ptexlineendmode       \tex_lineendmode:D
   \@@_primitive:NN \ptexminorversion      \tex_ptexminorversion:D
   \@@_primitive:NN \ptexrevision          \tex_ptexrevision:D
   \@@_primitive:NN \ptexversion           \tex_ptexversion:D
@@ -1161,6 +1163,8 @@
   \@@_primitive:NN \textbaselineshiftfactor
     \tex_textbaselineshiftfactor:D
   \@@_primitive:NN \tfont                 \tex_tfont:D
+  \@@_primitive:NN \toucs                 \tex_toucs:D
+  \@@_primitive:NN \ucs                   \tex_ucs:D
   \@@_primitive:NN \xkanjiskip            \tex_xkanjiskip:D
   \@@_primitive:NN \xspcode               \tex_xspcode:D
   \@@_primitive:NN \ybaselineshift        \tex_ybaselineshift:D
@@ -1176,7 +1180,6 @@
   \@@_primitive:NN \kchar                 \tex_kchar:D
   \@@_primitive:NN \kchardef              \tex_kchardef:D
   \@@_primitive:NN \kuten                 \tex_kuten:D
-  \@@_primitive:NN \ucs                   \tex_ucs:D
   \@@_primitive:NN \uptexrevision         \tex_uptexrevision:D
   \@@_primitive:NN \uptexversion          \tex_uptexversion:D
 %    \end{macrocode}
@@ -1195,6 +1198,7 @@
 %    \begin{macrocode}
   \@@_primitive:NN \partokencontext       \tex_partokencontext:D
   \@@_primitive:NN \partokenname          \tex_partokenname:D
+  \@@_primitive:NN \showstream            \tex_showstream:D
   \@@_primitive:NN \tracingstacklevels    \tex_tracingstacklevels:D
 %    \end{macrocode}
 % End of the \enquote{just the names} part of the source.
@@ -1470,9 +1474,9 @@
 %   Here \enquote{smaller} refers to codepoint order which does not correspond to
 %   the user expected order for most non-ASCII strings.
 %    \begin{macrocode}
-local minus_tok = token.new(string.byte'-', 12)
-local zero_tok = token.new(string.byte'0', 12)
-local one_tok = token.new(string.byte'1', 12)
+local minus_tok = token_new(string.byte'-', 12)
+local zero_tok = token_new(string.byte'0', 12)
+local one_tok = token_new(string.byte'1', 12)
 luacmd('tex_strcmp:D', function()
   local first = scan_string()
   local second = scan_string()
@@ -1487,14 +1491,19 @@ end, 'global')
 %
 % \begin{macro}{\tex_Ucharcat:D}
 %   Creating arbitrary chars using |tex.cprint|.
-%   The alternative approach using |token.put_next(token.create(...))|
-%   would be about 10\% slower.
+%   The alternative approach using |token.new(...)| is about 10\% slower
+%   but needed to create arbitrary space tokens.
 %    \begin{macrocode}
+local sprint = tex.sprint
 local cprint = tex.cprint
 luacmd('tex_Ucharcat:D', function()
   local charcode = scan_int()
   local catcode = scan_int()
-  cprint(catcode, utf8_char(charcode))
+  if catcode == 10 then
+    sprint(token_new(charcode, 10))
+  else
+    cprint(catcode, utf8_char(charcode))
+  end
 end, 'global')
 %    \end{macrocode}
 % \end{macro}
-- 
cgit v1.2.3

