[8137] def set parent on new elements

[gavinsmith0123]

Revision: 8137
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8137
Author:   gavin
Date:     2018-09-01 10:07:32 -0400 (Sat, 01 Sep 2018)
Log Message:
-----------
def set parent on new elements

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

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-09-01 09:52:23 UTC (rev 8136)
+++ trunk/ChangeLog     2018-09-01 14:07:32 UTC (rev 8137)
@@ -1,3 +1,8 @@
+2018-09-01  Gavin Smith  <address@hidden>
+
+       * tp/Texinfo/Parser.pm (_parse_def, _split_def_args)
+       (_split_delimiters): Set 'parent' on new elements.
+
 2018-08-26  Gavin Smith  <address@hidden>
 
        * tp/Texinfo/Parser.pm (_end_line): Do not set 'def_args'

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2018-09-01 09:52:23 UTC (rev 8136)
+++ trunk/tp/Texinfo/Parser.pm  2018-09-01 14:07:32 UTC (rev 8137)
@@ -2289,9 +2289,10 @@
     my $text = $root->{'text'};
     while (1) {
       if ($text =~ s/^([^$chars]+)//) {
-        push @elements, {'text' => $1};
+        push @elements, {'text' => $1, 'parent' => $root->{'parent'}};
       } elsif ($text =~ s/^([$chars])//) {
-        push @elements, {'text' => $1, 'type' => 'delimiter'};
+        push @elements, {'text' => $1, 'type' => 'delimiter',
+                         'parent' => $root->{'parent'}};
       } else {
         last;
       }
@@ -2322,6 +2323,7 @@
       } else {
         $type = 'spaces';
       }
+      $e->{'parent'} = $root->{'parent'};
       push @elements, $e;
     }
     return @elements;
@@ -2352,7 +2354,8 @@
     my $prepended = $def_map{$command}->{$real_command};
 
 
-    my $bracketed = { 'type' => 'bracketed_inserted' };
+    my $bracketed = { 'type' => 'bracketed_inserted',
+                      'parent' => address@hidden };
     my $content = { 'text' => $prepended, 'parent' => $bracketed };
     if ($self->{'documentlanguage'}) {
       $content->{'type'} = 'untranslated';
@@ -2361,7 +2364,9 @@
     @{$bracketed->{'contents'}} = ($content);
 
     unshift @contents, $bracketed,
-                       { 'text' => ' ', 'type' => 'spaces_inserted'};
+                       { 'text' => ' ', 'type' => 'spaces_inserted',
+                         'parent' => address@hidden
+                       };
 
     $command = $def_aliases{$command};
   }