@@ -373,6 +373,8 @@ inlineToMan _ LineBreak = return $
373373 cr <> text ".PD 0" $$ text ".P" $$ text ".PD" <> cr
374374inlineToMan _ SoftBreak = return space
375375inlineToMan _ Space = return space
376+inlineToMan opts (Link _ txt ('#':_, _)) =
377+ inlineListToMan opts txt -- skip internal links
376378inlineToMan opts (Link _ txt (src, _)) = do
377379 linktext <- inlineListToMan opts txt
378380 let srcSuffix = fromMaybe src (stripPrefix "mailto:" src)