texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Patrice Dumas
Date: Tue, 31 Aug 2021 04:29:59 -0400 (EDT)

branch: master
commit 901dd88f0ab17626e5813ed092430026f5a2f973
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Aug 31 09:40:40 2021 +0200

    * tp/Texinfo/Transformations.pm (_print_down_menus): remove
    unused argument.
---
 ChangeLog                     |  5 +++++
 tp/Texinfo/Transformations.pm | 11 ++++-------
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 219be90..9d8ce5b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2021-08-30  Patrice Dumas  <pertusus@free.fr>
 
+       * tp/Texinfo/Transformations.pm (_print_down_menus): remove
+       unused argument.
+
+2021-08-30  Patrice Dumas  <pertusus@free.fr>
+
        * tp/Texinfo/XS/parsetexi/Parsetexi.pm (parse_texi_file):
        internationalize error message.
 
diff --git a/tp/Texinfo/Transformations.pm b/tp/Texinfo/Transformations.pm
index eaf375b..33e9528 100644
--- a/tp/Texinfo/Transformations.pm
+++ b/tp/Texinfo/Transformations.pm
@@ -509,13 +509,11 @@ sub _copy_contents($)
   return $copy->{'contents'};
 }
 
-sub _print_down_menus($$$);
-sub _print_down_menus($$$)
+sub _print_down_menus($$);
+sub _print_down_menus($$)
 {
-  my $self = shift;
   my $node = shift;
   my $labels = shift;
-  $labels = $self->labels_information() if (!defined($labels));
 
   my @master_menu_contents;
 
@@ -564,7 +562,7 @@ sub _print_down_menus($$$)
 
       # now recurse in the children
       foreach my $child (@node_children) {
-        push @master_menu_contents, _print_down_menus($self, $child, $labels);
+        push @master_menu_contents, _print_down_menus($child, $labels);
       }
     }
   }
@@ -588,8 +586,7 @@ sub new_master_menu($$)
               and defined($entry_node->{'normalized'})) {
             my $node = $labels->{$entry_node->{'normalized'}};
             if (defined($node) and $node->{'extra'}) {
-              push @master_menu_contents, _print_down_menus($self, 
-                                                            $node, $labels);
+              push @master_menu_contents, _print_down_menus($node, $labels);
             }
           }
         }



reply via email to

[Prev in Thread] Current Thread [Next in Thread]