branch master updated: * tp/Texinfo/ManipulateTree.pm (_protect_text), tp/Texinfo/Transformations.pm (_protect_hashchar_at_line_beginning): set the parent of brace_command_arg added for added glyph command elements.

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new cf3b80f89c * tp/Texinfo/ManipulateTree.pm (_protect_text), 
tp/Texinfo/Transformations.pm (_protect_hashchar_at_line_beginning): set the 
parent of brace_command_arg added for added glyph command elements.
cf3b80f89c is described below

commit cf3b80f89c7dc370497b7f7fd7ce73e48d688123
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Wed May 1 19:19:59 2024 +0200

    * tp/Texinfo/ManipulateTree.pm (_protect_text),
    tp/Texinfo/Transformations.pm (_protect_hashchar_at_line_beginning):
    set the parent of brace_command_arg added for added glyph command
    elements.
---
 ChangeLog                     | 7 +++++++
 tp/Texinfo/ManipulateTree.pm  | 6 ++++--
 tp/Texinfo/Transformations.pm | 5 +++--
 tp/t/test_utils.pl            | 4 ++--
 4 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c981b9b2dc..be276bde08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-05-01  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/ManipulateTree.pm (_protect_text),
+       tp/Texinfo/Transformations.pm (_protect_hashchar_at_line_beginning):
+       set the parent of brace_command_arg added for added glyph command
+       elements.
+
 2024-05-01  Patrice Dumas  <pertusus@free.fr>
 
        Remove parent of @include or @setfilename source mark elements
diff --git a/tp/Texinfo/ManipulateTree.pm b/tp/Texinfo/ManipulateTree.pm
index f337de6120..7890c2884a 100644
--- a/tp/Texinfo/ManipulateTree.pm
+++ b/tp/Texinfo/ManipulateTree.pm
@@ -509,8 +509,10 @@ sub _protect_text($$)
         }
         if ($to_protect eq quotemeta(',')) {
           for (my $i = 0; $i < length($2); $i++) {
-            my $e = {'cmdname' => 'comma', 'parent' => $current->{'parent'},
-                           'args' => [{'type' => 'brace_command_arg'}]};
+            my $e = {'cmdname' => 'comma', 'parent' => $current->{'parent'}};
+            my $brace_command_arg = {'type' => 'brace_command_arg',
+                                     'parent' => $e};
+            $e->{'args'} = [$brace_command_arg];
             $current_position = Texinfo::Common::relocate_source_marks(
                                           $remaining_source_marks, $e,
                                           $current_position, 1);
diff --git a/tp/Texinfo/Transformations.pm b/tp/Texinfo/Transformations.pm
index 7901f061c9..d534fa0e30 100644
--- a/tp/Texinfo/Transformations.pm
+++ b/tp/Texinfo/Transformations.pm
@@ -899,8 +899,9 @@ sub _protect_hashchar_at_line_beginning($$$)
               push @result, $e;
             }
 
-            $e = {'cmdname' => 'hashchar', 'parent' => $parent,
-                  'args' => [{'type' => 'brace_command_arg'}]};
+            $e = {'cmdname' => 'hashchar', 'parent' => $parent};
+            my $arg = {'type' => 'brace_command_arg', 'parent' => $e};
+            $e->{'args'} = [$arg];
             $current_position = Texinfo::Common::relocate_source_marks(
                                           $remaining_source_marks, $e,
                                           $current_position, 1);
diff --git a/tp/t/test_utils.pl b/tp/t/test_utils.pl
index a09b4dc5fa..a1b84fc36a 100644
--- a/tp/t/test_utils.pl
+++ b/tp/t/test_utils.pl
@@ -413,8 +413,8 @@ my @node_keys = ('node_directions',
 my %avoided_keys_tree;
 my @avoided_keys_tree = (@sections_keys, @menus_keys, @node_keys,
     'float_number', 'tree_unit_directions', 'directions',
-    'associated_unit',
-    'parent', 'global_command_number',
+    'associated_unit', 'global_command_number',
+    'parent',
     # only set with the XS parser
     'tree_document_descriptor', 'output_units_descriptor');
 foreach my $avoided_key(@avoided_keys_tree) {