Make "a" respect presentation mode
authormalc <av1474@comtv.ru>
Tue, 15 Jan 2013 15:24:28 +0000 (15 19:24 +0400)
committermalc <av1474@comtv.ru>
Tue, 15 Jan 2013 15:24:28 +0000 (15 19:24 +0400)
main.ml

diff --git a/main.ml b/main.ml
index e10df16..fb272b6 100644 (file)
--- 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