From 774f9bb0882709aedf4d5fbe953c179da83e2922 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Tue, 15 Jan 2013 19:24:28 +0400
Subject: [PATCH] Make "a" respect presentation mode

---
 main.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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
-- 
2.11.4.GIT