anchor.diff:  	_  -> {Tree, false}
       end.
       
  -
  -do_replace_expr_with_fun_call(Tree, {Expr,NewExp, Range})->
  -    case length(Expr) of 
  -	1 -> do_replace_expr_with_fun_call_1(Tree, {NewExp, Range});
  -	_  -> do_replace_expr_with_fun_call_2(Tree, {NewExp, Range})
  -    end.
  -	    
  -
  -do_replace_expr_with_fun_call_1(Tree, {NewExp, Range}) ->
  -     case refac_util:get_range(Tree) of 
  - 	Range ->
  -	    {NewExp, true};
  - 	_  -> {Tree, false}
  -     end.
  -    
  -do_replace_expr_with_fun_call_2(Tree, {NewExp, {StartLoc, EndLoc}}) -> 
  -   case refac_syntax:type(Tree) of
  -	clause ->
  -	    Exprs = refac_syntax:clause_body(Tree),
  -	    {Exprs1, Exprs2} = lists:splitwith(fun(E) -> element(1,refac_util:get_range(E)) =/= StartLoc end, Exprs),
  -	    {NewBody, Modified} = case Exprs2 of 
  -				      [] -> {Exprs, false};
  -				      _ -> {_Exprs21, Exprs22} = lists:splitwith(fun(E) -> element(2, refac_util:get_range(E)) =/= EndLoc end, Exprs),
  -					   case Exprs22 of 
  -					       [] -> {Exprs, false};  %% THIS SHOULD NOT HAPPEN.
  -					       _ -> {Exprs1++[NewExp|tl(Exprs22)], true}
  -					   end
  -				  end,
  -	    Pats = refac_syntax:clause_patterns(Tree),
  -	    G = refac_syntax:clause_guard(Tree),
  -	    {refac_syntax:copy_pos(Tree, refac_syntax:copy_attrs(Tree, refac_syntax:clause(Pats, G, NewBody))), Modified};
  -	block_expr ->
  -	    Exprs = refac_syntax:block_expr_body(Tree),
  -	    {Exprs1, Exprs2} = lists:splitwith(fun(E) -> element(1,refac_util:get_range(E)) =/= StartLoc end, Exprs),
  -	    {NewBody, Modified} = case Exprs2 of 
  -				      [] -> {Exprs, false};
  -				      _ -> {_Exprs21, Exprs22} = lists:splitwith(fun(E) -> element(2, refac_util:get_range(E)) =/= EndLoc end, Exprs),
  -					   case Exprs22 of 
  -					       [] -> {Exprs, false};  %% THIS SHOULD NOT HAPPEN.
  -					       _ -> {Exprs1++[NewExp|tl(Exprs22)], true}
  -					   end
  -				  end,
  -	    {refac_syntax:copy_pos(Tree, refac_syntax:copy_attrs(Tree, refac_syntax:block_expr(NewBody))), Modified};	 
  -	_  -> {Tree, false}
  -    end.
   
   %% =============================================================================================
   %% Search expression/expression sequence with are instances of of the selected function clause.
  
positive.code: %% ==========================================================================================================================
   
  
  do_replace_expr_with_fun_call_eclipse(Tree, {Expr, {Range, NewExp}})->
      case length(Expr) of 
  	1 -> do_replace_expr_with_fun_call_eclipse_1(Tree, {Range, NewExp});
  	_  -> do_replace_expr_with_fun_call_eclipse_2(Tree, {Range, NewExp})
      end.
  						   
  
  
  do_replace_expr_with_fun_call_eclipse_1(Tree, {Range, NewExp}) ->
      case refac_util:get_range(Tree) of 
   	Range ->
  	     {NewExp, true};
   	_  -> {Tree, false}
       end.
   	
  do_replace_expr_with_fun_call_eclipse_2(Tree, {{StartLoc, EndLoc}, NewExp}) ->
        case refac_syntax:type(Tree) of
  	clause ->
  	    Exprs = refac_syntax:clause_body(Tree),
  
negative.code: 			_ ->
  			    Regions = case Editor of
  					emacs ->
  					      FunClauseDef1 = binary_to_list(term_to_binary(FunClauseDef)),
  					      lists:map(fun({{{StartLine, StartCol}, {EndLine, EndCol}},NewExp}) ->
  								NewExp1 = binary_to_list(term_to_binary(NewExp)),
  								{StartLine, StartCol, EndLine, EndCol, NewExp1, FunClauseDef1}
  							end,
  							Candidates);
  					  eclipse -> Candidates
  				      end,
  			    {ok, Regions}
  		      end;
  