@@ -178,8 +178,7 @@ referenceTitle = try $ do
178 skipSpaces
178 skipSpaces
179 tit <- (charsInBalanced '(' ')' >>= return . unwords . words)
179 tit <- (charsInBalanced '(' ')' >>= return . unwords . words)
180 <|> do delim <- char '\'' <|> char '"'
180 <|> do delim <- char '\'' <|> char '"'
181− manyTill anyChar (try (char delim >> skipSpaces >>
181+ manyTill anyChar (try (char delim >> blankline))
182− notFollowedBy (noneOf ")\n")))
183 return $ decodeCharacterReferences tit
182 return $ decodeCharacterReferences tit
185noteMarker = string "[^" >> manyTill (noneOf " \t\n") (char ']')
184noteMarker = string "[^" >> manyTill (noneOf " \t\n") (char ']')