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

latex3 · Mar 3, 2020 · 3de4c5f · 3de4c5f
1 parent 940f548
commit 3de4c5f
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 9 deletions.
diff --git 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
@@ -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,28 +1074,28 @@
     \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 } }
             \@@_change_case_loop:nnw
           }
             {#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}
           }
       }
   }