[latex3-commits] [latex3/latex2e] develop: Fix implementation of \DeclareLowercaseMapping (06733240)

[github at latex-project.org]

Repository : https://github.com/latex3/latex2e
On branch  : develop
Link       : https://github.com/latex3/latex2e/commit/06733240f2a6eed725752345735501682bc4a6f0

>---------------------------------------------------------------

commit 06733240f2a6eed725752345735501682bc4a6f0
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue May 30 11:10:21 2023 +0100

    Fix implementation of \DeclareLowercaseMapping


>---------------------------------------------------------------

06733240f2a6eed725752345735501682bc4a6f0
 base/changes.txt               |  5 +++++
 base/ltfinal.dtx               | 10 ++++++----
 base/testfiles/github-1033.lvt | 11 +++++++++++
 base/testfiles/github-1033.tlg | 40 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 62 insertions(+), 4 deletions(-)

diff --git a/base/changes.txt b/base/changes.txt
index db9c0e3e..7ee5ab24 100644
--- a/base/changes.txt
+++ b/base/changes.txt
@@ -6,6 +6,11 @@ completeness or accuracy and it contains some references to files that
 are not part of the distribution.
 ================================================================================
 
+2023-05-30  Joseph Wright  <Joseph.Wright at latex-project.org>
+
+	* ltfinal.dtx
+	Fix implementation of \DeclareLowercaseMapping
+
 2023-05-26  Yukai Chou <muzimuzhi at gmail.com>
 
     * ltcmd.dtx (subsection{Structure of \pkg{xparse} commands}):
diff --git a/base/ltfinal.dtx b/base/ltfinal.dtx
index 1e39e293..2652f6ce 100644
--- a/base/ltfinal.dtx
+++ b/base/ltfinal.dtx
@@ -33,7 +33,7 @@
 %<*driver>
 % \fi
 \ProvidesFile{ltfinal.dtx}
-             [2023/04/20 v2.3b LaTeX Kernel (Final Settings)]
+             [2023/05/30 v2.3c LaTeX Kernel (Final Settings)]
 % \iffalse
 \documentclass{ltxdoc}
 \GetFileInfo{ltfinal.dtx}
@@ -1201,6 +1201,8 @@
 % \changes{v2.2u}{2022/06/30}{Add \cs{AddToNoCaseChangeList}}
 % \changes{v2.3b}{2023/04/19}{Add \cs{DeclareLowercaseMapping},
 %   \cs{DeclareTitlecaseMapping} and \cs{DeclareUppercaseMapping}}
+% \changes{v2.3c}{2023/05/30}{Fix a typo in implementation of
+%   \cs{DeclareLowercaseMapping}, etc.}
 % |\NoCaseChange| protects its argument from the case change functions.
 %
 % |\AddToNoCaseChangeList| Allows new commands to protect their arguments, eg
@@ -1216,21 +1218,21 @@
   \text_declare_case_equivalent:Nn
 \NewDocumentCommand \DeclareLowercaseMapping { o m m }
   {
-    \IFNoValueTF {#1}
+    \IfNoValueTF {#1}
       { \text_declare_lowercase_mapping:nn }
       { \text_declare_lowercase_mapping:nnn {#1} }
         {#2} {#3}
   }
 \NewDocumentCommand \DeclareTitlecaseMapping { o m m }
   {
-    \IFNoValueTF {#1}
+    \IfNoValueTF {#1}
       { \text_declare_titlecase_mapping:nn }
       { \text_declare_titlecase_mapping:nnn {#1} }
         {#2} {#3}
   }
 \NewDocumentCommand \DeclareUppercaseMapping { o m m }
   {
-    \IFNoValueTF {#1}
+    \IfNoValueTF {#1}
       { \text_declare_uppercase_mapping:nn }
       { \text_declare_uppercase_mapping:nnn {#1} }
         {#2} {#3}
diff --git a/base/testfiles/github-1033.lvt b/base/testfiles/github-1033.lvt
new file mode 100644
index 00000000..aa42de72
--- /dev/null
+++ b/base/testfiles/github-1033.lvt
@@ -0,0 +1,11 @@
+\input{test2e}
+\START
+\DeclareUppercaseMapping{"01F0}{\v J}
+\DeclareUppercaseMapping[xx]{"01F0}{\v I}
+\OMIT
+\documentclass{article}
+\begin{document}
+\TIMO
+\showoutput
+\MakeUppercase{ǰ}\MakeUppercase[locale = xx]{ǰ}
+\end{document}
diff --git a/base/testfiles/github-1033.tlg b/base/testfiles/github-1033.tlg
new file mode 100644
index 00000000..0439ad55
--- /dev/null
+++ b/base/testfiles/github-1033.tlg
@@ -0,0 +1,40 @@
+This is a generated file for the LaTeX2e validation system.
+Don't change this file in any respect.
+Completed box being shipped out [1]
+\vbox(633.0+0.0)x407.0
+.\glue 16.0
+.\vbox(617.0+0.0)x345.0, shifted 62.0
+..\vbox(12.0+0.0)x345.0, glue set 12.0fil
+...\glue 0.0 plus 1.0fil
+...\hbox(0.0+0.0)x345.0
+....\hbox(0.0+0.0)x345.0
+..\glue 25.0
+..\glue(\lineskip) 0.0
+..\vbox(550.0+0.0)x345.0, glue set 539.94232fil
+...\write-{}
+...\glue(\topskip) 1.1875
+...\hbox(8.8125+0.0)x345.0, glue set 321.24998fil
+....\hbox(0.0+0.0)x15.0
+....\kern 0.06944 (for accent)
+....\hbox(6.28473+0.0)x5.00002, shifted -2.52777
+.....\OT1/cmr/m/n/10 ^^T
+....\kern -5.06946 (for accent)
+....\OT1/cmr/m/n/10 J
+....\kern -0.69446 (for accent)
+....\hbox(6.28473+0.0)x5.00002, shifted -2.52777
+.....\OT1/cmr/m/n/10 ^^T
+....\kern -4.30556 (for accent)
+....\OT1/cmr/m/n/10 I
+....\penalty 10000
+....\glue(\parfillskip) 0.0 plus 1.0fil
+....\glue(\rightskip) 0.0
+...\glue 0.0 plus 1.0fil
+...\glue 0.0
+...\glue 0.0 plus 0.0001fil
+..\glue(\baselineskip) 23.55556
+..\hbox(6.44444+0.0)x345.0
+...\hbox(6.44444+0.0)x345.0, glue set 170.0fil
+....\glue 0.0 plus 1.0fil
+....\OT1/cmr/m/n/10 1
+....\glue 0.0 plus 1.0fil
+(github-1033.aux)