diff options
author | Norbert Preining <norbert@preining.info> | 2022-02-22 03:00:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-02-22 03:00:54 +0000 |
commit | fb013a78d9e3aef2ecf58702d4adcec8d9ab6b28 (patch) | |
tree | d4402a058adb8131b94ec026d7be01cca51d8862 /macros/latex/contrib/l3kernel/l3text-case.dtx | |
parent | a9409c96664c73e4fd0586f358845df19b1afd62 (diff) |
CTAN sync 202202220300
Diffstat (limited to 'macros/latex/contrib/l3kernel/l3text-case.dtx')
-rw-r--r-- | macros/latex/contrib/l3kernel/l3text-case.dtx | 51 |
1 files changed, 27 insertions, 24 deletions
diff --git a/macros/latex/contrib/l3kernel/l3text-case.dtx b/macros/latex/contrib/l3kernel/l3text-case.dtx index d93fad4624..b6c263c22d 100644 --- a/macros/latex/contrib/l3kernel/l3text-case.dtx +++ b/macros/latex/contrib/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} |