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