@@ -278,11 +278,12 @@ runToInlines (Run rs runElems)
278 | Just (s, _) <- rStyle rs
278 | Just (s, _) <- rStyle rs
279 , s `elem` codeStyles =
279 , s `elem` codeStyles =
280 let rPr = resolveDependentRunStyle rs
280 let rPr = resolveDependentRunStyle rs
281+ codeString = code $ concatMap runElemToString runElems
282 return $ case rVertAlign rPr of
283 return $ case rVertAlign rPr of
283− Just SupScrpt -> superscript $ code $ concatMap runElemToString runElems
284+ Just SupScrpt -> superscript codeString
284− Just SubScrpt -> subscript $ code $ concatMap runElemToString runElems
285+ Just SubScrpt -> subscript codeString
285− _ -> code $ concatMap runElemToString runElems
286+ _ -> codeString
286 | otherwise = do
287 | otherwise = do
287 let ils = concatReduce (map runElemToInlines runElems)
288 let ils = concatReduce (map runElemToInlines runElems)
288 return $ (runStyleToTransform $ resolveDependentRunStyle rs) ils
289 return $ (runStyleToTransform $ resolveDependentRunStyle rs) ils