[latex3-commits] [git/LaTeX3-latex3-latex3] master: Fix issue wth Turkish case-changing (see #675) (3de4c5f78)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : master
Link       : https://github.com/latex3/latex3/commit/3de4c5f78ba98314e1c5634f03763425689e9b98

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

commit 3de4c5f78ba98314e1c5634f03763425689e9b98
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue Mar 3 22:03:48 2020 +0000

    Fix issue wth Turkish case-changing (see #675)


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

3de4c5f78ba98314e1c5634f03763425689e9b98
 l3kernel/CHANGELOG.md    |  3 +++
 l3kernel/l3text-case.dtx | 18 +++++++++---------
 2 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/l3kernel/CHANGELOG.md b/l3kernel/CHANGELOG.md
index 75151331d..47121525f 100644
--- a/l3kernel/CHANGELOG.md
+++ b/l3kernel/CHANGELOG.md
@@ -7,6 +7,9 @@ this project uses date-based 'snapshot' version identifiers.
 
 ## [Unreleased]
 
+### Fixed
+- Issue with case-changing Turkish
+
 ## [2020-03-03]
 
 ### Added
diff --git a/l3kernel/l3text-case.dtx b/l3kernel/l3text-case.dtx
index 0a516e56f..c176ea8f4 100644
--- a/l3kernel/l3text-case.dtx
+++ b/l3kernel/l3text-case.dtx
@@ -1040,7 +1040,7 @@
 %
 % \begin{macro}[EXP]{\@@_change_case_lower_tr:nnnN}
 % \begin{macro}[EXP]{\@@_change_case_lower_tr:nnNw}
-% \begin{macro}[EXP]{\@@_change_case_lower_tr:nnN}
+% \begin{macro}[EXP]{\@@_change_case_lower_tr:NnnN}
 % \begin{macro}[EXP]{\@@_change_case_lower_tr:nnnNN}
 %   The Turkic languages need special treatment for dotted-i and dotless-i.
 %   The lower casing rule can be expressed in terms of searching first for
@@ -1074,7 +1074,7 @@
     \cs_new:Npn \@@_change_case_lower_tr:nnNw #1#2#3#4 \q_recursion_stop
       {
         \tl_if_head_is_N_type:nTF {#4}
-          { \@@_change_case_lower_tr:nnN }
+          { \@@_change_case_lower_tr:NnnN #3 }
           {
             \@@_change_case_store:e
               { \char_generate:nn { "0131 } { \@@_char_catcode:N #3 } }
@@ -1082,20 +1082,20 @@
           }
             {#1} {#2} #4 \q_recursion_stop
       }
-    \cs_new:Npn \@@_change_case_lower_tr:nnN #1#2#3
+    \cs_new:Npn \@@_change_case_lower_tr:NnnN #1#2#3#4
       {
         \bool_lazy_or:nnTF
-          { \token_if_cs_p:N #3 }
-          { ! \int_compare_p:nNn { `#3 } = { "0307 } }
+          { \token_if_cs_p:N #4 }
+          { ! \int_compare_p:nNn { `#4 } = { "0307 } }
           {
             \@@_change_case_store:e 
-              { \char_generate:nn { "0131 } { \@@_char_catcode:N #3 } }
-            \@@_change_case_loop:nnw {#1} {#2} #3
+              { \char_generate:nn { "0131 } { \@@_char_catcode:N #1 } }
+            \@@_change_case_loop:nnw {#2} {#3} #4
           }
           {
             \@@_change_case_store:e
-              { \char_generate:nn { "0069 } { \@@_char_catcode:N #3 } }
-            \@@_change_case_loop:nnw {#1} {#2}
+              { \char_generate:nn { "0069 } { \@@_char_catcode:N #1 } }
+            \@@_change_case_loop:nnw {#2} {#3}
           }
       }
   }