anchor.diff:  
   -export([rename_fun/6, rename_fun_1/6,  rename_fun_eclipse/6]).
   
  --export([check_atoms/4, try_eval/4, start_atom_process/0, stop_atom_process/1,output_atom_warning_msg/3, apply_style_funs/0]).
  +-export([check_atoms/4, try_eval/4, start_atom_process/0, 
  +	 stop_atom_process/1,output_atom_warning_msg/3, 
  +	 apply_style_funs/0]).
   
   
   -include("../include/wrangler.hrl").
  -%% =====================================================================
  -%% @spec rename_fun(FileName::filename(), Line::integer(), Col::integer(), NewName::string(), SearchPaths::[string()])
  -%% -> term()
  -%%
   
   -define(DEBUG, true).
   
  
positive.code:     {ok, {Mod, Fun, Arity, _, DefinePos}} = refac_util:pos_to_fun_name(AnnAST, {Line, Col}),
      ?wrangler_io("The current file under refactoring is:\n~p\n", [FileName]),
      Pid = start_atom_process(),
      {AnnAST1, _C} = do_rename_fun(FileName, SearchPaths, AnnAST, {Mod, Fun, Arity}, {DefinePos, NewName1}, Pid, TabWidth),
      case refac_util:is_exported({Fun, Arity}, Info) of
        true ->
  	  ?wrangler_io("\nChecking client modules in the following search paths: \n~p\n", [SearchPaths]),
  	  ClientFiles = refac_util:get_client_files(FileName, SearchPaths),
  	  try
  	    rename_fun_in_client_modules(ClientFiles, {Mod, Fun, Arity}, NewName, SearchPaths, TabWidth, Pid)
  	  of
  	    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])
  	  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}])
      end.
  
  -spec(write_files/2::(Editor::atom(), Results::[{{filename(), filename()}, syntaxTree()}]) ->
  
negative.code: 	    case lists:suffix(?DEFAULT_EUNIT_TEST_SUFFIX, NewFunName) of 
  		true ->
  		    ok;
  		_ -> 
  		    throw({warning,"Renaming will make this function no "
  			   "longer an EUnit test function, continue?"})
  	    end;
  	_ -> case lists:suffix(?DEFAULT_EUNIT_GENERATOR_SUFFIX,OldFunName) of 
  		 true ->
  		     case lists:suffix(?DEFAULT_EUNIT_GENERATOR_SUFFIX, NewFunName) of 
  			 true -> 
  			     ok;
  			 _ -> 
  			     throw({warning,"Renaming will make this function no longer "
  				    "an EUnit test generator function,continue?"})
  		     end;
  		 _ ->case lists:suffix(?DEFAULT_EUNIT_TEST_SUFFIX, NewFunName) of 
  			 true -> 
  			     throw({warning, "Renaming will make this function an "
  				    "EUnit test function, continue?"});		     
  			 _ ->
  			     case lists:suffix(?DEFAULT_EUNIT_GENERATOR_SUFFIX,NewFunName) of 
  				 true -> 
  				     throw({warning, "Renaming will make this function an "
  					    "EUnit test geneator function, continue?"});
  				  _ -> 
  				     ok
  			     end
  		     end
  	     end
      end.
  
  eqc_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName) ->
      case lists:keysearch(eqc_statem, 1, UsedFrameWorks) of 
  	{value,_} -> 
  	    eqc_statem_name_checking(OldFunName, Arity, NewFunName);
  	false -> ok
      end,
      case lists:keysearch(eqc, 1, UsedFrameWorks) of 
  	{value,_} -> 
  	    eqc_name_checking(atom_to_list(OldFunName), Arity, atom_to_list(NewFunName));
  	false -> ok
      end.
     
  eqc_name_checking(OldFunName, _Arity, NewFunName) ->
      case lists:prefix("prop_", OldFunName) of 
  	true -> 
  	    case lists:prefix("prop_", NewFunName) of 
  		true -> 
  		    ok;
  		false -> 
  		    throw({warning, "Renaming will make this function no longer a quickcheck property, continue?"})
  	    end;
  	false ->
  	    case lists:prefix("prop_", NewFunName) of 
  		true ->
  		    throw({warning, "Renaming will make this function a quickcheck property, continue?"});
  		false -> ok
  	    end
      end.
  	    
  
  