@@ -242,14 +242,14 @@ runStyleToTransform rPr
242242 , s `elem` emphStyles =
243243 let rPr' = rPr{rStyle = Nothing, isItalic = Nothing}
244244 in
245− case isItalic rPr' of
245+ case isItalic rPr of
246246 Just False -> runStyleToTransform rPr'
247247 _ -> emph . (runStyleToTransform rPr')
248248 | Just s <- rStyle rPr
249249 , s `elem` strongStyles =
250250 let rPr' = rPr{rStyle = Nothing, isBold = Nothing}
251251 in
252− case isItalic rPr' of
252+ case isBold rPr of
253253 Just False -> runStyleToTransform rPr'
254254 _ -> strong . (runStyleToTransform rPr')
255255 | Just True <- isItalic rPr =