@@ -1073,7 +1073,10 @@ accent :: PandocMonad m => Char -> (Char -> String) -> LP m Inlines
1073accent c f = try $ do
1073accent c f = try $ do
1074 ils <- tok
1074 ils <- tok
1075 case toList ils of
1075 case toList ils of
1076− (Str (x:xs) : ys) -> return $ fromList (Str (f x ++ xs) : ys)
1076+ (Str (x:xs) : ys) -> return $ fromList $
1078+ [z] | z == x -> Str ([z,c] ++ xs) : ys -- combining accent
1079+ zs -> Str (zs ++ xs) : ys
1077 [Space] -> return $ str [c]
1080 [Space] -> return $ str [c]
1078 [] -> return $ str [c]
1081 [] -> return $ str [c]
1079 _ -> return ils
1082 _ -> return ils