Distinguish between single and double quotes when using enquote packa…

…ge (#6457)
jgm · Jun 14, 2020 · a0559d9 · a0559d9
1 parent 16889a0
commit a0559d9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -1234,7 +1234,9 @@ inlineToLaTeX (Quoted qt lst) = do
   csquotes <- liftM stCsquotes get
   opts <- gets stOptions
   if csquotes
-     then return $ "\\enquote" <> braces contents
+     then return $ case qt of
+               DoubleQuote -> "\\enquote" <> braces contents
+               SingleQuote -> "\\enquote*" <> braces contents
      else do
        let s1 = if not (null lst) && isQuoted (head lst)
                    then "\\,"