[latex3-commits] [latex3/latex3] main: Generalise an internal fn (865052d77)

[github at latex-project.org]

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

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

commit 865052d7713a867688c71bfa2beecca47988cda4
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Mon Jun 12 22:59:20 2023 +0100

    Generalise an internal fn


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

865052d7713a867688c71bfa2beecca47988cda4
 l3kernel/l3text-case.dtx | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/l3kernel/l3text-case.dtx b/l3kernel/l3text-case.dtx
index 85da3f19d..9f4cbf92b 100644
--- a/l3kernel/l3text-case.dtx
+++ b/l3kernel/l3text-case.dtx
@@ -935,6 +935,14 @@
 % \end{macro}
 % \end{macro}
 %
+% \begin{macro}[EXP]{\@@_change_case_generate:n}
+%   A utility.
+%    \begin{macrocode}
+\cs_new:Npn \@@_change_case_generate:n #1
+  { \codepoint_generate:nn {#1} { \char_value_catcode:n {#1} } }
+%    \end{macrocode}
+% \end{macro}
+%
 % \begin{macro}[EXP]
 %   {\@@_change_case_upper_de-x-eszett:nnnn, \@@_change_case_upper_de-alt:nnnn}
 %   A simple alternative version for German.
@@ -979,8 +987,7 @@
 % \begin{macro}[EXP]
 %   {
 %     \@@_change_case_upper_el_ypogegrammeni:n        ,
-%     \@@_change_case_upper_el-x-iota_ypogegrammeni:n ,
-%     \@@_change_case_upper_el_ypogegrammeni_aux:n
+%     \@@_change_case_upper_el-x-iota_ypogegrammeni:n
 %   }
 % \begin{macro}[EXP]{\@@_change_case_upper_el_gobble:nnw}
 % \begin{macro}[EXP]{\@@_change_case_upper_el_gobble:nnN}
@@ -1247,7 +1254,7 @@
 %    \begin{macrocode}
 \cs_new:Npn \@@_change_case_upper_el_ypogegrammeni:n #1
   {
-    \exp_args:Ne \@@_change_case_upper_el_ypogegrammeni_aux:n
+    \exp_args:Ne \@@_change_case_generate:n
       {
         \int_case:nn
           { \@@_codepoint_from_chars:Nw #1 }
@@ -1261,8 +1268,6 @@
           }
       }
   }
-\cs_new:Npn \@@_change_case_upper_el_ypogegrammeni_aux:n #1
-  { \codepoint_generate:nn {#1} { \char_value_catcode:n {#1} } }
 \cs_new:cpn { @@_change_case_upper_el-x-iota_ypogegrammeni:n } #1
   {
     \@@_change_case_codepoint:nn { upper } {#1}