anchor.diff:  		{ok, Exp1} ->
   		    case  refac_util:expr_to_fun(AnnAST, Exp1) of 
   			{ok, Fun} ->
  +			    NoOfClauses = length(refac_syntax:function_clauses(Fun)),
   			    FunName = refac_syntax:data(refac_syntax:function_name(Fun)),
   			    FunArity = refac_syntax:function_arity(Fun),
   			    Inscope_Funs = lists:map(fun({_M1,F, A})->{F, A} end, refac_util:inscope_funs(Info)),
  
positive.code: 	   {refac_syntax:atom(undefined), true};
  	_ -> {Tree,false}
      end.
  %% =====================================================================
  %%
  do_gen_fun(Tree, {ModName, ParName, FunName, Arity, DefPos,Info, Exp, SideEffect}) ->    
  
negative.code: 					   ok -> 
  					       SideEffect = refac_util:has_side_effect(FileName, Exp1, SearchPaths),
  					       case SideEffect of  
  						   unknown -> {unknown_side_effect, {ParName1, FunName, FunArity, FunDefPos,Exp1, NoOfClauses}};
  						   _ ->
  						       case (NoOfClauses >1) and (Editor==emacs) of 
  							   true-> {more_than_one_clause, {ParName1, FunName, FunArity, FunDefPos, Exp1, SideEffect}};
  							   _ ->
  							       AnnAST1=gen_fun(ModName, AnnAST, ParName1, FunName, FunArity, FunDefPos, Info, Exp1, SideEffect),
  							       case Editor of 
  								   emacs ->
  								       refac_util:write_refactored_files_for_preview([{{FileName,FileName}, AnnAST1}]),
  								       {ok, [FileName]};
  								   eclipse  ->
  								       Res = [{FileName, FileName, refac_prettypr:print_ast(refac_util:file_format(FileName),AnnAST1)}],
  								       {ok, Res}
  							       end
  						       end
  					       end;	     
  					   {error, Reason} -> {error, Reason}
  