From 2c637e7cf7e665b209867a6c04ab853858bf7bd6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 2 Jul 2022 20:09:14 +0000 Subject: latex (2jul22) git-svn-id: svn://tug.org/texlive/trunk@63792 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/base/latex.ltx | 27 ++++++++------------------- 1 file changed, 8 insertions(+), 19 deletions(-) (limited to 'Master/texmf-dist/tex/latex') diff --git a/Master/texmf-dist/tex/latex/base/latex.ltx b/Master/texmf-dist/tex/latex/base/latex.ltx index c75c27fbd25..1baefa263a8 100644 --- a/Master/texmf-dist/tex/latex/base/latex.ltx +++ b/Master/texmf-dist/tex/latex/base/latex.ltx @@ -706,7 +706,7 @@ \def\fmtname{LaTeX2e} \edef\fmtversion {2022-06-01} -\def\patch@level{3} +\def\patch@level{4} \edef\development@branch@name{} \iffalse \def\reserved@a#1/#2/#3\@nil{% @@ -17129,28 +17129,17 @@ Type H for immediate help.}% \lccode`\^^[=`\^^[ % oe in OT1 \fi % End of reset block for 8-bit engines \ExplSyntaxOn -\protected\def\@expl@text@lowercase@@n{\text_lowercase:n} -\protected\def\@expl@text@uppercase@@n{\text_uppercase:n} -\tl_put_right:Nn \l_text_case_exclude_arg_tl { \NoCaseChange } +\cs_new_protected_nopar:cpn{MakeUppercase~}{\text_uppercase:n} +\cs_set_nopar:Npx\MakeUppercase#1{\use:c{MakeUppercase~}{#1}} +\cs_new_protected_nopar:cpn{MakeLowercase~}{\text_lowercase:n} +\cs_set_nopar:Npx\MakeLowercase#1{\use:c{MakeLowercase~}{#1}} +\cs_new_protected_nopar:Npn\AddToNoCaseChangeList + {\tl_put_right:Nn \l_text_case_exclude_arg_tl} +\AddToNoCaseChangeList{ \NoCaseChange } \cs_new_protected:Npn \NoCaseChange #1 {#1} \ExplSyntaxOff -\DeclareRobustCommand{\MakeUppercase}[1]{{% - \def\i{I}\def\j{J}% - \def\reserved@a##1##2{\let##1##2\reserved@a}% - \expandafter\reserved@a\@uclclist\reserved@b{\reserved@b\@gobble}% - \protected@edef\reserved@a{\@expl@text@uppercase@@n{\noexpand\unexpanded{#1}}}% - \reserved@a - }} -\DeclareRobustCommand{\MakeLowercase}[1]{{% - \def\reserved@a##1##2{\let##2##1\reserved@a}% - \expandafter\reserved@a\@uclclist\reserved@b{\reserved@b\@gobble}% - \protected@edef\reserved@a{\@expl@text@lowercase@@n{\noexpand\unexpanded{#1}}}% - \reserved@a - }} \def\@uclclist{\oe\OE\o\O\ae\AE \dh\DH\dj\DJ\l\L\ng\NG\ss\SS\ij\IJ\th\TH} -\protected@edef\MakeUppercase#1{\MakeUppercase{#1}} -\protected@edef\MakeLowercase#1{\MakeLowercase{#1}} \let\reserved@a\@filelist \let\reserved@b=\@undefined \let\reserved@c=\@undefined -- cgit v1.2.3