@@ -508,7 +508,8 @@ blockToLaTeX (RawBlock f x)
508blockToLaTeX (BulletList []) = return empty -- otherwise latex error
508blockToLaTeX (BulletList []) = return empty -- otherwise latex error
509blockToLaTeX (BulletList lst) = do
509blockToLaTeX (BulletList lst) = do
510 incremental <- gets stIncremental
510 incremental <- gets stIncremental
511+ beamer <- writerBeamer `fmap` gets stOptions
511− let inc = if incremental then "[<+->]" else ""
512+ let inc = if beamer && incremental then "[<+->]" else ""
512 items <- mapM listItemToLaTeX lst
513 items <- mapM listItemToLaTeX lst
513 let spacing = if isTightList lst
514 let spacing = if isTightList lst
514 then text "\\tightlist"
515 then text "\\tightlist"