diff options
| author |  monate <monate@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-24 11:21:48 +0000 |
|---|---|---|
| committer | monate <monate@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-24 11:21:48 +0000 |
| commit | cf706576978e52eff05df990adcbce63465549c0 (patch) | |
| tree | 20237bd4fd9bd37bd5ee30299bf36c4bda8c55d5 /ide | |
| parent | 5bb03931068aa9f453f74bdfe7f96219bda44d65 (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3949 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/coqide.ml | 4 | ||||
| -rw-r--r-- | ide/ideutils.ml | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index c38188987..b8a2d0e94 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1097,7 +1097,7 @@ Please restart and report NOW."; method undo_last_step = if Mutex.try_lock coq_may_stop then - (!push_info "Undoing..."; + (!push_info "Undoing last step..."; (try let last_command = top () in let start = input_buffer#get_iter_at_mark last_command.start in @@ -1147,7 +1147,7 @@ Please restart and report NOW."; self#backtrack_to_no_lock start end; with - | Size 0 -> !flash_info "Nothing to Undo" + | Size 0 -> (* !flash_info "Nothing to Undo"*)() ); !pop_info (); Mutex.unlock coq_may_stop) diff --git a/ide/ideutils.ml b/ide/ideutils.ml index e7c5b1073..d5d1490fe 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -60,7 +60,7 @@ let try_convert s = Please set your locale according to your file encoding.*)" let do_convert s = - if Glib.Utf8.validate s then s else + if Glib.Utf8.validate s then (prerr_endline "Input is UTF-8";s) else try (prerr_endline "Coqide warning: input is not UTF-8 encoded. Trying to convert from locale."; @@ -74,14 +74,14 @@ let try_export file_name s = try let s = if (fst (Glib.Convert.get_charset ())) then - s + (prerr_endline "Charset is UTF-8" ;s) else (try Glib.Convert.locale_from_utf8 s with _ -> - try +(* try prerr_endline "Warning: exporting to ISO8859-1"; Glib.Convert.convert s ~to_codeset:"UTF-8" ~from_codeset:"ISO-8859-1" - with _ -> + with _ -> *) prerr_endline "Warning: exporting to utf8";s) in let oc = open_out file_name in |