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 3c50435b3108d2e3d68781728d7f4195c49d01f8
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Aug 31 09:41:20 2021 +0200

    * tp/Texinfo/Common.pm: remove comments.
---
 tp/Texinfo/Common.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
index b012973..de468dc 100644
--- a/tp/Texinfo/Common.pm
+++ b/tp/Texinfo/Common.pm
@@ -2098,9 +2098,6 @@ sub modify_tree($$$;$)
       # this puts the new args at the place of the old arg using the 
       # offset from the end of the array
       splice (@{$tree->{'args'}}, $i - $#args -1, 1, @new_args);
-      #foreach my $arg (@new_args) {
-      #  modify_tree($self, $arg, $operation);
-      #}
     }
   }
   if ($tree->{'contents'}) {
@@ -2111,9 +2108,6 @@ sub modify_tree($$$;$)
       # this puts the new contents at the place of the old content using the 
       # offset from the end of the array
       splice (@{$tree->{'contents'}}, $i - $#contents -1, 1, @new_contents);
-      #foreach my $content (@new_contents) {
-      #  modify_tree($self, $content, $operation);
-      #}
     }
   }
   return $tree;
@@ -2753,6 +2747,7 @@ sub set_nodes_list_labels($$$)
   my $self = shift;
   my $registrar = shift;
   my $configuration_informations = shift;
+
   $self->{'nodes'} = [];
   my %labels = ();
   if (defined $self->{'targets'}) {



reply via email to

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