/[mldonkey]/mldonkey/src/gtk2/gui/guiUtf8.ml
ViewVC logotype

Diff of /mldonkey/src/gtk2/gui/guiUtf8.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by spiralvoice, Sat Nov 12 11:16:36 2005 UTC revision 1.4 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC
# Line 19  Line 19 
19    
20  (* Internationalization functions *)  (* Internationalization functions *)
21    
22    open Printf2
23    
24  type lang =  type lang =
25    AR    AR
26  | HY  | HY
# Line 724  let set_default_codeset_list lang = Line 726  let set_default_codeset_list lang =
726    enc_list := List.filter (fun enc -> enc <> charset) !enc_list;    enc_list := List.filter (fun enc -> enc <> charset) !enc_list;
727    enc_list := if (charset <> "UTF-8") then charset::!enc_list else !enc_list;    enc_list := if (charset <> "UTF-8") then charset::!enc_list else !enc_list;
728    List.iter (fun enc ->    List.iter (fun enc ->
729      Printf2.lprintf "Use encoding %s\n" enc;      lprintf "Use encoding %s\n" enc
     flush stdout  
730    ) !enc_list;    ) !enc_list;
731    nenc := List.length !enc_list    nenc := List.length !enc_list
732    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26