[latex3-commits] [git/LaTeX3-latex3-latex3] main: Allow for loading with ^^L \outer (fixes #1161) (56f031c2f)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/56f031c2fbad074a8b8e7f34143f12fd0fbe7b00

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

commit 56f031c2fbad074a8b8e7f34143f12fd0fbe7b00
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Mon Jan 23 16:28:01 2023 +0000

    Allow for loading with ^^L \outer (fixes #1161)


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

56f031c2fbad074a8b8e7f34143f12fd0fbe7b00
 l3kernel/CHANGELOG.md | 2 ++
 l3kernel/l3token.dtx  | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/l3kernel/CHANGELOG.md b/l3kernel/CHANGELOG.md
index 366f04f93..898960b07 100644
--- a/l3kernel/CHANGELOG.md
+++ b/l3kernel/CHANGELOG.md
@@ -12,6 +12,8 @@ this project uses date-based 'snapshot' version identifiers.
 
 ### Fixed
 - Allow for multi-part BCP47 strings in case changing
+- Loading with plain TeX due to `\outer` status of `^^L`
+  issue [\#1161](https://github.com/latex3/latex3/issues/1161))
 
 ### Changed
 - Leave catcode of `&` unchanged in code environment
diff --git a/l3kernel/l3token.dtx b/l3kernel/l3token.dtx
index 96b9df295..141b3998c 100644
--- a/l3kernel/l3token.dtx
+++ b/l3kernel/l3token.dtx
@@ -1571,6 +1571,8 @@
 %   auxiliaries reflects that.
 %    \begin{macrocode}
 \group_begin:
+  \char_set_catcode_active:N \^^L
+  \cs_set:Npn ^^L { }
   \if_int_odd:w 0
       \sys_if_engine_luatex:T { 1 }
       \sys_if_engine_xetex:T { 1 } \exp_stop_f:
@@ -1607,8 +1609,6 @@
 %   some standard \cs{if_false:} manipulation, while all of the \cs{exp_not:N}
 %   are required as there is an expansion in the setup.
 %    \begin{macrocode}
-    \char_set_catcode_active:N \^^L
-    \cs_set:Npn ^^L { }
     \char_set_catcode_active:n { 0 }
     \tl_set:Nn \l_@@_tmp_tl { \exp_not:N ^^@ \exp_not:N \or: }
     \char_set_catcode_other:n { 0 }