@@ -1219,12 +1219,12 @@ inlineToLaTeX (Link _ txt ('#':ident, _)) = do
1219 return $ text "\\protect\\hyperlink" <> braces (text lab) <> braces contents
1219 return $ text "\\protect\\hyperlink" <> braces (text lab) <> braces contents
1220inlineToLaTeX (Link _ txt (src, _)) =
1220inlineToLaTeX (Link _ txt (src, _)) =
1221 case txt of
1221 case txt of
1222− [Str x] | escapeURI x == src -> -- autolink
1222+ [Str x] | x == unEscapeString src -> -- autolink
1223 do modify $ \s -> s{ stUrl = True }
1223 do modify $ \s -> s{ stUrl = True }
1224 src' <- stringToLaTeX URLString (escapeURI src)
1224 src' <- stringToLaTeX URLString (escapeURI src)
1225 return $ text $ "\\url{" ++ src' ++ "}"
1225 return $ text $ "\\url{" ++ src' ++ "}"
1226 [Str x] | Just rest <- stripPrefix "mailto:" src,
1226 [Str x] | Just rest <- stripPrefix "mailto:" src,
1227− escapeURI x == rest -> -- email autolink
1227+ x == unEscapeString rest -> -- email autolink
1228 do modify $ \s -> s{ stUrl = True }
1228 do modify $ \s -> s{ stUrl = True }
1229 src' <- stringToLaTeX URLString (escapeURI src)
1229 src' <- stringToLaTeX URLString (escapeURI src)
1230 contents <- inlineListToLaTeX txt
1230 contents <- inlineListToLaTeX txt