diff options
Diffstat (limited to 'macros/latex/contrib/l3kernel/l3text-case.dtx')
-rw-r--r-- | macros/latex/contrib/l3kernel/l3text-case.dtx | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/macros/latex/contrib/l3kernel/l3text-case.dtx b/macros/latex/contrib/l3kernel/l3text-case.dtx index e48d969759..4b39343bd4 100644 --- a/macros/latex/contrib/l3kernel/l3text-case.dtx +++ b/macros/latex/contrib/l3kernel/l3text-case.dtx @@ -43,7 +43,7 @@ % }^^A % } % -% \date{Released 2020-02-08} +% \date{Released 2020-02-11} % % \maketitle % @@ -1412,6 +1412,38 @@ \group_end: % \end{macrocode} % +% To deal with possible encoding-specific extensions to \tn{@uclclist}, +% we check at the end of the preamble. This will therefore only apply +% to \LaTeXe{} package mode. +% \begin{macrocode} +\cs_if_exist:cT { @uclclist } + { + \AtBeginDocument + { + \group_begin: + \cs_set_protected:Npn \@@_change_case_setup:NN #1#2 + { + \quark_if_recursion_tail_stop:N #1 + \cs_if_exist:cF { c_@@_uppercase_ \token_to_str:N #1 _tl } + { + \tl_const:cn { c_@@_uppercase_ \token_to_str:N #1 _tl } + { #2 } + } + \cs_if_exist:cF { c_@@_lowercase_ \token_to_str:N #2 _tl } + { + \tl_const:cn { c_@@_lowercase_ \token_to_str:N #2 _tl } + { #1 } + } + \@@_change_case_setup:NN + } + \exp_after:wN \@@_change_case_setup:NN \@uclclist + \q_recursion_tail ? + \q_recursion_stop + \group_end: + } + } +% \end{macrocode} +% % \begin{macrocode} %</initex|package> % \end{macrocode} |