@@ -228,7 +228,7 @@ definitionListItemToMan :: PandocMonad m
228228 -> ([Inline],[[Block]])
229229 -> StateT WriterState m Doc
230230definitionListItemToMan opts (label, defs) = do
231− labelText <- inlineListToMan opts label
231+ labelText <- withFontFeature 'B' (inlineListToMan opts label)
232232 contents <- if null defs
233233 then return empty
234234 else liftM vcat $ forM defs $ \blocks ->
@@ -245,7 +245,7 @@ definitionListItemToMan opts (label, defs) = do
245245 then empty
246246 else text ".RS" $$ rest' $$ text ".RE"
247247 [] -> return empty
248− return $ text ".TP" $$ nowrap (text ".B " <> labelText) $$ contents
248+ return $ text ".TP" $$ labelText $$ contents
249249
250250-- | Convert list of Pandoc block elements to man.
251251blockListToMan :: PandocMonad m