[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Patrice Dumas |
Date: |
Fri, 23 Dec 2022 17:11:31 -0500 (EST) |
branch: master
commit 9b92b68348d07dbe616c26af882e7d3a9698c4f6
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Fri Dec 23 23:04:01 2022 +0100
tp/Texinfo/Common.pm: print whole text in debug_print_element_short
---
tp/Texinfo/Common.pm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
index 24ed0358c9..ddd17ad6b9 100644
--- a/tp/Texinfo/Common.pm
+++ b/tp/Texinfo/Common.pm
@@ -2236,7 +2236,12 @@ sub debug_print_element_short($;$)
if (defined($current->{'extra'})
and defined($current->{'extra'}->{'special_element_type'}));
$cmd = "\@$current->{'cmdname'}" if (defined($current->{'cmdname'}));
- $text = "[T]" if (defined($current->{'text'}));
+ if (defined($current->{'text'})) {
+ my $text_str = $current->{'text'};
+ $text_str =~ s/\n/\\n/g;
+ $text = "[T: $text_str]";
+ }
+ #$text = "[T]" if (defined($current->{'text'}));
my $args = '';
my $contents = '';
$args = "[A".scalar(@{$current->{'args'}}).']' if $current->{'args'};