@@ -1497,9 +1497,13 @@ explicitLink = try $ do
14971497 then B.str src
14981498 else label'
14991499 -- `link <google_>` is a reference link to _google!
1500− ((src',tit),attr) <- case reverse src of
1501− '_':xs -> lookupKey [] (toKey (reverse xs))
1502− _ -> return ((src, ""), nullAttr)
1500+ ((src',tit),attr) <-
1501+ if isURI src
1502+ then return ((src, ""), nullAttr)
1503+ else
1504+ case reverse src of
1505+ '_':xs -> lookupKey [] (toKey (reverse xs))
1506+ _ -> return ((src, ""), nullAttr)
15031507 return $ B.linkWith attr (escapeURI src') tit label''
15041508
15051509citationName :: PandocMonad m => RSTParser m String