[no subject]

[Patrice Dumas]

branch: master
commit 7df6521ea6102312d996a5bbd9db11160ea273f3
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Thu Feb 22 21:38:39 2024 +0100

    * tp/Texinfo/ParserNonXS.pm (_parse_line_command_args): use the same
    messages as in C for definfoenclose related messages.
---
 ChangeLog                 | 5 +++++
 tp/Texinfo/ParserNonXS.pm | 8 +++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 988888e047..6e677194a0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-02-22  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/ParserNonXS.pm (_parse_line_command_args): use the same
+       messages as in C for definfoenclose related messages.
+
 2024-02-22  Patrice Dumas  <pertusus@free.fr>
 
        Update po files.
diff --git a/tp/Texinfo/ParserNonXS.pm b/tp/Texinfo/ParserNonXS.pm
index 3f51479f00..ec570f5f9a 100644
--- a/tp/Texinfo/ParserNonXS.pm
+++ b/tp/Texinfo/ParserNonXS.pm
@@ -7690,8 +7690,9 @@ sub _parse_line_command_args($$$)
                or ($brace_commands{$cmd_name} ne 'style_code'
                    and $brace_commands{$cmd_name} ne 'style_no_code'
                    and $brace_commands{$cmd_name} ne 'style_other'))) {
-        $self->_line_error(sprintf(__("cannot redefine with \@%s: %s"),
-                           $command, $cmd_name), $source_info);
+        $self->_line_error(sprintf(
+                    __("cannot redefine with \@definfoenclose: %s"),
+                                   $cmd_name), $source_info);
       } else {
         $self->{'definfoenclose'}->{$cmd_name} = [ $begin, $end ];
         print STDERR "DEFINFOENCLOSE \@$cmd_name: $begin, $end\n"
@@ -7713,7 +7714,8 @@ sub _parse_line_command_args($$$)
         # @-command otherwise will remain there, possibly having specific 
effects.
       }
     } else {
-      $self->_line_error(sprintf(__("bad argument to \@%s"), $command),
+      $self->_line_error(sprintf(__("bad argument to \@definfoenclose"),
+                                 $command),
                          $source_info);
     }
   } elsif ($command eq 'columnfractions') {