branch master updated: * tp/Texinfo/Convert/Plaintext.pm (process_printindex): modify code slightly for xgettext parsing.

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 706052f5f8 * tp/Texinfo/Convert/Plaintext.pm (process_printindex): 
modify code slightly for xgettext parsing.
706052f5f8 is described below

commit 706052f5f89d266ab5dd032a3c2024481fa10de9
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Aug 16 19:45:57 2022 +0200

    * tp/Texinfo/Convert/Plaintext.pm (process_printindex): modify code
    slightly for xgettext parsing.
---
 ChangeLog                       | 5 +++++
 tp/Texinfo/Convert/Plaintext.pm | 6 ++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 908648c582..e2aab74861 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-08-16  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/Convert/Plaintext.pm (process_printindex): modify code
+       slightly for xgettext parsing.
+
 2022-08-16  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/DocBook.pm (_convert): do not use section in
diff --git a/tp/Texinfo/Convert/Plaintext.pm b/tp/Texinfo/Convert/Plaintext.pm
index 6ecd77d615..610c340922 100644
--- a/tp/Texinfo/Convert/Plaintext.pm
+++ b/tp/Texinfo/Convert/Plaintext.pm
@@ -1395,11 +1395,13 @@ sub process_printindex($$;$)
       # after menu entry name and also :, as the Info readers
       # should consider text up to : to be part of the index entry.
       if ($node_line =~ /([,\t:]|\.\s)/) {
+        my $warned_char = $1;
         if ($self->{'info_special_chars_warning'}) {
           # Warn only once
           if (! $self->{'index_entry_node_colon'}->{$node_line}) {
-            $self->line_warn($self, __(
-             "node name with index entries should not contain `$1'"),
+            $self->line_warn($self, sprintf(__(
+             "node name with index entries should not contain `%s'"),
+                                            $warned_char),
                            $node->{'source_info'});
           }
           $self->{'index_entry_node_colon'}->{$node_line} = 1;