branch master updated: * tp/Texinfo/Common.pm (_substitute_references): rename substitute_references() as _substitute_references().

[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 878db88  * tp/Texinfo/Common.pm (_substitute_references): rename 
substitute_references() as _substitute_references().
878db88 is described below

commit 878db8810a04c9dfa17ad61840145e101826499b
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Mon Sep 13 00:21:41 2021 +0200

    * tp/Texinfo/Common.pm (_substitute_references): rename
    substitute_references() as _substitute_references().
---
 ChangeLog            |  5 +++++
 tp/Texinfo/Common.pm | 24 ++++++++++++++++++------
 2 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6e18588..7f9aed2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2021-09-14  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/Common.pm (_substitute_references): rename
+       substitute_references() as _substitute_references(). 
+
 2021-09-13  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Common.pm (%in_heading_commands): add some @-commands
diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
index 55ef7b1..8698078 100644
--- a/tp/Texinfo/Common.pm
+++ b/tp/Texinfo/Common.pm
@@ -1958,7 +1958,7 @@ sub _substitute_references_in_array($$$)
                                         "$context [$index]");
     } elsif (defined($item->{'text'})) {
       my $new_text = _copy_tree($item, undef, $reference_associations);
-      substitute_references($item, $new_text, $reference_associations);
+      _substitute_references($item, $new_text, $reference_associations);
       push @{$result}, $new_text;
     } else {
       print STDERR "Trouble with $context [$index] (".ref($item).")\n";
@@ -1969,8 +1969,8 @@ sub _substitute_references_in_array($$$)
   return $result;
 }
 
-sub substitute_references($$$);
-sub substitute_references($$$)
+sub _substitute_references($$$);
+sub _substitute_references($$$)
 {
   my $current = shift;
   my $new = shift;
@@ -1980,7 +1980,7 @@ sub substitute_references($$$)
     if ($new->{$key}) {
       my $index = 0;
       foreach my $child (@{$new->{$key}}) {
-        substitute_references($child, $current->{$key}->[$index],
+        _substitute_references($child, $current->{$key}->[$index],
                               $reference_associations);
         $index++;
       }
@@ -2000,7 +2000,7 @@ sub substitute_references($$$)
             and $key eq 'prototypes') {
           my $index = 0;
           foreach my $child (@{$new->{'extra'}->{$key}}) {
-            substitute_references($child, 
$current->{'extra'}->{$key}->[$index],
+            _substitute_references($child, 
$current->{'extra'}->{$key}->[$index],
                                   $reference_associations);
             $index++;
           }
@@ -2057,7 +2057,7 @@ sub copy_tree($;$)
   my $parent = shift;
   my $reference_associations = {};
   my $copy = _copy_tree($current, $parent, $reference_associations);
-  substitute_references($current, $copy, $reference_associations);
+  _substitute_references($current, $copy, $reference_associations);
   return $copy;
 }
 
@@ -2795,6 +2795,11 @@ Return true if the I<$tree> has content that could be 
formatted.
 I<$do_not_ignore_index_entries> is optional.  If set, index entries
 are considered to be formatted.
 
+=item $file = $converter->locate_include_file($filename)
+
+Locate I<$filename> in include directories also used to find texinfo files
+included in Texinfo documents.
+
 =item move_index_entries_after_items_in_tree($tree)
 
 In C<@enumerate> and C<@itemize> from the tree, move index entries
@@ -2839,6 +2844,13 @@ In @*table @-commands, reassociate the index entry 
information from an index
 @-command appearing right after an @item line to the @item first element.
 Remove the index @-command from the tree.
 
+=item set_output_encodings($configuration_informations, $parser_informations)
+
+If not already set, set C<OUTPUT_ENCODING_NAME> based on input file
+encoding.  Also set C<OUTPUT_PERL_ENCODING> accordingly which is used
+to output in the correct encoding.  This should not be set directly by
+user-defined code such that it corresponds to C<OUTPUT_ENCODING_NAME>.
+
 =item $split_contents split_custom_heading_command_contents($contents)
 
 Split the I<$contents> array reference at C<@|> in at max three parts.