summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/l3kernel/l3text-case.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/l3kernel/l3text-case.dtx')
-rw-r--r--macros/latex/contrib/l3kernel/l3text-case.dtx34
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}