@@ -793,12 +793,17 @@ inlineToLaTeX (Note contents) = do
793793 (CodeBlock _ _ : _) -> cr
794794 _ -> empty
795795 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
799+ then text "<.->"
800+ else empty
796801 modify $ \st -> st{ stNotes = noteContents : stNotes st }
797802 return $
798803 if inMinipage
799804 then "\\footnotemark{}"
800805 -- note: a \n before } needed when note ends with a Verbatim environment
801− else "\\footnote" <> braces noteContents
806+ else "\\footnote" <> beamerMark <> braces noteContents
802807
803808protectCode :: [Inline] -> [Inline]
804809protectCode [] = []