branch master updated: * tp/Texinfo/XS/main/translations.c: Remove commented-out Perl code and comments. It's hard to read and does not match the current Perl code in Texinfo/Translations.pm.

[Gavin D. Smith]

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

gavin pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 1a927cdc9c * tp/Texinfo/XS/main/translations.c: Remove commented-out 
Perl code and comments.  It's hard to read and does not match the current Perl 
code in Texinfo/Translations.pm.
1a927cdc9c is described below

commit 1a927cdc9c831e5aed1318f78eda4b8fa51f92cf
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Sat Nov 18 09:29:01 2023 +0000

    * tp/Texinfo/XS/main/translations.c: Remove commented-out
    Perl code and comments.  It's hard to read and does not match
    the current Perl code in Texinfo/Translations.pm.
---
 ChangeLog                         |  6 ++++++
 tp/Texinfo/XS/main/translations.c | 17 -----------------
 2 files changed, 6 insertions(+), 17 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f2e430eca8..27562ceaec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-11-18  Gavin Smith <gavinsmith0123@gmail.com>
+
+       * tp/Texinfo/XS/main/translations.c: Remove commented-out
+       Perl code and comments.  It's hard to read and does not match
+       the current Perl code in Texinfo/Translations.pm.
+
 2023-11-18  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/HTML.pm (_open_command_update_context)
diff --git a/tp/Texinfo/XS/main/translations.c 
b/tp/Texinfo/XS/main/translations.c
index bc9707b1d9..6dc247cc22 100644
--- a/tp/Texinfo/XS/main/translations.c
+++ b/tp/Texinfo/XS/main/translations.c
@@ -251,23 +251,6 @@ translate_string (OPTIONS *options, const char * string,
    }
    */
 
-/*
-  if ($self) {
-    # NOTE the following customization variables are not set for
-    # a Parser, so the encoding will be undef when gdt is called from
-    # parsers.
-    if ($self->get_conf('OUTPUT_ENCODING_NAME')) {
-      $encoding = $self->get_conf('OUTPUT_ENCODING_NAME');
-    }
-    #if (defined($self->get_conf('OUTPUT_PERL_ENCODING'))) {
-    #  $perl_encoding = $self->get_conf('OUTPUT_PERL_ENCODING');
-    #}
-  } else {
-    # NOTE never happens in the tests, unlikely to happen at all.
-    $encoding = $DEFAULT_ENCODING;
-    #$perl_encoding = $DEFAULT_PERL_ENCODING;
-  }
- */
   langs[0] = strdup (lang);
   p = strchr (lang, '_');
   if (p && p - lang > 0)