branch master updated: * tp/Texinfo/Convert/Converter.pm (top_node_filename), tp/Texinfo/Convert/HTML.pm: rename _top_node_filename() as top_node_filename().

[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 cc7280a  * tp/Texinfo/Convert/Converter.pm (top_node_filename), 
tp/Texinfo/Convert/HTML.pm: rename _top_node_filename() as top_node_filename().
cc7280a is described below

commit cc7280a789382f731ff6cfed4ae7de50e1e1b167
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Sep 7 23:11:13 2021 +0200

    * tp/Texinfo/Convert/Converter.pm (top_node_filename),
    tp/Texinfo/Convert/HTML.pm: rename _top_node_filename()
    as top_node_filename().
---
 ChangeLog                       |  6 ++++++
 tp/Texinfo/Convert/Converter.pm | 11 ++++++++---
 tp/Texinfo/Convert/HTML.pm      |  4 ++--
 3 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 27e8e4f..e5db3a7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2021-09-07  Patrice Dumas  <pertusus@free.fr>
 
+       * tp/Texinfo/Convert/Converter.pm (top_node_filename),
+       tp/Texinfo/Convert/HTML.pm: rename _top_node_filename()
+       as top_node_filename().
+
+2021-09-07  Patrice Dumas  <pertusus@free.fr>
+
        * doc/texinfo.texi (@code{@@code}, @code{@@allowcodebreaks}):
        make clear that @allowcodebreaks has no effect in HTML.
 
diff --git a/tp/Texinfo/Convert/Converter.pm b/tp/Texinfo/Convert/Converter.pm
index 8bcb32b..ba7cccd 100644
--- a/tp/Texinfo/Convert/Converter.pm
+++ b/tp/Texinfo/Convert/Converter.pm
@@ -574,7 +574,7 @@ sub _set_element_file($$$$)
   }
 }
 
-sub _top_node_filename($$)
+sub top_node_filename($$)
 {
   my $self = shift;
   my $document_name = shift;
@@ -647,7 +647,7 @@ sub _set_pages_files($$$$$$)
     my $node_top;
     $node_top = $self->{'labels'}->{'Top'} if ($self->{'labels'});
   
-    my $top_node_filename = $self->_top_node_filename($document_name);
+    my $top_node_filename = $self->top_node_filename($document_name);
     # first determine the top node file name.
     if ($node_top and defined($top_node_filename)) {
       my ($node_top_element) = $self->_get_element($node_top);
@@ -781,7 +781,7 @@ sub output($$)
     my $outfile;
     if ($output_file ne '') {
       if ($self->get_conf('SPLIT')) {
-        $outfile = $self->_top_node_filename($document_name);
+        $outfile = $self->top_node_filename($document_name);
         if (defined($created_directory) and $created_directory ne '') {
           $outfile = File::Spec->catfile($created_directory, $outfile);
         }
@@ -1866,6 +1866,11 @@ Returns the value of the Texinfo configuration option 
I<$option_string>.
 Set the Texinfo configuration option I<$option_string> to I<$value> if
 not set as a converter option.
 
+=item $result = $converter->top_node_filename($document_name)
+
+Returns a file name for the Top node file using either TOP_FILE
+customization value, or EXTENSION customization value and C<$document_name>.
+
 =back
 
 Other C<Texinfo::Convert::Converter> methods target conversion to XML:
diff --git a/tp/Texinfo/Convert/HTML.pm b/tp/Texinfo/Convert/HTML.pm
index 1cb3e67..f591344 100644
--- a/tp/Texinfo/Convert/HTML.pm
+++ b/tp/Texinfo/Convert/HTML.pm
@@ -5729,7 +5729,7 @@ sub _set_html_pages_files($$$$$$$$)
     my $node_top;
     $node_top = $self->{'labels'}->{'Top'} if ($self->{'labels'});
   
-    my $top_node_filename = $self->_top_node_filename($document_name);
+    my $top_node_filename = $self->top_node_filename($document_name);
     # first determine the top node file name.
     if ($node_top and defined($top_node_filename)) {
       my ($node_top_element) = $self->_get_element($node_top);
@@ -7596,7 +7596,7 @@ sub output($$)
     my $outfile;
     if ($output_file ne '') {
       if ($self->get_conf('SPLIT')) {
-        $outfile = $self->_top_node_filename($document_name);
+        $outfile = $self->top_node_filename($document_name);
         if (defined($created_directory) and $created_directory ne '') {
           $outfile = File::Spec->catfile($created_directory, $outfile);
         }