Markdown reader: don't cross line boundary parsing pipe table row.

Previously an emph element could be parsed across the newline
at the end of the pipe table row.

I thought this would help with #2765, but it doesn't.
This commit is contained in:
John MacFarlane 2016-03-09 08:33:13 -08:00
parent 6bfaa5ad15
commit 4ed64835cb

View file

@ -1372,7 +1372,13 @@ sepPipe = try $ do
-- parse a row, also returning probable alignments for org-table cells -- parse a row, also returning probable alignments for org-table cells
pipeTableRow :: MarkdownParser (F [Blocks]) pipeTableRow :: MarkdownParser (F [Blocks])
pipeTableRow = do pipeTableRow = try $ do
scanForPipe
raw <- anyLine
parseFromString pipeTableRow' (raw ++ "\n")
pipeTableRow' :: MarkdownParser (F [Blocks])
pipeTableRow' = do
skipMany spaceChar skipMany spaceChar
openPipe <- (True <$ char '|') <|> return False openPipe <- (True <$ char '|') <|> return False
let cell = mconcat <$> let cell = mconcat <$>