@@ -329,12 +329,8 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
329 hasCodeBlock _ = []
329 hasCodeBlock _ = []
330 let hasCode (Code _ _) = [True]
330 let hasCode (Code _ _) = [True]
331 hasCode _ = []
331 hasCode _ = []
332− opts <- gets stOptions
333 let fragile = "fragile" `elem` classes ||
332 let fragile = "fragile" `elem` classes ||
334− not (null $ query hasCodeBlock elts ++
333+ not (null $ query hasCodeBlock elts ++ query hasCode elts)
335− if writerListings opts
336− then query hasCode elts
338 let frameoptions = ["allowdisplaybreaks", "allowframebreaks",
334 let frameoptions = ["allowdisplaybreaks", "allowframebreaks",
339 "b", "c", "t", "environment",
335 "b", "c", "t", "environment",
340 "label", "plain", "shrink"]
336 "label", "plain", "shrink"]