l3 (11oct19)

git-svn-id: svn://tug.org/texlive/trunk@52343 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 6 insertions, 9 deletions

diff --git a/Master/texmf-dist/source/latex/l3kernel/l3luatex.dtx b/Master/texmf-dist/source/latex/l3kernel/l3luatex.dtx
index cbc3d7a4e2f..7a59765ed5c 100644
--- a/Master/texmf-dist/source/latex/l3kernel/l3luatex.dtx
+++ b/Master/texmf-dist/source/latex/l3kernel/l3luatex.dtx
@@ -43,7 +43,7 @@
 %    }^^A
 % }
 %
-% \date{Released 2019-10-02}
+% \date{Released 2019-10-11}
 %
 % \maketitle
 %
@@ -328,6 +328,7 @@ local os_clock   = os.clock
 local os_date    = os.date
 local setcatcode = tex.setcatcode
 local sprint     = tex.sprint
+local cprint     = tex.cprint
 local write      = tex.write
 %    \end{macrocode}
 %
@@ -354,15 +355,11 @@ end
 % \end{macro}
 %
 % \begin{macro}{l3kernel.charcat}
-%   Creating arbitrary chars needs a category code table. As set up here,
-%   one may have been assigned earlier (see \pkg{l3bootstrap}) or a hard-coded
-%   one is used. The latter is intended for format mode and should be adjusted
-%   to match an eventual allocator.
+%   Creating arbitrary chars using |tex.cprint|.
 %    \begin{macrocode}
-local charcat_table = l3kernel.charcat_table or 1
-local function charcat(charcode, catcode)
-  setcatcode(charcat_table, charcode, catcode)
-  sprint(charcat_table, utf8_char(charcode))
+local charcat
+function charcat(charcode, catcode)
+  cprint(catcode, utf8_char(charcode))
 end
 l3kernel.charcat = charcat
 %    \end{macrocode}