@@ -1748,9 +1748,14 @@ singleQuoted = try $ do
1748 fmap B.singleQuoted . trimInlinesF . mconcat <$>
1748 fmap B.singleQuoted . trimInlinesF . mconcat <$>
1749 many1Till inline singleQuoteEnd
1749 many1Till inline singleQuoteEnd
1751+-- doubleQuoted will handle regular double-quoted sections, as well
1752+-- as dialogues with an open double-quote without a close double-quote
1753+-- in the same paragraph.
1751doubleQuoted :: MarkdownParser (F Inlines)
1754doubleQuoted :: MarkdownParser (F Inlines)
1752doubleQuoted = try $ do
1755doubleQuoted = try $ do
1753 doubleQuoteStart
1756 doubleQuoteStart
1757+ contents <- mconcat <$> many (try $ notFollowedBy doubleQuoteEnd >> inline)
1754− withQuoteContext InDoubleQuote $
1758+ (withQuoteContext InDoubleQuote $ doubleQuoteEnd >> return
1755− fmap B.doubleQuoted . trimInlinesF . mconcat <$>
1759+ (fmap B.doubleQuoted . trimInlinesF $ contents))
1756− many1Till inline doubleQuoteEnd
1760+ <|> (return $ return (B.str "\8220") <> contents)