LaTeX writer: ignore --incremental unless -t beamer.

Closes #2843.
This commit is contained in:
John MacFarlane 2016-04-26 21:50:37 -07:00
parent a0fae92847
commit 1985164816

View file

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