@@ -190,7 +190,7 @@ stringToLaTeX _ [] = return ""
190stringToLaTeX ctx (x:xs) = do
190stringToLaTeX ctx (x:xs) = do
191 opts <- gets stOptions
191 opts <- gets stOptions
192 rest <- stringToLaTeX ctx xs
192 rest <- stringToLaTeX ctx xs
193− let ligatures = writerTeXLigatures opts && not (ctx == CodeString)
193+ let ligatures = writerTeXLigatures opts && (ctx /= CodeString)
194 let isUrl = ctx == URLString
194 let isUrl = ctx == URLString
195 when (x == '€') $
195 when (x == '€') $
196 modify $ \st -> st{ stUsesEuro = True }
196 modify $ \st -> st{ stUsesEuro = True }