From 54079d2aaddf39563a50a6d397e67e7129a1dacc Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 21 Feb 2022 20:56:53 +0000
Subject: l3kernel (21feb22)

git-svn-id: svn://tug.org/texlive/trunk@62127 c570f23f-e606-0410-a88d-b1316a301751
---
 .../source/latex/l3kernel/l3text-case.dtx          | 51 ++++++++++++----------
 1 file changed, 27 insertions(+), 24 deletions(-)

(limited to 'Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx')

diff --git a/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx b/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx
index d93fad46242..b6c263c22d8 100644
--- a/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx
+++ b/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx
@@ -43,7 +43,7 @@
 %    }^^A
 % }
 %
-% \date{Released 2022-02-05}
+% \date{Released 2022-02-21}
 %
 % \maketitle
 %
@@ -2082,37 +2082,40 @@
 % we check at the end of the preamble. This will therefore only apply
 % to \LaTeXe{} package mode.
 %    \begin{macrocode}
-\cs_if_exist:cT { @uclclist }
+\tl_if_exist:NT \@expl@finalise@setup@@@@
   {
-    \AtBeginDocument
+    \tl_gput_right:Nn \@expl@finalise@setup@@@@
       {
-        \group_begin:
-          \cs_set_protected:Npn \@@_change_case_setup:Nn #1#2
-            {
-              \quark_if_recursion_tail_stop:N #1
-              \tl_if_single_token:nT {#2}
+        \AtBeginDocument
+          {
+            \group_begin:
+              \cs_set_protected:Npn \@@_change_case_setup:Nn #1#2
                 {
-                  \cs_if_exist:cF
-                    { c_@@_uppercase_ \token_to_str:N #1 _tl }
+                  \quark_if_recursion_tail_stop:N #1
+                  \tl_if_single_token:nT {#2}
                     {
-                      \tl_const:cn
+                      \cs_if_exist:cF
                         { c_@@_uppercase_ \token_to_str:N #1 _tl }
-                        { #2 }
-                    }
-                  \cs_if_exist:cF
-                    { c_@@_lowercase_ \token_to_str:N #2 _tl }
-                    {
-                      \tl_const:cn
+                        {
+                          \tl_const:cn
+                            { c_@@_uppercase_ \token_to_str:N #1 _tl }
+                            { #2 }
+                        }
+                      \cs_if_exist:cF
                         { c_@@_lowercase_ \token_to_str:N #2 _tl }
-                        { #1 }
+                        {
+                          \tl_const:cn
+                            { c_@@_lowercase_ \token_to_str:N #2 _tl }
+                            { #1 }
+                        }
                     }
+                  \@@_change_case_setup:Nn
                 }
-              \@@_change_case_setup:Nn
-            }
-          \exp_after:wN \@@_change_case_setup:Nn \@uclclist
-          \q_recursion_tail ?
-          \q_recursion_stop
-        \group_end:
+              \exp_after:wN \@@_change_case_setup:Nn \@uclclist
+              \q_recursion_tail ?
+              \q_recursion_stop
+            \group_end:
+          }
       }
   }
 %    \end{macrocode}
-- 
cgit v1.2.3

