[latex3-commits] [git/LaTeX3-latex3-latex3] master: Refactor cctab message to avoid hard-coding English words (5e5c8a1d1)

[Joseph Wright]

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

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

commit 5e5c8a1d17f741ac608d7b9ae1e241f50100fc41
Author: Bruno Le Floch <bruno at le-floch.fr>
Date:   Tue Jul 14 23:44:23 2020 +0200

    Refactor cctab message to avoid hard-coding English words


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

5e5c8a1d17f741ac608d7b9ae1e241f50100fc41
 l3kernel/l3cctab.dtx | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/l3kernel/l3cctab.dtx b/l3kernel/l3cctab.dtx
index 948aa2abb..4ef832d40 100644
--- a/l3kernel/l3cctab.dtx
+++ b/l3kernel/l3cctab.dtx
@@ -624,7 +624,7 @@
           { \cs_set_eq:cN { @@_group_ #1 _chk: } \tex_undefined:D }
           {
             \__kernel_msg_error:nnx { kernel } { cctab-group-mismatch }
-              { different~group }
+              { 0 }
           }
       }
       {
@@ -632,7 +632,7 @@
           {
             \int_compare:nNnTF
                 { \tex_currentgrouplevel:D } < { \l_@@_internal_b_tl }
-              { lower } { higher } ~group~level
+                { -1 } { 1 }
           }
       }
   }
@@ -834,7 +834,13 @@
   }
 \__kernel_msg_new:nnnn { kernel } { cctab-group-mismatch }
   {
-    \iow_char:N\\cctab_end:~occurred~in~a~#1~than~
+    \iow_char:N\\cctab_end:~occurred~in~a~
+    \int_case:nn {#1}
+      {
+        { 0 } { different~group }
+        { 1 } { higher~group~level }
+        { -1 } { lower~group~level }
+      } ~than~
     the~matching~\iow_char:N\\cctab_begin:N.
   }
   {