anchor.diff:  -export([rename_fun/6, rename_fun_1/6,  rename_fun_eclipse/6]).
   
   -export([check_atoms/4, collect_atoms/2,try_eval/4, start_atom_process/0, 
  -	 stop_atom_process/1,output_atom_warning_msg/3, write_files/2,
  +	 stop_atom_process/1,output_atom_warning_msg/3, write_files/3,
   	 apply_style_funs/0, eqc_statem_callback_funs/0, is_callback_fun/3,
   	 commontest_callback_funs/0,testserver_callback_funs/0]).
   
  
positive.code: 		Results ->
  		    output_atom_warning_msg(Pid, not_renamed_warn_msg(Fun), renamed_warn_msg(Fun)),
  		    stop_atom_process(Pid),
  		    write_files(Editor, [{{FileName, FileName}, AnnAST1}| Results])
  	    catch
  		throw:Err ->
  		    stop_atom_process(Pid),
  
negative.code: 		Results ->
  		    output_atom_warning_msg(Pid, not_renamed_warn_msg(Fun), renamed_warn_msg(Fun)),
  		    stop_atom_process(Pid),
  		    write_files(emacs, [{{FileName, FileName}, AnnAST1}| Results], Cmd)
  	    catch
  		throw:Err -> Err
  	    end;
  	false ->
  	    output_atom_warning_msg(Pid, not_renamed_warn_msg(Fun), renamed_warn_msg(Fun)),
  	    stop_atom_process(Pid),
  	    write_files(emacs, [{{FileName, FileName}, AnnAST1}], Cmd)
      end.
  
  -spec(write_files/3::(Editor::atom(), Results::[{{filename(), filename()}, syntaxTree()}], string()) ->
  	     {ok, [filename()]} | {ok, [{filename(), filename(), string()}]}).
  write_files(Editor, Results, Cmd) ->    
      case Editor of 
  	emacs ->
  	    refac_util:write_refactored_files_for_preview(Results, Cmd),
  	    ChangedFiles = [F ||{{F, _F}, _AST}<-Results],
  	    ?wrangler_io("The following files are to be changed by this refactoring:\n~p\n",
  			 [ChangedFiles]),
  