@@ -480,8 +480,9 @@ inlineToMs opts (Link _ txt ('#':ident, _)) = do
480480 -- internal link
481481 contents <- inlineListToMs' opts{ writerWrapText = WrapNone } txt
482482 return $ text "\\c" <> cr <> nowrap (text ".pdfhref L -D " <>
483− doubleQuotes (text ident) <> space <>
484− doubleQuotes contents) <> cr
483+ doubleQuotes (text ident) <> text " -A " <>
484+ doubleQuotes (text "\\c") <> text " -- " <> contents) <>
485+ cr <> text "\\&"
485486inlineToMs opts (Link _ txt (src, _)) = do
486487 let srcSuffix = fromMaybe src (stripPrefix "mailto:" src)
487488 inNote <- gets stInNote