[latex3-commits] [git/LaTeX3-latex3-latex3] master: Extend Greek eta-acute support to first word (fda79f30f)

[Joseph Wright]

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

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

commit fda79f30fdcc6d8ee29ffa98f5b3e0c2960d99e7
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Thu Oct 22 19:50:00 2020 +0100

    Extend Greek eta-acute support to first word


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

fda79f30fdcc6d8ee29ffa98f5b3e0c2960d99e7
 l3kernel/l3text-case.dtx | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/l3kernel/l3text-case.dtx b/l3kernel/l3text-case.dtx
index c7f84f05c..2a172adda 100644
--- a/l3kernel/l3text-case.dtx
+++ b/l3kernel/l3text-case.dtx
@@ -209,6 +209,7 @@
 \cs_new:Npn \@@_change_case_aux:nnn #1#2#3
   {
     \group_align_safe_begin:
+    \cs_if_exist_use:c { @@_change_case_boundary_ #2 _ #3 :Nnnw }
     \@@_change_case_loop:nnw {#2} {#3} #1
       \q_@@_recursion_tail \q_@@_recursion_stop
     \@@_change_case_result:n { }
@@ -299,7 +300,7 @@
   }
   {
     \@@_change_case_store:n { ~ }
-    \cs_if_exist_use:c { @@_change_case_space_ #1 _ #2 :Nnnw }
+    \cs_if_exist_use:c { @@_change_case_boundary_ #1 _ #2 :Nnnw }
     \@@_change_case_loop:nnw {#1} {#2}
   }
 %    \end{macrocode}
@@ -1027,10 +1028,10 @@
 % \end{macro}
 % \end{macro}
 % \end{macro}
-% \begin{macro}[EXP]{\@@_change_case_space_upper_el:Nnnw}
-% \begin{macro}[EXP]{\@@_change_case_space_upper_el:nnN}
-% \begin{macro}[EXP]{\@@_change_case_space_upper_el:nnNw}
-% \begin{macro}[EXP]{\@@_change_case_space_upper_el:NnnN}
+% \begin{macro}[EXP]{\@@_change_case_boundary_upper_el:Nnnw}
+% \begin{macro}[EXP]{\@@_change_case_boundary_upper_el:nnN}
+% \begin{macro}[EXP]{\@@_change_case_boundary_upper_el:nnNw}
+% \begin{macro}[EXP]{\@@_change_case_boundary_upper_el:NnnN}
 %   There is one special case in Greek that needs to be picked up based on
 %   being an isolated letter. We do that using a test similar to final sigma,
 %   but it has to fire off from the space grabber.
@@ -1039,15 +1040,15 @@
   { \sys_if_engine_luatex_p: }
   { \sys_if_engine_xetex_p: }
   {
-    \cs_new:Npn \@@_change_case_space_upper_el:Nnnw
+    \cs_new:Npn \@@_change_case_boundary_upper_el:Nnnw
       #1#2#3#4 \q_@@_recursion_stop
       {
         \tl_if_head_is_N_type:nTF {#4}
-          { \@@_change_case_space_upper_el:nnN }
+          { \@@_change_case_boundary_upper_el:nnN }
           { \@@_change_case_loop:nnw }
             {#2} {#3} #4 \q_@@_recursion_stop
       }
-    \cs_new:Npn \@@_change_case_space_upper_el:nnN #1#2#3
+    \cs_new:Npn \@@_change_case_boundary_upper_el:nnN #1#2#3
       {
         \bool_lazy_or:nnTF
           { \token_if_cs_p:N #3 }
@@ -1057,14 +1058,14 @@
               { \int_compare_p:nNn { `#3 } = { "1F22 } }
           }
           { \@@_change_case_loop:nnw }
-          { \@@_change_case_space_upper_el:nnNw }
+          { \@@_change_case_boundary_upper_el:nnNw }
             {#1} {#2} #3
       }
-    \cs_new:Npn \@@_change_case_space_upper_el:nnNw
+    \cs_new:Npn \@@_change_case_boundary_upper_el:nnNw
       #1#2#3#4 \q_@@_recursion_stop
        {
         \tl_if_head_is_N_type:nTF {#4}
-          { \@@_change_case_space_upper_el:NnnN #3 }
+          { \@@_change_case_boundary_upper_el:NnnN #3 }
           {
             \@@_change_case_store:e
               { \char_generate:nn { "0389 } { \@@_char_catcode:N #3 } }
@@ -1072,7 +1073,7 @@
           }
             {#1} {#2} #4 \q_@@_recursion_stop
       }
-    \cs_new:Npn \@@_change_case_space_upper_el:NnnN #1#2#3#4
+    \cs_new:Npn \@@_change_case_boundary_upper_el:NnnN #1#2#3#4
       {
         \token_if_letter:NTF #4
           { \@@_change_case_loop:nnw {#2} {#3} #1#4 }