[latex3-commits] [git/LaTeX3-latex3-latex3] main: Frank would prefer to use the kernel hook here (baa2e4434)

[Joseph Wright]

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

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

commit baa2e44343c16da47cea21f6aaf7123fd9679524
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Mon Feb 21 20:27:04 2022 +0000

    Frank would prefer to use the kernel hook here


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

baa2e44343c16da47cea21f6aaf7123fd9679524
 l3kernel/l3text-case.dtx                | 2 +-
 l3kernel/testfiles/m3peek001.luatex.tlg | 2 +-
 l3kernel/testfiles/m3peek001.ptex.tlg   | 2 +-
 l3kernel/testfiles/m3peek001.tlg        | 2 +-
 l3kernel/testfiles/m3peek001.uptex.tlg  | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/l3kernel/l3text-case.dtx b/l3kernel/l3text-case.dtx
index b6c263c22..6c3f146f1 100644
--- a/l3kernel/l3text-case.dtx
+++ b/l3kernel/l3text-case.dtx
@@ -2086,7 +2086,7 @@
   {
     \tl_gput_right:Nn \@expl at finalise@setup@@@@
       {
-        \AtBeginDocument
+        \tl_gput_right:Nn \@kernel at after@begindocument
           {
             \group_begin:
               \cs_set_protected:Npn \@@_change_case_setup:Nn #1#2
diff --git a/l3kernel/testfiles/m3peek001.luatex.tlg b/l3kernel/testfiles/m3peek001.luatex.tlg
index 0cbb11943..744e972c9 100644
--- a/l3kernel/testfiles/m3peek001.luatex.tlg
+++ b/l3kernel/testfiles/m3peek001.luatex.tlg
@@ -6,7 +6,7 @@ TEST 1: peek after
 ============================================================
 the letter l
 the letter g
-begin-group character {
+the character [
 the letter g
 ============================================================
 ============================================================
diff --git a/l3kernel/testfiles/m3peek001.ptex.tlg b/l3kernel/testfiles/m3peek001.ptex.tlg
index a76b5bd84..ad9c4bc0f 100644
--- a/l3kernel/testfiles/m3peek001.ptex.tlg
+++ b/l3kernel/testfiles/m3peek001.ptex.tlg
@@ -6,7 +6,7 @@ TEST 1: peek after
 ============================================================
 the letter l
 the letter g
-begin-group character {
+the character [
 the letter g
 ============================================================
 ============================================================
diff --git a/l3kernel/testfiles/m3peek001.tlg b/l3kernel/testfiles/m3peek001.tlg
index a76b5bd84..ad9c4bc0f 100644
--- a/l3kernel/testfiles/m3peek001.tlg
+++ b/l3kernel/testfiles/m3peek001.tlg
@@ -6,7 +6,7 @@ TEST 1: peek after
 ============================================================
 the letter l
 the letter g
-begin-group character {
+the character [
 the letter g
 ============================================================
 ============================================================
diff --git a/l3kernel/testfiles/m3peek001.uptex.tlg b/l3kernel/testfiles/m3peek001.uptex.tlg
index a76b5bd84..ad9c4bc0f 100644
--- a/l3kernel/testfiles/m3peek001.uptex.tlg
+++ b/l3kernel/testfiles/m3peek001.uptex.tlg
@@ -6,7 +6,7 @@ TEST 1: peek after
 ============================================================
 the letter l
 the letter g
-begin-group character {
+the character [
 the letter g
 ============================================================
 ============================================================