@@ -1290,7 +1290,7 @@ citeKey = try $ do
1290 suppress_author <- option False (char '-' >> return True)
1290 suppress_author <- option False (char '-' >> return True)
1291 char '@'
1291 char '@'
1292 first <- letter
1292 first <- letter
1293− rest <- many $ (noneOf ",;]@ \t\n")
1293+ rest <- many $ (noneOf ",;!?[]()@ \t\n")
1294 let key = first:rest
1294 let key = first:rest
1295 st <- getState
1295 st <- getState
1296 guard $ key `elem` stateCitations st
1296 guard $ key `elem` stateCitations st