[8147] revert change

[gavinsmith0123]

Revision: 8147
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8147
Author:   gavin
Date:     2018-09-02 03:52:06 -0400 (Sun, 02 Sep 2018)
Log Message:
-----------
revert change

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Parser.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-09-01 21:55:05 UTC (rev 8146)
+++ trunk/ChangeLog     2018-09-02 07:52:06 UTC (rev 8147)
@@ -5,12 +5,6 @@
 
 2018-09-01  Gavin Smith  <address@hidden>
 
-       * tp/Texinfo/Parser.pm (_parse_def): Do not handle a leading 
-       space specially.
-       (_end_line): Account for this change.
-
-2018-09-01  Gavin Smith  <address@hidden>
-
        * tp/Texinfo/Parser.pm (_parse_def): Set 'parent' on 
        'def_aggregate' element.
 

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2018-09-01 21:55:05 UTC (rev 8146)
+++ trunk/tp/Texinfo/Parser.pm  2018-09-02 07:52:06 UTC (rev 8147)
@@ -2375,6 +2375,13 @@
 
   $current->{'contents'} = address@hidden;
 
+  if (scalar(@contents) == 1 and $contents[0]->{'type'} eq 'spaces') {
+    # if there is no argument at all, the leading space is not associated
+    # to the @-command. We do not want to have this leading space appear in 
the 
+    # arguments ever, so we ignore it here.
+    @contents = ();
+  }
+
   my @result;
   my @args = @{$def_map{$command}};
   my $arg_type;
@@ -2771,9 +2778,9 @@
     }
     my $def_command = $current->{'parent'}->{'extra'}->{'def_command'};
     my $arguments = _parse_def($self, $def_command, $current);
-    my $def_parsed_hash;
     if (scalar(@$arguments)) {
       #$current->{'parent'}->{'extra'}->{'def_args'} = $arguments;
+      my $def_parsed_hash;
       foreach my $arg (@$arguments) {
         die if (!defined($arg->[0]));
         last if ($arg->[0] eq 'arg' or $arg->[0] eq 'typearg' 
@@ -2781,8 +2788,6 @@
         next if ($arg->[0] eq 'spaces');
         $def_parsed_hash->{$arg->[0]} = $arg->[1];
       }
-    }
-    if (scalar(%$def_parsed_hash)) {
       $current->{'parent'}->{'extra'}->{'def_parsed_hash'} = $def_parsed_hash;
       # do an standard index entry tree
       my $index_entry;