let f_open_file ?(char=0) file = let com = Printf.sprintf "%s %s %d" open_source_command#get (Filename.quote file) ((Cam_misc.line_of_char file char)+1) in Cam_commands.eval_command com