From 8c85fbbf2efbe783abc866bbed46254af8f8ac2a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 9 Feb 2024 14:16:08 -0800
Subject: Powerpoint writer: Fix regression in layout for slides with figures.

Closes #9442.
---
 src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
index f3f00da50..fb07d8810 100644
--- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
@@ -537,7 +537,7 @@ blockToParagraphs (Div (_, classes, _) blks) = let
                    | otherwise -> Nothing
   addIncremental env = env { envInIncrementalDiv = incremental }
   in local addIncremental (concatMapM blockToParagraphs blks)
-blockToParagraphs (Figure attr capt blks) =
+blockToParagraphs (Figure attr capt blks) = -- This never seems to be used:
   blockToParagraphs (Shared.figureDiv attr capt blks)
 blockToParagraphs hr@HorizontalRule = notRendered hr
 blockToParagraphs tbl@Table{} = notRendered tbl
@@ -649,6 +649,7 @@ plainOrPara _ = Nothing
 notText :: Block -> Bool
 notText block | startsWithImage block = True
 notText Table{} = True
+notText Figure{} = True
 notText _ = False
 
 startsWithImage :: Block -> Bool
-- 
cgit v1.2.3