From 9a91390f0e49525dabd0c48083839b1024545a13 Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Thu, 25 Aug 2016 19:23:37 +0300
Subject: [PATCH] Use centered zooming pervasively

---
 main.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/main.ml b/main.ml
index 371dbaf..bc748c7 100644
--- a/main.ml
+++ b/main.ml
@@ -2279,7 +2279,7 @@ let optentry mode _ key =
         let ondone s =
           try
             let zoom = float (int_of_string s) /. 100.0 in
-            setzoom zoom
+            pivotzoom zoom
           with exn ->
             state.text <- Printf.sprintf "bad integer `%s': %s" s @@ exntos exn
         in
@@ -3732,7 +3732,7 @@ let enterinfomode =
 
     src#int "zoom"
       (fun () -> truncate (conf.zoom *. 100.))
-      (fun v -> setzoom ((float v) /. 100.));
+      (fun v -> pivotzoom ((float v) /. 100.));
 
     src#int "rotation"
       (fun () -> conf.angle)
-- 
2.11.4.GIT