Markdown reader: fix bug parsing fenced code blocks.

Previously parsing would break if the code block
contained a string of backticks of sufficient length
followed by something other than end of line.

Closes #5304.

2 files changed, 27 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 646e5aaa7..43cb68b67 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -722,8 +722,9 @@ codeBlockFenced = try $ do
   blankline
   contents <- intercalate "\n" <$>
                  manyTill (gobbleAtMostSpaces indentLevel >> anyLine)
-                          (blockDelimiter (== c) (Just size))
-  blanklines
+                          (try $ do
+                            blockDelimiter (== c) (Just size)
+                            blanklines)
   return $ return $
     case rawattr of
           Left syn   -> B.rawBlock syn contents
diff --git a/test/command/5304.md b/test/command/5304.md
new file mode 100644
index 000000000..62b2b9ddd
--- /dev/null
+++ b/test/command/5304.md
@@ -0,0 +1,24 @@
+````
+% pandoc -f markdown -t markdown
+``` {.markdown}
+`«sträng»`
+
+`` «sträng» ``
+
+``` «sträng» ```
+
+````«sträng»````
+... 
+```
+^D
+``` {.markdown}
+`«sträng»`
+
+`` «sträng» ``
+
+``` «sträng» ```
+
+````«sträng»````
+... 
+```
+````