From 7cfc4e5146be5666419451bdd516f1f3f264d24a Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Sun, 25 Jan 2015 14:42:51 +0100 Subject: Imported Upstream version 8.5~beta1+dfsg --- ide/utils/configwin_types.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ide/utils/configwin_types.ml') diff --git a/ide/utils/configwin_types.ml b/ide/utils/configwin_types.ml index 5e2b1e7c..ace751c6 100644 --- a/ide/utils/configwin_types.ml +++ b/ide/utils/configwin_types.ml @@ -52,7 +52,7 @@ let string_to_key s = | '4' -> `MOD4 | '5' -> `MOD5 | _ -> - prerr_endline s; + Minilib.log s; raise Not_found in mask := m :: !mask @@ -65,7 +65,7 @@ let string_to_key s = !mask, List.assoc key name_to_keysym with e -> - prerr_endline s; + Minilib.log s; raise e let key_to_string (m, k) = @@ -116,7 +116,7 @@ let value_to_key v = match v with Raw.String s -> string_to_key s | _ -> - prerr_endline "value_to_key"; + Minilib.log "value_to_key"; raise Not_found let key_to_value k = -- cgit v1.2.3