@@ -731,7 +731,9 @@ inlineToLaTeX (Code (_,classes,_) str) = do
731 where listingsCode = do
731 where listingsCode = do
732 inNote <- gets stInNote
732 inNote <- gets stInNote
733 when inNote $ modify $ \s -> s{ stVerbInNote = True }
733 when inNote $ modify $ \s -> s{ stVerbInNote = True }
734− let chr = ((enumFromTo '!' '~') \\ str) !! 0
734+ let chr = case "!\"&'()*,-./:;?@_" \\ str of
735 return $ text $ "\\lstinline" ++ [chr] ++ str ++ [chr]
737 return $ text $ "\\lstinline" ++ [chr] ++ str ++ [chr]
736 highlightCode = do
738 highlightCode = do
737 case highlight formatLaTeXInline ("",classes,[]) str of
739 case highlight formatLaTeXInline ("",classes,[]) str of