anchor.diff:  				      end
   			      end, FilePairs),
   		throw({error, "Wrangler failed to output the refactoring result."});
  -	_ -> wrangler_preview_server:add_files({FilePairs, LogMsg})
  +	_ ->
  +	    LogMsgAboutChanges= io_lib:format(" Num of files affected: ~p;"
  +					      "Num of functions/attributes affected: ~p.\n",
  +					      [length(FilePairs), TotalNoOfChangedFuns]),
  +	    NewLogMsg = LogMsg++ lists:flatten(LogMsgAboutChanges),
  +	    wrangler_preview_server:add_files({FilePairs, NewLogMsg})
       end.
   
   
  
positive.code: 			FileFormat = file_format(FileName),
  			SwpFileName = filename:rootname(FileName, ".erl") ++ ".erl.swp",  %% .erl.swp or .swp.erl?
  			case file:write_file(SwpFileName, list_to_binary(refac_prettypr:print_ast(FileFormat, AST))) of 
  			    ok -> {{filename:join([FileName]),
  				    filename:join([NewFileName]), false},filename:join([SwpFileName])};
  			    {error,Reason} -> Msg = io_lib:format("Wrangler could not write to directory ~s: ~w \n",
  								  [filename:dirname(FileName), Reason]),
  					      throw({error, Msg})
  			end;			
  		    {{FileName,NewFileName, IsNew}, AST} ->
  			FileFormat = file_format(FileName),
  			SwpFileName = filename:rootname(FileName, ".erl") ++ ".erl.swp", 
  			case file:write_file(SwpFileName, list_to_binary(refac_prettypr:print_ast(FileFormat, AST))) of 
  			    ok -> {{filename:join([FileName]),filename:join([NewFileName]), IsNew},filename:join([SwpFileName])};
  			    {error, Reason}  -> 
  				Msg = io_lib:format("Wrangler could not write to directory ~s: ~w \n",
  						    [filename:dirname(FileName), Reason]),
  
negative.code: 
  write_refactored_files(Results, Editor, Cmd) ->
      case Editor of
  	emacs ->
  	    refac_util:write_refactored_files_for_preview(Results, Cmd),
  	    ChangedFiles = lists:map(fun ({{F, _F}, _AST}) -> F end, Results),
  	    FilesToRename=[{F1,F2}||{{F1, F2}, _AST}<-Results, F1/=F2],
  	    ?wrangler_io("The following files are to be changed by this refactoring:\n~p\n",
  			 [ChangedFiles]),
  	  {ok, ChangedFiles, FilesToRename};
  	eclipse ->
  	  Res = lists:map(fun ({{OldFName, NewFName}, AST}) ->
  				  {OldFName, NewFName,
  				   refac_prettypr:print_ast(refac_util:file_format(OldFName), AST)}
  