[latex3-commits] [latex3/latex3] main: Use the kernel hook in place of \AtBeginDocument (c641dc1fb)

[github at latex-project.org]

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

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

commit c641dc1fbd80dbbc4712661a31e887c67262eee3
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue Feb 20 07:24:34 2024 +0000

    Use the kernel hook in place of \AtBeginDocument
    
    This will show up in the 2e test suite - but as a one-off.


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

c641dc1fbd80dbbc4712661a31e887c67262eee3
 l3kernel/l3file.dtx | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/l3kernel/l3file.dtx b/l3kernel/l3file.dtx
index 26ff4b3cf..33b7c9275 100644
--- a/l3kernel/l3file.dtx
+++ b/l3kernel/l3file.dtx
@@ -3711,16 +3711,19 @@
 % \cs{@filelist} must be turned to strings before being added to
 % \cs{g_@@_record_seq}.
 %    \begin{macrocode}
-\cs_if_exist:NT \@filelist
+\cs_if_exist:NT \@expl at finalise@setup@@@@
   {
-    \AtBeginDocument
+    \tl_gput_right:Nn \@expl at finalise@setup@@@@
       {
-        \exp_args:NNe \seq_set_from_clist:Nn \l_@@_tmp_seq
-          { \tl_to_str:N \@filelist }
-        \seq_gconcat:NNN
-          \g_@@_record_seq
-          \g_@@_record_seq
-          \l_@@_tmp_seq
+        \tl_gput_right:Nn \@kernel at after@begindocument
+          {
+            \exp_args:NNe \seq_set_from_clist:Nn \l_@@_tmp_seq
+              { \tl_to_str:N \@filelist }
+            \seq_gconcat:NNN
+              \g_@@_record_seq
+              \g_@@_record_seq
+              \l_@@_tmp_seq
+          }
       }
   }
 %    \end{macrocode}