diff options
author | Enrico Tassi <gareuselesinge@debian.org> | 2015-01-25 14:43:16 +0100 |
---|---|---|
committer | Enrico Tassi <gareuselesinge@debian.org> | 2015-01-25 14:43:16 +0100 |
commit | f219abfed720305c13875c3c63f9240cf63f78bc (patch) | |
tree | 69d2c026916128fdb50b8d1c0dbf1be451340d30 /ide/utils/configwin_types.ml | |
parent | 476d60ef0fe0ac015c1e902204cdd7029e10ef0f (diff) | |
parent | cec4741afacd2e80894232850eaf9f9c0e45d6d7 (diff) |
Merge tag 'upstream/8.5_beta1+dfsg'
Upstream version 8.5~beta1+dfsg
Diffstat (limited to 'ide/utils/configwin_types.ml')
-rw-r--r-- | ide/utils/configwin_types.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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 = |