@@ -248,7 +248,7 @@ inlineToMan opts (Code str) =
248248inlineToMan opts (Str str) = return $ text $ escapeString str
249249inlineToMan opts (TeX str) = return $ text $ escapeCode str
250250inlineToMan opts (HtmlInline str) = return $ text $ escapeCode str
251−inlineToMan opts (LineBreak) = return $ text "\n.P 0\n"
251+inlineToMan opts (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n"
252252inlineToMan opts Space = return $ char ' '
253253inlineToMan opts (Link txt (src, _)) = do
254254 linktext <- inlineListToMan opts txt