[8130] refer to def_parsed_hash not def_args

[gavinsmith0123]

Revision: 8130
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8130
Author:   gavin
Date:     2018-08-26 08:15:54 -0400 (Sun, 26 Aug 2018)
Log Message:
-----------
refer to def_parsed_hash not def_args

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

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-08-26 11:28:57 UTC (rev 8129)
+++ trunk/ChangeLog     2018-08-26 12:15:54 UTC (rev 8130)
@@ -1,5 +1,12 @@
 2018-08-26  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Convert/Text.pm (_convert),
+       * tp/Texinfo/Convert/Plaintext.pm (_convert),
+       * tp/Texinfo/Convert/HTML.pm (_convert_def_line_type):
+       Refer to 'def_parsed_hash' instead of 'def_args'.
+
+2018-08-26  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/Common.pm (definition_arguments_content)
        (definition_category): Refer to 'def_parsed_hash' instead
        of 'def_args'.

Modified: trunk/tp/Texinfo/Convert/HTML.pm
===================================================================
--- trunk/tp/Texinfo/Convert/HTML.pm    2018-08-26 11:28:57 UTC (rev 8129)
+++ trunk/tp/Texinfo/Convert/HTML.pm    2018-08-26 12:15:54 UTC (rev 8130)
@@ -4258,8 +4258,8 @@
                              'contents' => [$tree]}) . "</dt>\n";
   } else {
     my $category_prepared = '';
-    if ($command->{'extra'} and $command->{'extra'}->{'def_args'}
-        and @{$command->{'extra'}->{'def_args'}}) {
+    if ($command->{'extra'} and $command->{'extra'}->{'def_parsed_hash'}
+        and %{$command->{'extra'}->{'def_parsed_hash'}}) {
       my $parsed_definition_category 
          = Texinfo::Common::definition_category ($self, $command);
       if ($parsed_definition_category) {

Modified: trunk/tp/Texinfo/Convert/Plaintext.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Plaintext.pm       2018-08-26 11:28:57 UTC (rev 
8129)
+++ trunk/tp/Texinfo/Convert/Plaintext.pm       2018-08-26 12:15:54 UTC (rev 
8130)
@@ -2762,8 +2762,8 @@
         }
       }
     } elsif ($root->{'type'} eq 'def_line') {
-      if ($root->{'extra'} and $root->{'extra'}->{'def_args'}
-             and @{$root->{'extra'}->{'def_args'}}) {
+      if ($root->{'extra'} and $root->{'extra'}->{'def_parsed_hash'}
+             and %{$root->{'extra'}->{'def_parsed_hash'}}) {
         my $arguments = Texinfo::Common::definition_arguments_content($root);
         my $tree;
         my $command;
@@ -2779,7 +2779,6 @@
           $name = '';
         }
         
-        
         if ($command eq 'deffn'
             or $command eq 'defvr'
             or $command eq 'deftp'

Modified: trunk/tp/Texinfo/Convert/Text.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Text.pm    2018-08-26 11:28:57 UTC (rev 8129)
+++ trunk/tp/Texinfo/Convert/Text.pm    2018-08-26 12:15:54 UTC (rev 8130)
@@ -541,8 +541,8 @@
   }
   if ($root->{'type'} and $root->{'type'} eq 'def_line') {
     #print STDERR "$root->{'extra'}->{'def_command'}\n";
-    if ($root->{'extra'} and $root->{'extra'}->{'def_args'}
-             and @{$root->{'extra'}->{'def_args'}}) {
+    if ($root->{'extra'} and $root->{'extra'}->{'def_parsed_hash'}
+             and %{$root->{'extra'}->{'def_parsed_hash'}}) {
       my $parsed_definition_category
         = Texinfo::Common::definition_category ($options->{'converter'}, 
$root);
       my @contents = ($parsed_definition_category, {'text' => ': '});