@@ -1272,9 +1272,13 @@ inlineToOpenXML' opts (Span (ident,classes,kvs) ils) = do
1272 $ inlinesToOpenXML opts ils
1272 $ inlinesToOpenXML opts ils
1273 wrapBookmark ident contents
1273 wrapBookmark ident contents
1274inlineToOpenXML' opts (Strong lst) =
1274inlineToOpenXML' opts (Strong lst) =
1275+ withTextProp (mknode "w:b" [] ()) $
1276+ withTextProp (mknode "w:bCs" [] ()) $ -- needed for LTR, #6911
1275− withTextProp (mknode "w:b" [] ()) $ inlinesToOpenXML opts lst
1277+ inlinesToOpenXML opts lst
1276inlineToOpenXML' opts (Emph lst) =
1278inlineToOpenXML' opts (Emph lst) =
1279+ withTextProp (mknode "w:i" [] ()) $
1280+ withTextProp (mknode "w:iCs" [] ()) $ -- needed for LTR, #6911
1277− withTextProp (mknode "w:i" [] ()) $ inlinesToOpenXML opts lst
1281+ inlinesToOpenXML opts lst
1278inlineToOpenXML' opts (Underline lst) =
1282inlineToOpenXML' opts (Underline lst) =
1279 withTextProp (mknode "w:u" [("w:val","single")] ()) $
1283 withTextProp (mknode "w:u" [("w:val","single")] ()) $
1280 inlinesToOpenXML opts lst
1284 inlinesToOpenXML opts lst