@@ -300,10 +300,6 @@ blockListToMan opts blocks =
300300
301301-- | Convert list of Pandoc inline elements to man.
302302inlineListToMan :: WriterOptions -> [Inline] -> State WriterState Doc
303−-- if list starts with ., insert a zero-width character \& so it
304−-- won't be interpreted as markup if it falls at the beginning of a line.
305−inlineListToMan opts lst@(Str ('.':_) : _) = mapM (inlineToMan opts) lst >>=
306− (return . (text "\\&" <>) . hcat)
307303inlineListToMan opts lst = mapM (inlineToMan opts) lst >>= (return . hcat)
308304
309305-- | Convert Pandoc inline element to man.
@@ -335,6 +331,8 @@ inlineToMan opts (Cite _ lst) =
335331 inlineListToMan opts lst
336332inlineToMan _ (Code _ str) =
337333 return $ text $ "\\f[C]" ++ escapeCode str ++ "\\f[]"
334+inlineToMan _ (Str str@('.':_)) =
335+ return $ afterBreak "\\&" <> text (escapeString str)
338336inlineToMan _ (Str str) = return $ text $ escapeString str
339337inlineToMan opts (Math InlineMath str) =
340338 inlineListToMan opts $ texMathToInlines InlineMath str