Fixed regression in latex smart quote parsing.
Closes #2645. In cases where a match was not found for a quote, everything from the open quote to the end of the paragraph was being dropped.
This commit is contained in:
parent
4db912f0f5
commit
8611ac56a6
1 changed files with 5 additions and 4 deletions
|
@ -179,10 +179,11 @@ quoted' f starter ender = do
|
|||
then do
|
||||
ils <- many (notFollowedBy ender >> inline)
|
||||
(ender >> return (f (mconcat ils))) <|>
|
||||
lit (case startchs of
|
||||
"``" -> "“"
|
||||
"`" -> "‘"
|
||||
_ -> startchs)
|
||||
(<> mconcat ils) <$>
|
||||
lit (case startchs of
|
||||
"``" -> "“"
|
||||
"`" -> "‘"
|
||||
_ -> startchs)
|
||||
else lit startchs
|
||||
|
||||
doubleQuote :: LP Inlines
|
||||
|
|
Loading…
Add table
Reference in a new issue