From 34fac208d20824b463301f8e2eb4b2a5c31c72ed Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 3 Jun 2012 09:14:09 -0700
Subject: Fixed `--incremental` behavior for Beamer.

When `--incremental` is used, lists inside block quotes should
appear all at once (as in HTML).
---
 src/Text/Pandoc/Writers/LaTeX.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 7a4dfc3c4..836ef1b50 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -274,7 +274,7 @@ blockToLaTeX (BlockQuote lst) = do
   case lst of
        [b] | beamer && isListBlock b -> do
          oldIncremental <- gets stIncremental
-         modify $ \s -> s{ stIncremental = True }
+         modify $ \s -> s{ stIncremental = not oldIncremental }
          result <- blockToLaTeX b
          modify $ \s -> s{ stIncremental = oldIncremental }
          return result
-- 
cgit v1.2.3