diff options
author | Karl Berry <karl@freefriends.org> | 2023-07-28 20:41:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-07-28 20:41:25 +0000 |
commit | 3dd11c0f4a97ccb457f7d565853ee57bd5aa4a09 (patch) | |
tree | b3334ce2f83f65bb3252ea272c7c88b8ee18a9bf /Master/texmf-dist/tex/latex/textcase | |
parent | ae73800f98e64bf691666d9ad67c91ff2554da58 (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.sty | 31 |
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 |