@@ -678,19 +678,17 @@ url = do
678678-- | Parses a list of inlines between start and end delimiters.
679679inlinesBetween :: (PandocMonad m, Show b) => MWParser m a -> MWParser m b -> MWParser m Inlines
680680inlinesBetween start end =
681− trimInlines . mconcat <$> try (start >> many1Till inner end)
682− where inner = innerSpace <|> (notFollowedBy' (() <$ whitespace) >> inline)
683− innerSpace = try $ whitespace <* notFollowedBy' end
681+ trimInlines . mconcat <$> try (start >> many1Till inline end)
684682
685683emph :: PandocMonad m => MWParser m Inlines
686684emph = B.emph <$> nested (inlinesBetween start end)
687− where start = sym "''" >> lookAhead nonspaceChar
685+ where start = sym "''"
688686 end = try $ notFollowedBy' (() <$ strong) >> sym "''"
689687
690688strong :: PandocMonad m => MWParser m Inlines
691689strong = B.strong <$> nested (inlinesBetween start end)
692− where start = sym "'''" >> lookAhead nonspaceChar
693− end = try $ sym "'''"
690+ where start = sym "'''"
691+ end = sym "'''"
694692
695693doubleQuotes :: PandocMonad m => MWParser m Inlines
696694doubleQuotes = do