From f44e5e931aeb3d7e4e68c5077dbc78a1af649f18 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 19 Feb 2012 11:23:17 +0400
Subject: [PATCH] Make "update cursor" user settable

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

diff --git a/main.ml b/main.ml
index a85def7..487485c 100644
--- a/main.ml
+++ b/main.ml
@@ -3873,6 +3873,9 @@ let enterinfomode =
       src#bool "checkers"
         (fun () -> conf.checkers)
         (fun v -> conf.checkers <- v; setcheckers v);
+      src#bool "update cursor"
+        (fun () -> conf.updatecurs)
+        (fun v -> conf.updatecurs <- v);
       src#bool "verbose"
         (fun () -> conf.verbose)
         (fun v -> conf.verbose <- v);
@@ -5213,6 +5216,7 @@ struct
         | "birds-eye-columns" ->
             { c with beyecolumns = Some (max (int_of_string v) 2) }
         | "selection-command" -> { c with selcmd = unent v }
+        | "update-cursor" -> { c with updatecurs = bool_of_string v }
         | _ -> c
       with exn ->
         prerr_endline ("Error processing attribute (`" ^
@@ -5305,6 +5309,7 @@ struct
     dst.columns        <- src.columns;
     dst.beyecolumns    <- src.beyecolumns;
     dst.selcmd         <- src.selcmd;
+    dst.updatecurs     <- src.updatecurs;
   ;;
 
   let get s =
@@ -5639,6 +5644,7 @@ struct
     oco "columns" c.columns dc.columns;
     obeco "birds-eye-columns" c.beyecolumns dc.beyecolumns;
     os "selection-command" c.selcmd dc.selcmd;
+    ob "update-cursor" c.updatecurs dc.updatecurs;
   ;;
 
   let save () =
-- 
2.11.4.GIT