@@ -1036,7 +1036,7 @@ inlineToLaTeX (Code (_,classes,_) str) = do
1036 Nothing -> ""
1036 Nothing -> ""
1037 inNote <- gets stInNote
1037 inNote <- gets stInNote
1038 when inNote $ modify $ \s -> s{ stVerbInNote = True }
1038 when inNote $ modify $ \s -> s{ stVerbInNote = True }
1039− let chr = case "!\"&'()*,-./:;?@_" \\ str of
1039+ let chr = case "!\"'()*,-./:;?@" \\ str of
1040 (c:_) -> c
1040 (c:_) -> c
1041 [] -> '!'
1041 [] -> '!'
1042 let str' = escapeStringUsing (backslashEscapes "\\{}%~_&") str
1042 let str' = escapeStringUsing (backslashEscapes "\\{}%~_&") str