From 2797b7644fb9fccd03bfe592f28eaf4015c65de5 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Fri, 22 Feb 2013 19:13:51 +0400
Subject: [PATCH] Remove ctrl-2

Can't recall what it even supposed to be doing
---
 KEYS    |  1 -
 link.c  | 16 ----------------
 main.ml |  6 ------
 3 files changed, 23 deletions(-)

diff --git a/KEYS b/KEYS
index 6b61231..7485807 100644
--- a/KEYS
+++ b/KEYS
@@ -53,7 +53,6 @@ Ctrl-+/Ctrl-=           - zoom in
 Ctrl--                  - zoom out
 Ctrl-0                  - fit page width and reset panning
 Ctrl-1                  - fit page height
-Ctrl-2                  - zoom to ...
 Ctrl-9/F9               - enter bird's eye view
 home/end                - go to first/last page
 pageup/pagedown         - go forward/backward one screen-full
diff --git a/link.c b/link.c
index b017b5b..1d3d93c 100644
--- a/link.c
+++ b/link.c
@@ -3207,22 +3207,6 @@ static double getmaxw (void)
     return maxw;
 }
 
-CAMLprim value ml_getmaxw (value unit_v)
-{
-    CAMLparam1 (unit_v);
-    CAMLlocal1 (ret_v);
-    double maxw = 0.0;
-
-    if (trylock ("ml_getmaxw")) {
-        goto done;
-    }
-    maxw = getmaxw ();
-    unlock ("ml_getmaxw");
- done:
-    ret_v = caml_copy_double (maxw);
-    CAMLreturn (ret_v);
-}
-
 CAMLprim value ml_zoom_for_height (value winw_v, value winh_v,
                                    value dw_v, value cols_v)
 {
diff --git a/main.ml b/main.ml
index d037419..727447c 100644
--- a/main.ml
+++ b/main.ml
@@ -92,7 +92,6 @@ external whatsunder : string -> int -> int -> under = "ml_whatsunder";;
 external zoomforh : int -> int -> int -> int -> float = "ml_zoom_for_height";;
 external drawstr : int -> int -> int -> string -> float = "ml_draw_string";;
 external measurestr : int -> string -> float = "ml_measure_string";;
-external getmaxw : unit -> float = "ml_getmaxw";;
 external postprocess :
   opaque -> int -> int -> int -> (int * string * int) -> int
   = "ml_postprocess";;
@@ -5233,11 +5232,6 @@ let viewkeyboard key mask =
       | [] -> ()
       end
 
-  | 50 when ctrl ->                     (* ctrl-2 *)
-      let maxw = getmaxw () in
-      if maxw > 0.0
-      then setzoom (maxw /. float state.winw)
-
   | 60 | 62 ->                          (* < > *)
       reqlayout (conf.angle + (if key = 62 then 30 else -30)) conf.proportional
 
-- 
2.11.4.GIT