diff options
| author | monate | 2003-04-24 11:21:48 +0000 |
|---|---|---|
| committer | monate | 2003-04-24 11:21:48 +0000 |
| commit | cf706576978e52eff05df990adcbce63465549c0 (patch) | |
| tree | 20237bd4fd9bd37bd5ee30299bf36c4bda8c55d5 /ide/ideutils.ml | |
| 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/ideutils.ml')
| -rw-r--r-- | ide/ideutils.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index e7c5b1073c..d5d1490fe0 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 |