@@ -418,7 +418,14 @@ blockToLaTeX :: PandocMonad m
418blockToLaTeX Null = return empty
418blockToLaTeX Null = return empty
419blockToLaTeX (Div (identifier,classes,kvs) bs) = do
419blockToLaTeX (Div (identifier,classes,kvs) bs) = do
420 beamer <- gets stBeamer
420 beamer <- gets stBeamer
421− linkAnchor <- hypertarget True identifier empty
421+ linkAnchor' <- hypertarget True identifier empty
422+ -- see #2704 for the motivation for adding \leavevmode:
426+ | not (isEmpty linkAnchor')
427+ -> "\\leavevmode" <> linkAnchor' <> "%"
422 let align dir txt = inCmd "begin" dir $$ txt $$ inCmd "end" dir
429 let align dir txt = inCmd "begin" dir $$ txt $$ inCmd "end" dir
423 let wrapDir = case lookup "dir" kvs of
430 let wrapDir = case lookup "dir" kvs of
424 Just "rtl" -> align "RTL"
431 Just "rtl" -> align "RTL"