@@ -585,7 +585,7 @@ image :: MWParser Inlines
585image = try $ do
585image = try $ do
587 choice imageIdentifiers
587 choice imageIdentifiers
588− fname <- many1 (noneOf "|]")
588+ fname <- addUnderscores <$> many1 (noneOf "|]")
589 _ <- many imageOption
589 _ <- many imageOption
590 dims <- try (char '|' *> (sepBy (many digit) (char 'x')) <* string "px")
590 dims <- try (char '|' *> (sepBy (many digit) (char 'x')) <* string "px")
591 <|> return []
591 <|> return []