[latex3-commits] [git/LaTeX3-latex3-latex3] main: Better support for \cite in case changing (ba1ddd3a1)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/ba1ddd3a1b100e9a3c310be795394a84c4288858

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

commit ba1ddd3a1b100e9a3c310be795394a84c4288858
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Wed Feb 23 23:21:25 2022 +0000

    Better support for \cite in case changing
    
    Grab everything up to the first braced argument.


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

ba1ddd3a1b100e9a3c310be795394a84c4288858
 l3kernel/CHANGELOG.md    |  3 +++
 l3kernel/l3text-case.dtx | 12 ++++++++----
 l3kernel/l3text.dtx      | 12 ++++++++----
 3 files changed, 19 insertions(+), 8 deletions(-)

diff --git a/l3kernel/CHANGELOG.md b/l3kernel/CHANGELOG.md
index 2597f8ecc..e42e54c12 100644
--- a/l3kernel/CHANGELOG.md
+++ b/l3kernel/CHANGELOG.md
@@ -7,6 +7,9 @@ this project uses date-based 'snapshot' version identifiers.
 
 ## [Unreleased]
 
+### Changed
+- Better support for `\cite`, _etc._, in case changing
+
 ## [2022-02-21]
 
 ### Fixed
diff --git a/l3kernel/l3text-case.dtx b/l3kernel/l3text-case.dtx
index 6c3f146f1..cc48b8098 100644
--- a/l3kernel/l3text-case.dtx
+++ b/l3kernel/l3text-case.dtx
@@ -141,7 +141,8 @@
 % \begin{macro}[EXP]{\@@_change_case_exclude:nnN}
 % \begin{macro}[EXP]{\@@_change_case_exclude:nnnN}
 % \begin{macro}[EXP]{\@@_change_case_exclude:nnNN}
-% \begin{macro}[EXP]{\@@_change_case_exclude:nnNn}
+% \begin{macro}[EXP]{\@@_change_case_exclude:nnNw}
+% \begin{macro}[EXP]{\@@_change_case_exclude:nnNnn}
 % \begin{macro}[EXP]
 %   {
 %     \@@_change_case_letterlike_lower:nnN ,
@@ -421,13 +422,15 @@
     \str_if_eq:nnTF {#3} {#4}
       {
         \@@_use_i_delimit_by_q_recursion_stop:nw
-          { \@@_change_case_exclude:nnNn {#1} {#2} #3 }
+          { \@@_change_case_exclude:nnNw {#1} {#2} #3 }
       }
       { \@@_change_case_exclude:nnNN {#1} {#2} #3 }
   }
-\cs_new:Npn \@@_change_case_exclude:nnNn #1#2#3#4
+\cs_new:Npn \@@_change_case_exclude:nnNw #1#2#3#4#
+  { \@@_change_case_exclude:nnNnn {#1} {#2} {#3} {#4} }
+\cs_new:Npn \@@_change_case_exclude:nnNnn #1#2#3#4#5
   {
-    \@@_change_case_store:n { #3 {#4} }
+    \@@_change_case_store:n { #3#4 {#5} }
     \@@_change_case_loop:nnw {#1} {#2}
   }
 %    \end{macrocode}
@@ -727,6 +730,7 @@
 % \end{macro}
 % \end{macro}
 % \end{macro}
+% \end{macro}
 %
 % \begin{macro}[EXP]{\@@_change_case_upper_de-alt:nnnN}
 % \begin{macro}[EXP]{\@@_change_case_upper_de-alt:nnnNN}
diff --git a/l3kernel/l3text.dtx b/l3kernel/l3text.dtx
index c230ab9f2..c6e9a8a32 100644
--- a/l3kernel/l3text.dtx
+++ b/l3kernel/l3text.dtx
@@ -624,7 +624,8 @@
 %   }
 % \begin{macro}[EXP]{\@@_expand_exclude:nN}
 % \begin{macro}[EXP]{\@@_expand_exclude:NN}
-% \begin{macro}[EXP]{\@@_expand_exclude:Nn}
+% \begin{macro}[EXP]{\@@_expand_exclude:Nw}
+% \begin{macro}[EXP]{\@@_expand_exclude:Nnn}
 % \begin{macro}[EXP]{\@@_expand_accent:N}
 % \begin{macro}[EXP]{\@@_expand_accent:NN}
 % \begin{macro}[EXP]{\@@_expand_letterlike:N}
@@ -883,13 +884,15 @@
     \str_if_eq:nnTF {#1} {#2}
       {
         \@@_use_i_delimit_by_q_recursion_stop:nw
-          { \@@_expand_exclude:Nn #1 }
+          { \@@_expand_exclude:Nw #1 }
       }
       { \@@_expand_exclude:NN #1 }
   }
-\cs_new:Npn \@@_expand_exclude:Nn #1#2
+\cs_new:Npn \@@_expand_exclude:Nw #1#2#
+  { \@@_expand_exclude:Nnn #1 {#2} }
+\cs_new:Npn \@@_expand_exclude:Nnn #1#2#3
   {
-    \@@_expand_store:n { #1 {#2} }
+    \@@_expand_store:n { #1#2 {#3} }
     \@@_expand_loop:w
   }
 %    \end{macrocode}
@@ -1116,6 +1119,7 @@
 % \end{macro}
 % \end{macro}
 % \end{macro}
+% \end{macro}
 %
 % \begin{macro}
 %   {