@@ -405,7 +405,11 @@ blockToMarkdown' opts (Plain inlines) = do
405 not isPlain && beginsWithOrderedListMarker rendered
405 not isPlain && beginsWithOrderedListMarker rendered
406 then text $ escapeDelimiter rendered
406 then text $ escapeDelimiter rendered
407 else contents
407 else contents
408+ -- escape if para starts with %
410+ if isEnabled Ext_pandoc_title_block opts && take 1 rendered == "%"
411+ then "\\" <> contents' <> cr
408− return $ contents' <> cr
412+ else contents' <> cr
409-- title beginning with fig: indicates figure
413-- title beginning with fig: indicates figure
410blockToMarkdown' opts (Para [Image attr alt (src,'f':'i':'g':':':tit)]) =
414blockToMarkdown' opts (Para [Image attr alt (src,'f':'i':'g':':':tit)]) =
411 blockToMarkdown opts (Para [Image attr alt (src,tit)])
415 blockToMarkdown opts (Para [Image attr alt (src,tit)])