From: malc <av1474@comtv.ru>
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