[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);
}
}
}