diff options
Diffstat (limited to 'ide/nanoPG.ml')
| -rw-r--r-- | ide/nanoPG.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/nanoPG.ml b/ide/nanoPG.ml index dafb0575d3..fe9e815c90 100644 --- a/ide/nanoPG.ml +++ b/ide/nanoPG.ml @@ -64,7 +64,7 @@ let make_emacs_mode gui name enter_sym bindings = let compile_emacs_modes gui l = List.fold_left (fun (r,s,u,m,d) mode -> let run, set, unset, mask,doc = mode gui in - (fun k -> r k || run k), (fun k -> s k or set k), + (fun k -> r k || run k), (fun k -> s k || set k), (fun () -> u (); unset ()), (fun k -> m k || mask k), d^"\n"^doc) ((fun _ -> false),(fun _ -> false),(fun () -> ()),(fun _ -> false),"") l |