branch master updated: * tp/DebugTexinfo/DebugTree.pm (_print_tree): use info element key instead of extra for information now associated to that key.

[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 d8011e789c * tp/DebugTexinfo/DebugTree.pm (_print_tree): use info 
element key instead of extra for information now associated to that key.
d8011e789c is described below

commit d8011e789cda639aa01acf0798edb8028bc46eb6
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Nov 20 18:16:07 2022 +0100

    * tp/DebugTexinfo/DebugTree.pm (_print_tree): use info element key
    instead of extra for information now associated to that key.
---
 ChangeLog                    |  5 +++++
 tp/DebugTexinfo/DebugTree.pm | 18 +++++++++---------
 2 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0421835fab..dc59f9dea9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -8,6 +8,11 @@
        Do not set INFO_JS_DIR to avoid test result having to be
        updated every time one of the js files changes.
 
+2022-11-20  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/DebugTexinfo/DebugTree.pm (_print_tree): use info element key
+       instead of extra for information now associated to that key.
+
 2022-11-20  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/HTML.pm (output_internal_links): add subentries
diff --git a/tp/DebugTexinfo/DebugTree.pm b/tp/DebugTexinfo/DebugTree.pm
index 24a03c4f58..310d0ad6c0 100644
--- a/tp/DebugTexinfo/DebugTree.pm
+++ b/tp/DebugTexinfo/DebugTree.pm
@@ -174,21 +174,21 @@ sub _print_tree($$;$$)
     my $text = _protect_text($element->{'text'});
     $result .= "|$text|";
   }
-  if ($element->{'extra'}
-      and defined($element->{'extra'}->{'spaces_before_argument'})) {
+  if ($element->{'info'}
+      and defined($element->{'info'}->{'spaces_before_argument'})) {
     $result .= ' '
-    .'b/'._protect_text($element->{'extra'}->{'spaces_before_argument'}).'/';
+    .'b/'._protect_text($element->{'info'}->{'spaces_before_argument'}).'/';
   }
-  if ($element->{'extra'}
-      and defined($element->{'extra'}->{'spaces_after_argument'})) {
+  if ($element->{'info'}
+      and defined($element->{'info'}->{'spaces_after_argument'})) {
     $result .= ' '
-    .'a/'._protect_text($element->{'extra'}->{'spaces_after_argument'}).'/';
+    .'a/'._protect_text($element->{'info'}->{'spaces_after_argument'}).'/';
   }
   $result .= "\n";
-  if ($element->{'extra'}
-      and defined($element->{'extra'}->{'comment_at_end'})) {
+  if ($element->{'info'}
+      and defined($element->{'info'}->{'comment_at_end'})) {
     $result .= ' ' x ($level + 1).'/comment_at_end/'."\n";
-    $result .= _print_tree ($self, $element->{'extra'}->{'comment_at_end'},
+    $result .= _print_tree ($self, $element->{'info'}->{'comment_at_end'},
                             $level +2);
   }
   if ($element->{'args'}) {