From 54079d2aaddf39563a50a6d397e67e7129a1dacc Mon Sep 17 00:00:00 2001 From: Karl Berry 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