[latex3-commits] [git/LaTeX3-latex3-latex3] l3text: Fix titlecase-first looping (e2fe07eb1)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : l3text
Link       : https://github.com/latex3/latex3/commit/e2fe07eb1acb56100ff5368023ee3ff5f9bb06b9

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

commit e2fe07eb1acb56100ff5368023ee3ff5f9bb06b9
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Fri Dec 6 12:46:13 2019 +0000

    Fix titlecase-first looping


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

e2fe07eb1acb56100ff5368023ee3ff5f9bb06b9
 l3kernel/l3text.dtx | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/l3kernel/l3text.dtx b/l3kernel/l3text.dtx
index 7b88483ca..ba6cbd586 100644
--- a/l3kernel/l3text.dtx
+++ b/l3kernel/l3text.dtx
@@ -917,7 +917,8 @@
 % \begin{macro}[rEXP]{\@@_change_case_lower_sigma:nnnN}
 % \begin{macro}[rEXP]{\@@_change_case_lower_sigma:nnNw}
 % \begin{macro}[rEXP]{\@@_change_case_lower_sigma:NnnN}
-% \begin{macro}[rEXP]{\@@_change_case_char_title:nnN}
+% \begin{macro}[rEXP]
+%   {\@@_change_case_char_title:nnN, \@@_change_case_char_titleonly:nnN}
 % \begin{macro}[rEXP]
 %   {\@@_change_case_char_title:nN, \@@_change_case_char_titleonly:nN}
 % \begin{macro}[rEXP]{\@@_change_case_char_title:nnnN}
@@ -1245,6 +1246,8 @@
       { \exp_not:N \@@_change_case_char_title:nnnN { title } {#1} }
         {#2} #3
   }
+\cs_new_eq:NN \@@_change_case_char_titleonly:nnN
+  \@@_change_case_char_title:nnN
 \cs_new:Npn \@@_change_case_char_title:nN #1#2
   { \@@_change_case_char_title:nnnN { title } { lower } {#1} #2 }
 \cs_new:Npn \@@_change_case_char_titleonly:nN #1#2