From 52a57a53622d55096fa6e4407a98e32a3612ba6e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 12 Nov 2018 09:33:19 -0800
Subject: [PATCH] LaTeX writer: don't emit `[<+->]` unless beamer output,
even if `writerIncremental` is True.
See #5072.
---
src/Text/Pandoc/Writers/LaTeX.hs | 5 +++--
test/command/5072.md | 14 ++++++++++++++
2 files changed, 17 insertions(+), 2 deletions(-)
create mode 100644 test/command/5072.md
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"
diff --git a/test/command/5072.md b/test/command/5072.md
new file mode 100644
index 000000000..414022a80
--- /dev/null
+++ b/test/command/5072.md
@@ -0,0 +1,14 @@
+```
+% pandoc -t latex -i
+1. one
+2. two
+^D
+\begin{enumerate}
+\def\labelenumi{\arabic{enumi}.}
+\tightlist
+\item
+ one
+\item
+ two
+\end{enumerate}
+```