branch master updated: * util/txixml2texi.pl: handle infoenclose.

[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 7fbb37dc78 * util/txixml2texi.pl: handle infoenclose.
7fbb37dc78 is described below

commit 7fbb37dc78cb465186a27003236fd7dbbcdd23ca
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Dec 11 23:15:06 2022 +0100

    * util/txixml2texi.pl: handle infoenclose.
---
 ChangeLog           |  4 ++++
 util/txixml2texi.pl | 16 +++++++++++-----
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 04edf88c59..e63365ffc6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-12-11  Patrice Dumas  <pertusus@free.fr>
+
+       * util/txixml2texi.pl: handle infoenclose.
+
 2022-12-11  Gavin Smith  <gavinsmith0123@gmail.com>
 
        * tp/Texinfo/Convert/HTML.pm (%css_element_class_styles),
diff --git a/util/txixml2texi.pl b/util/txixml2texi.pl
index 9ce45b626e..bbc5bdd2af 100755
--- a/util/txixml2texi.pl
+++ b/util/txixml2texi.pl
@@ -332,7 +332,7 @@ while ($reader->read) {
         }
       }
     } elsif (exists($Texinfo::Commands::brace_commands{$name})) {
-      print "\@${name}${spaces_after_command}\{";
+      print "\@${name}${spaces_after_command}".'{';
       if ($name eq 'verb' and $reader->hasAttributes()
           and defined($reader->getAttribute('delimiter'))) {
         print $reader->getAttribute('delimiter');
@@ -368,8 +368,7 @@ while ($reader->read) {
           binmode(STDOUT, ":encoding($perl_encoding)");
         }
       }
-      print "\@$name";
-      print "$spaces";
+      print "\@$name$spaces";
       if ($reader->hasAttributes() and defined($reader->getAttribute('line'))) 
{
         my $line = $reader->getAttribute('line');
         $line =~ s/\\\\/\x{1F}/g;
@@ -463,6 +462,12 @@ while ($reader->read) {
           print '@'.$reader->getAttribute('command');
         }
       }
+    } elsif ($name eq 'infoenclose') {
+      if ($reader->hasAttributes()
+          and defined($reader->getAttribute('command'))) {
+        my $command = $reader->getAttribute('command');
+        print "\@${command}${spaces_after_command}".'{'."$spaces";
+      }
     # def* automatic
     } elsif ($reader->hasAttributes()
              and defined($reader->getAttribute('automatic'))
@@ -478,8 +483,7 @@ while ($reader->read) {
     if ($reader->hasAttributes()) {
       if (defined($reader->getAttribute('bracketed'))
           and $reader->getAttribute('bracketed') eq 'on') {
-        print '{';
-        print "$spaces";
+        print '{'."$spaces";
       }
       # menus 'star' and following spaces
       if (defined($reader->getAttribute('leadingtext'))) {
@@ -547,6 +551,8 @@ while ($reader->read) {
         print $reader->getAttribute('separator');
         print "$trailingspaces";
       }
+    } elsif ($name eq 'infoenclose') {
+      print "$trailingspaces".'}';
     } elsif ($eat_space_elements{$name}) {
       $eat_space = 1;
     } else {