doc/texi2pod: support @float.

1 files changed, 9 insertions, 0 deletions

diff --git a/doc/texi2pod.pl b/doc/texi2pod.pl
index 9a9b34fc15..c7f67afe8c 100644
--- a/doc/texi2pod.pl
+++ b/doc/texi2pod.pl
@@ -172,6 +172,9 @@ INF: while(<$inf>) {
         } elsif ($ended =~ /^(?:itemize|enumerate|(?:multi|[fv])?table)$/) {
             $_ = "\n=back\n";
             $ic = pop @icstack;
+        } elsif ($ended =~ /^float$/) {
+            $_ = "\n=back\n";
+            $ic = pop @icstack;
         } else {
             die "unknown command \@end $ended at line $.\n";
         }
@@ -297,6 +300,12 @@ INF: while(<$inf>) {
         $_ = "";        # need a paragraph break
     };
 
+    /^\@(float)\s+\w+/ and do {
+        push @endwstack, $endw;
+        $endw = $1;
+        $_ = "\n=over 4\n";
+    };
+
     /^\@item\s+(.*\S)\s*$/ and $endw eq "multitable" and do {
         my $columns = $1;
         $columns =~ s/\@tab/ : /;