[7474] call menu_of_node with first arg undef

[gavinsmith0123]

Revision: 7474
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7474
Author:   gavin
Date:     2016-10-29 06:02:58 +0000 (Sat, 29 Oct 2016)
Log Message:
-----------
call menu_of_node with first arg undef

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Convert/HTML.pm
    trunk/tp/Texinfo/Convert/Plaintext.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-10-29 05:45:58 UTC (rev 7473)
+++ trunk/ChangeLog     2016-10-29 06:02:58 UTC (rev 7474)
@@ -1,5 +1,12 @@
 2016-10-29  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Convert/Plaintext.pm (_convert),
+       * tp/Texinfo/Convert/HTML.pm (convert_heading_command):
+       Call 'menu_of_node' with first argument undef instead of 
+       creating a new Texinfo::Parser object.
+
+2016-10-29  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/Structuring.pm (_new_node_menu_entry): Set 
        'menu_entry_node' and 'menu_entry_separator' extra values on 
        menu entry directly instead of calling 

Modified: trunk/tp/Texinfo/Convert/HTML.pm
===================================================================
--- trunk/tp/Texinfo/Convert/HTML.pm    2016-10-29 05:45:58 UTC (rev 7473)
+++ trunk/tp/Texinfo/Convert/HTML.pm    2016-10-29 06:02:58 UTC (rev 7474)
@@ -2394,9 +2394,7 @@
     $self->{'seenmenus'}->{$self->{'current_node'}} = 1;
     # Generate a menu for this node.
     my $menu_text;
-    my $parser = Texinfo::Parser::simple_parser();
-
-    my $menu_node = Texinfo::Structuring::menu_of_node ($parser,
+    my $menu_node = Texinfo::Structuring::menu_of_node (undef,
       $command->{'extra'}{'associated_node'});
     if ($menu_node) {
       $menu_text = _convert ($self, $menu_node);

Modified: trunk/tp/Texinfo/Convert/Plaintext.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Plaintext.pm       2016-10-29 05:45:58 UTC (rev 
7473)
+++ trunk/tp/Texinfo/Convert/Plaintext.pm       2016-10-29 06:02:58 UTC (rev 
7474)
@@ -3359,8 +3359,7 @@
       if ($node) {
         if (!$self->{'seenmenus'}->{$node}) {
           $self->{'seenmenus'}->{$node} = 1;
-          my $parser = Texinfo::Parser::simple_parser();
-          my $menu_node = Texinfo::Structuring::menu_of_node ($parser, $node);
+          my $menu_node = Texinfo::Structuring::menu_of_node (undef, $node);
           if ($menu_node) {
             my $menu_text = $self->_convert ($menu_node);
             if ($menu_text) {