From 52a57a53622d55096fa6e4407a98e32a3612ba6e Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 12 Nov 2018 09:33:19 -0800 Subject: LaTeX writer: don't emit `[<+->]` unless beamer output, even if `writerIncremental` is True. See #5072. --- src/Text/Pandoc/Writers/LaTeX.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 480c97356..57ef589e3 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -709,7 +709,7 @@ blockToLaTeX (BulletList lst) = do blockToLaTeX (OrderedList _ []) = return empty -- otherwise latex error blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do st <- get - let inc = if stIncremental st then "[<+->]" else "" + let inc = if stBeamer st && stIncremental st then "[<+->]" else "" let oldlevel = stOLLevel st put $ st {stOLLevel = oldlevel + 1} items <- mapM listItemToLaTeX lst @@ -759,7 +759,8 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do blockToLaTeX (DefinitionList []) = return empty blockToLaTeX (DefinitionList lst) = do incremental <- gets stIncremental - let inc = if incremental then "[<+->]" else "" + beamer <- gets stBeamer + let inc = if beamer && incremental then "[<+->]" else "" items <- mapM defListItemToLaTeX lst let spacing = if all isTightList (map snd lst) then text "\\tightlist" -- cgit v1.2.3