diff options
author | Karl Berry <karl@freefriends.org> | 2020-05-07 21:25:38 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2020-05-07 21:25:38 +0000 |
commit | 1a52ee4251e2b2e1f1669a14319a600e0c5f24c9 (patch) | |
tree | edb2542521503451c1112f49cd19dd9ee7e666ac /Master/texmf-dist/source/latex/l3kernel/l3text-case.dtx | |
parent | 713c3f96e876bca9b0516ae3d5fd5bd35f24d074 (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.dtx | 25 |
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} } |