Markdown Use a nonzero space to prevent false recognition of list marker.

This addresses #516, but in a rather hackish way.  There ought to
be a better solution.
This commit is contained in:
John MacFarlane 2012-05-19 17:44:15 -07:00
parent b2340cd874
commit 79a17ef9b9

View file

@ -218,7 +218,7 @@ blockToMarkdown opts (Para inlines) = do
let esc = if (not (writerStrictMarkdown opts)) &&
not (stPlain st) &&
beginsWithOrderedListMarker (render Nothing contents)
then text "\\"
then text "\x200B" -- zero-width space, a hack
else empty
return $ esc <> contents <> blankline
blockToMarkdown _ (RawBlock f str)