@@ -189,7 +189,7 @@ stringToLaTeX isUrl (x:xs) = do
189 '$' -> "\\$" ++ rest
189 '$' -> "\\$" ++ rest
190 '%' -> "\\%" ++ rest
190 '%' -> "\\%" ++ rest
191 '&' -> "\\&" ++ rest
191 '&' -> "\\&" ++ rest
192− '_' -> "\\_" ++ rest
192+ '_' | not isUrl -> "\\_" ++ rest
193 '#' -> "\\#" ++ rest
193 '#' -> "\\#" ++ rest
194 '-' -> case xs of -- prevent adjacent hyphens from forming ligatures
194 '-' -> case xs of -- prevent adjacent hyphens from forming ligatures
195 ('-':_) -> "-{}" ++ rest
195 ('-':_) -> "-{}" ++ rest