[no subject]

[Gavin D. Smith]

branch: master
commit 1bd1fa62b4ef1f34bbbe4aca985aaa2811250340
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Thu Jan 18 19:16:55 2024 +0000

    * tp/Texinfo/Common.pm (debug_print_tree): Also print 'unit_contents'
    keys to allow printing an "output unit".
---
 ChangeLog            | 5 +++++
 tp/Texinfo/Common.pm | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index a7da42dd0b..458be278ed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-01-18  Gavin Smith <gavinsmith0123@gmail.com>
+
+       * tp/Texinfo/Common.pm (debug_print_tree): Also print 'unit_contents'
+       keys to allow printing an "output unit".
+
 2024-01-18  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/Converter.pm (sort_element_counts): call
diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
index d9907e313f..a2503c780b 100644
--- a/tp/Texinfo/Common.pm
+++ b/tp/Texinfo/Common.pm
@@ -2686,6 +2686,10 @@ my %kept_keys;
 foreach my $key (@kept_keys) {
   $kept_keys{$key} = 1;
 }
+my @kept_keys_output_unit = ('unit_contents');
+foreach my $key (@kept_keys_output_unit) {
+  $kept_keys{$key} = 1;
+}
 sub _filter_print_keys { [grep {$kept_keys{$_}} ( sort keys %{$_[0]} )] };
 sub debug_print_tree($)
 {