From 48368061a1ab3f9def9e63fbb01966c14effbd74 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 23 Jul 2011 08:36:41 -0700
Subject: LaTeX writer: don't set stVerbInNote unnecessarily.

---
 src/Text/Pandoc/Writers/LaTeX.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index c4eac4cd9..f169bf553 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -372,10 +372,11 @@ inlineToLaTeX (Cite cits lst) = do
 
 inlineToLaTeX (Code _ str) = do
   st <- get
-  when (stInNote st) $ modify $ \s -> s{ stVerbInNote = True }
-  let chr = ((enumFromTo '!' '~') \\ str) !! 0
   if writerListings (stOptions st)
-    then return $ text $ "\\lstinline" ++ [chr] ++ str ++ [chr]
+    then do
+      when (stInNote st) $ modify $ \s -> s{ stVerbInNote = True }
+      let chr = ((enumFromTo '!' '~') \\ str) !! 0
+      return $ text $ "\\lstinline" ++ [chr] ++ str ++ [chr]
     else return $ text $ "\\texttt{" ++ stringToLaTeX str ++ "}"
 inlineToLaTeX (Quoted SingleQuote lst) = do
   contents <- inlineListToLaTeX lst
-- 
cgit v1.2.3