From: malc Date: Tue, 15 Jan 2013 15:24:28 +0000 (+0400) Subject: Make "a" respect presentation mode X-Git-Tag: v14~64 X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/774f9bb0882709aedf4d5fbe953c179da83e2922 Make "a" respect presentation mode --- diff --git a/main.ml b/main.ml index e10df16..fb272b6 100644 --- a/main.ml +++ b/main.ml @@ -2518,7 +2518,12 @@ let act cmds = cmds (Printexc.to_string exn); exit 1; in - state.anchor <- (n, float t /. float h, 0.0) + let top, dtop = + if conf.presentation + then (0.0, 1.0) + else float t, 0.0 + in + state.anchor <- (n, top /. float h, dtop) | "info" -> state.docinfo <- (1, args) :: state.docinfo