Markdown Use a nonzero space to prevent false recognition of list mar…

…ker.

This addresses #516, but in a rather hackish way.  There ought to
be a better solution.

src/Text/Pandoc/Writers/Markdown.hs

@@ -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)