@@ -272,6 +272,7 @@ inlineToMan opts (TeX str) = return $ text $ escapeCode str
272inlineToMan opts (HtmlInline str) = return $ text $ escapeCode str
272inlineToMan opts (HtmlInline str) = return $ text $ escapeCode str
273inlineToMan opts (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n"
273inlineToMan opts (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n"
274inlineToMan opts Space = return $ char ' '
274inlineToMan opts Space = return $ char ' '
275+inlineToMan opts (Link txt (('#':_), _)) = inlineListToMan opts txt
275inlineToMan opts (Link txt (src, _)) = do
276inlineToMan opts (Link txt (src, _)) = do
276 linktext <- inlineListToMan opts txt
277 linktext <- inlineListToMan opts txt
277 let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src
278 let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src