diff options
author | Karl Berry <karl@freefriends.org> | 2020-02-11 22:10:31 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2020-02-11 22:10:31 +0000 |
commit | e3b4a159cf41e3aa51b8a48e50ec38fc7f6d51b6 (patch) | |
tree | b17591d4fde382db56bcf7931e5721a4e8a84431 /Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx | |
parent | 5e49fa64bd451d499e66784df6f9a437f8b3ab71 (diff) |
l3kernel (11feb20)
git-svn-id: svn://tug.org/texlive/trunk@53758 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx')
-rw-r--r-- | Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx b/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx index e48d969759b..4b39343bd42 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 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} |