[7884] Converter.pm _register_command_arg

[gavinsmith0123]

Revision: 7884
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7884
Author:   gavin
Date:     2017-06-29 15:48:28 -0400 (Thu, 29 Jun 2017)
Log Message:
-----------
Converter.pm _register_command_arg

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

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-06-29 19:11:08 UTC (rev 7883)
+++ trunk/ChangeLog     2017-06-29 19:48:28 UTC (rev 7884)
@@ -1,5 +1,11 @@
 2017-06-29  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Convert/Converter.pm (_register_command_arg):
+       Copy function here from Parser.pm.
+       (_table_item_content_tree): Call it.
+
+2017-06-29  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/Parser.pm (_parse_texi) <menu>: Don't store
        a list of menus in 'unassociated_menus' array.
        * tp/Texinfo/Transformations.pm (_reassociate_to_node)

Modified: trunk/tp/Texinfo/Convert/Converter.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Converter.pm       2017-06-29 19:11:08 UTC (rev 
7883)
+++ trunk/tp/Texinfo/Convert/Converter.pm       2017-06-29 19:48:28 UTC (rev 
7884)
@@ -1136,6 +1136,19 @@
   return @result;
 }
 
+sub _register_command_arg($$$)
+{
+  my ($self, $current, $type) = @_;
+
+  my @contents = @{$current->{'contents'}};
+  Texinfo::Common::trim_spaces_comment_from_content(address@hidden);
+  if (scalar(@contents)) {
+    push @{$current->{'parent'}->{'extra'}->{$type}}, address@hidden;
+  } else {
+    push @{$current->{'parent'}->{'extra'}->{$type}}, undef;
+  }
+}
+
 sub _table_item_content_tree($$$)
 {
   my $self = shift;
@@ -1160,7 +1173,7 @@
                'contents' => $contents,
                'parent' => $command,};
     $command->{'args'} = [$arg];
-    $self->Texinfo::Parser::_register_command_arg($arg, 
'brace_command_contents');
+    _register_command_arg($self, $arg, 'brace_command_contents');
     $contents = [$command];
   }
   $converted_tree->{'contents'} = $contents;