summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/textcase
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-07-28 20:41:25 +0000
committerKarl Berry <karl@freefriends.org>2023-07-28 20:41:25 +0000
commit3dd11c0f4a97ccb457f7d565853ee57bd5aa4a09 (patch)
treeb3334ce2f83f65bb3252ea272c7c88b8ee18a9bf /Master/texmf-dist/tex/latex/textcase
parentae73800f98e64bf691666d9ad67c91ff2554da58 (diff)
textcase (28jul23)
git-svn-id: svn://tug.org/texlive/trunk@67755 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/textcase')
-rw-r--r--Master/texmf-dist/tex/latex/textcase/textcase.sty31
1 files changed, 27 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/latex/textcase/textcase.sty b/Master/texmf-dist/tex/latex/textcase/textcase.sty
index feb0cc04f9b..be087efa2a3 100644
--- a/Master/texmf-dist/tex/latex/textcase/textcase.sty
+++ b/Master/texmf-dist/tex/latex/textcase/textcase.sty
@@ -7,19 +7,42 @@
%% textcase.dtx (with options: `package')
%%
%% Source File: textcase.dtx
-%% Copyright 1997 1998 2019 2022 David Carlisle
+%% Copyright 1997 1998 2019 2022 2023 David Carlisle
%%
%% This file may be distributed under the terms of the LPPL.
%% See 00readme.txt for details.
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{textcase}
- [2022/07/10 v1.03 Text only upper/lower case changing (DPC)]
+ [2023/07/27 v1.04 Text only upper/lower case changing (DPC)]
\ifx\AddToNoCaseChangeList\@undefined\else
\DeclareOption{overload}{}
\ProcessOptions
\PackageInfo{textcase}{Defining Legacy names}
- \let\MakeTextUppercase\MakeUppercase
- \let\MakeTextLowercase\MakeLowercase
+\ExplSyntaxOn
+\cs_set_protected:Npn \reserved@a #1
+ {
+ \cs_generate_variant:cn { text_ \str_lowercase:n {#1} case:nn } { V }
+ \ExpandArgs { cnx } \NewExpandableDocumentCommand
+ { MakeText#1case }
+ { O{} +m }
+ { \exp_not:c { MakeText#1case \c_space_tl \c_space_tl \c_space_tl }
+ [####1] {####2} }
+ }
+\reserved@a { Upper }
+\reserved@a { Lower }
+\cs_new_protected:cpn {
+ MakeTextLowercase \c_space_tl \c_space_tl \c_space_tl } [#1] #2
+ {%{
+ \let \OE \oe
+ \@@text@case@aux { lower } {#1} {#2}
+ }%}
+\cs_new_protected:cpn {
+ MakeTextUppercase \c_space_tl \c_space_tl \c_space_tl } [#1] #2
+ {%{
+ \let \oe \OE
+ \@@text@case@aux { upper } {#1} {#2}
+ }%}
+\ExplSyntaxOff
\expandafter\endinput
\fi
\def\@uclcnotmath#1#2#3#4{\begingroup