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:
parent
6bfaa5ad15
commit
4ed64835cb
1 changed files with 7 additions and 1 deletions
|
@ -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 <$>
|
||||||
|
|
Loading…
Reference in a new issue