texinfo-commits
[Top][All Lists]
Advanced

[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'};



reply via email to

[Prev in Thread] Current Thread [Next in Thread]