summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-05-07 21:25:38 +0000
committerKarl Berry <karl@freefriends.org>2020-05-07 21:25:38 +0000
commit1a52ee4251e2b2e1f1669a14319a600e0c5f24c9 (patch)
treeedb2542521503451c1112f49cd19dd9ee7e666ac /Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx
parent713c3f96e876bca9b0516ae3d5fd5bd35f24d074 (diff)
l3 (7may20)
git-svn-id: svn://tug.org/texlive/trunk@55057 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.dtx25
1 files changed, 13 insertions, 12 deletions
diff --git a/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx b/Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx
index cb898633a73..950635ec939 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-04-06}
+% \date{Released 2020-05-05}
%
% \maketitle
%
@@ -160,7 +160,7 @@
% \begin{macro}[EXP]
% {\@@_change_case_char_title:nN, \@@_change_case_char_titleonly:nN}
% \begin{macro}[EXP]{\@@_change_case_char_title:nnnN}
-% \begin{macro}[EXP]{\@@_change_case_char_char:nnnN}
+% \begin{macro}[EXP]{\@@_change_case_char:nnnN, \@@_change_case_char_aux:nnnN}
% \begin{macro}[EXP]{\@@_change_case_char_UTFviii:nnnNN}
% \begin{macro}[EXP]{\@@_change_case_char_UTFviii:nnnNNN}
% \begin{macro}[EXP]{\@@_change_case_char_UTFviii:nnnNNNNN}
@@ -568,19 +568,23 @@
% Unicode character, which is then used in a lookup. (As will become
% obvious below, there is no intention here of covering all of Unicode.)
% \begin{macrocode}
-\bool_lazy_or:nnTF
- { \sys_if_engine_luatex_p: }
- { \sys_if_engine_xetex_p: }
+\cs_new:Npn \@@_change_case_char:nnnN #1#2#3#4
{
- \cs_new:Npn \@@_change_case_char:nnnN #1#2#3#4
+ \token_if_active:NTF #4
+ { \@@_change_case_store:n {#4} }
{
\@@_change_case_store:e
{ \use:c { char_ #1 case :N } #4 }
- \use:c { @@_change_case_char_next_ #2 :nn } {#2} {#3}
}
+ \use:c { @@_change_case_char_next_ #2 :nn } {#2} {#3}
}
+\bool_lazy_or:nnF
+ { \sys_if_engine_luatex_p: }
+ { \sys_if_engine_xetex_p: }
{
- \cs_new:Npn \@@_change_case_char:nnnN #1#2#3#4
+ \cs_new_eq:NN \@@_change_case_char_aux:nnnN
+ \@@_change_case_char:nnnN
+ \cs_gset:Npn \@@_change_case_char:nnnN #1#2#3#4
{
\int_compare:nNnTF { `#4 } > { "80 }
{
@@ -593,10 +597,7 @@
}
{#1} {#2} {#3} #4
}
- {
- \@@_change_case_store:e{ \use:c { char_ #1 case :N } #4 }
- \use:c { @@_change_case_char_next_ #2 :nn } {#2} {#3}
- }
+ { \@@_change_case_char_aux:nnnN {#1} {#2} {#3} #4 }
}
\cs_new:Npn \@@_change_case_char_UTFviii:nnnNN #1#2#3#4#5
{ \@@_change_case_char_UTFviii:nnnn {#1} {#2} {#3} {#4#5} }