texinfo/tp/Texinfo/Convert TextContent.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/01/16 22:15:12

Modified files:
        tp/Texinfo/Convert: TextContent.pm 

Log message:
        Handle better @inline* in TextContent.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Convert/TextContent.pm?cvsroot=texinfo&r1=1.2&r2=1.3

Patches:
Index: TextContent.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/TextContent.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- TextContent.pm      15 Jan 2012 23:38:22 -0000      1.2
+++ TextContent.pm      16 Jan 2012 22:15:12 -0000      1.3
@@ -153,7 +153,16 @@
     #if ($root->{'type'} and ($root->{'type'} eq 'def_line'
     #                         or $root->{'type'} eq 'menu_entry')) { 
     #}
-    foreach my $arg (@{$root->{'args'}}) {
+    my $args;
+    if ($root->{'cmdname'} 
+      and $Texinfo::Common::inline_format_commands{$root->{'cmdname'}}) {
+      my @args = @{$root->{'args'}};
+      shift @args;
+      $args = address@hidden;
+    } else {
+      $args = $root->{'args'};
+    }
+    foreach my $arg (@{$args}) {
       $result .= _convert ($self, $arg);
     }
   }