@@ -37,7 +37,7 @@ import Text.Pandoc.Options
37import qualified Text.Pandoc.Parsing as P
37import qualified Text.Pandoc.Parsing as P
38import Text.Pandoc.Parsing hiding ( F, unF, askF, asksF, runF
38import Text.Pandoc.Parsing hiding ( F, unF, askF, asksF, runF
39 , newline, orderedListMarker
39 , newline, orderedListMarker
40− , parseFromString
40+ , parseFromString, blanklines
42import Text.Pandoc.Readers.LaTeX (inlineCommand, rawLaTeXInline)
42import Text.Pandoc.Readers.LaTeX (inlineCommand, rawLaTeXInline)
43import Text.Pandoc.Shared (compactify', compactify'DL)
43import Text.Pandoc.Shared (compactify', compactify'DL)
@@ -242,6 +242,13 @@ newline =
242 <* updateLastPreCharPos
242 <* updateLastPreCharPos
243 <* updateLastForbiddenCharPos
243 <* updateLastForbiddenCharPos
245+-- | Like @Text.Parsec.Char.blanklines@, but causes additional state changes.
246+blanklines :: OrgParser [Char]
249+ <* updateLastPreCharPos
250+ <* updateLastForbiddenCharPos
246-- parsing blocks
253-- parsing blocks