@@ -500,12 +500,13 @@ blockToLaTeX (Div (identifier,classes,kvs) bs) = do
500500 else blockListToLaTeX bs
501501 modify $ \st -> st{ stIncremental = oldIncremental }
502502 linkAnchor' <- hypertarget True identifier empty
503− -- see #2704 for the motivation for adding \leavevmode:
503+ -- see #2704 for the motivation for adding \leavevmode
504+ -- and #7078 for \vadjust pre
504505 let linkAnchor =
505506 case bs of
506507 Para _ : _
507508 | not (isEmpty linkAnchor')
508− -> "\\leavevmode" <> linkAnchor' <> "%"
509+ -> "\\leavevmode\\vadjust pre{" <> linkAnchor' <> "}%"
509510 _ -> linkAnchor'
510511 wrapNotes txt = if beamer && "notes" `elem` classes
511512 then "\\note" <> braces txt -- speaker notes