From afbcf9d2d3159f15b2e49ce55000611cae301fc9 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Thu, 21 Feb 2013 16:52:32 +0400
Subject: [PATCH] Reset panning on ctrl-0 unconditionally

---
 main.ml | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index 581bf87..201035a 100644
--- a/main.ml
+++ b/main.ml
@@ -4999,7 +4999,17 @@ let viewkeyboard key mask =
       )
 
   | 48 when ctrl ->                     (* ctrl-0 *)
-      setzoom 1.0
+      if conf.zoom = 1.0
+      then (
+        state.x <- 0;
+        state.hscrollh <-
+          if state.w <= state.winw - state.scrollw
+          then 0
+          else state.scrollw
+        ;
+        gotoy state.y
+      )
+      else setzoom 1.0
 
   | 49 when ctrl ->                     (* ctrl-1 *)
       let cols =
-- 
2.11.4.GIT