@@ -1245,9 +1245,9 @@ mbBraced x = if not (all isAlphaNum x)
12451245-- Extract a key from divs and spans
12461246extract :: String -> Block -> [String]
12471247extract key (Div attr _) = lookKey key attr
1248−extract key (Plain ils) = concatMap (extractInline key) ils
1249−extract key (Para ils) = concatMap (extractInline key) ils
1250−extract key (Header _ _ ils) = concatMap (extractInline key) ils
1248+extract key (Plain ils) = query (extractInline key) ils
1249+extract key (Para ils) = query (extractInline key) ils
1250+extract key (Header _ _ ils) = query (extractInline key) ils
12511251extract _ _ = []
12521252
12531253-- Extract a key from spans