method cvs_add_files ?(binary=false) files =
      let ok, ko = Ocvs_commands.add_files ~binary: binary files in
      (* Update the elements in data. *)
      let _ =
        try self#cvs_status_files ok
        with _ -> ()
      in
      (ok, ko)