@@ -370,14 +370,14 @@ inlineCommands = M.fromList $
370370 , ("pounds", lit "£")
371371 , ("euro", lit "€")
372372 , ("copyright", lit "©")
373− , ("`", tok >>= accent grave)
374− , ("'", tok >>= accent acute)
375− , ("^", tok >>= accent circ)
376− , ("~", tok >>= accent tilde)
377− , ("\"", tok >>= accent umlaut)
378− , (".", tok >>= accent dot)
379− , ("=", tok >>= accent macron)
380− , ("c", tok >>= accent cedilla)
373+ , ("`", option (str "`") $ try $ tok >>= accent grave)
374+ , ("'", option (str "'") $ try $ tok >>= accent acute)
375+ , ("^", option (str "^") $ try $ tok >>= accent circ)
376+ , ("~", option (str "~") $ try $ tok >>= accent tilde)
377+ , ("\"", option (str "\"") $ try $ tok >>= accent umlaut)
378+ , (".", option (str ".") $ try $ tok >>= accent dot)
379+ , ("=", option (str "=") $ try $ tok >>= accent macron)
380+ , ("c", option (str "c") $ try $ tok >>= accent cedilla)
381381 , ("i", lit "i")
382382 , ("\\", linebreak <$ (optional (bracketed inline) *> optional sp))
383383 , (",", pure mempty)