@@ -793,12 +793,17 @@ inlineToLaTeX (Note contents) = do
793 (CodeBlock _ _ : _) -> cr
793 (CodeBlock _ _ : _) -> cr
794 _ -> empty
794 _ -> empty
795 let noteContents = nest 2 contents' <> optnl
795 let noteContents = nest 2 contents' <> optnl
796+ opts <- gets stOptions
797+ -- in beamer slides, display footnote from current overlay forward
798+ let beamerMark = if writerBeamer opts
796 modify $ \st -> st{ stNotes = noteContents : stNotes st }
801 modify $ \st -> st{ stNotes = noteContents : stNotes st }
798 if inMinipage
803 if inMinipage
799 then "\\footnotemark{}"
804 then "\\footnotemark{}"
800 -- note: a \n before } needed when note ends with a Verbatim environment
805 -- note: a \n before } needed when note ends with a Verbatim environment
801− else "\\footnote" <> braces noteContents
806+ else "\\footnote" <> beamerMark <> braces noteContents
803protectCode :: [Inline] -> [Inline]
808protectCode :: [Inline] -> [Inline]
804protectCode [] = []
809protectCode [] = []