anchor.diff:  	    {ok, [SE||{_File, SE} <-Res]};	
   	_   -> {error, "You have not selected an expression!"}
       end.     
  +
  +get_expr_selected(FileName, Start, End, SearchPaths, TabWidth) ->
  +    {ok, {AnnAST, _Info}} = refac_util:parse_annotate_file(FileName, true, SearchPaths, TabWidth),
  +    Es = refac_util:pos_to_expr_list(AnnAST, Start, End),
  +    case Es of
  +	[] -> throw({error, "You have not selected an expression!"});
  +	_ -> Es
  +    end.
  +   
  +do_expr_search(FileName, Es, SearchPaths, TabWidth) ->
  +    try  refac_util:parse_annotate_file(FileName, true, SearchPaths, TabWidth) of
  +	{ok, {AnnAST, _}} ->
  +	    case length(Es) of 
  +		1 -> search_one_expr(FileName, AnnAST, hd(Es));
  +		_ -> search_expr_seq(FileName, AnnAST, Es)
  +	    end
  +    catch
  +	_E1:_E2 ->
  +	    []
  +    end.
   
   %% Search the clones of an expression from Tree.
   search_one_expr(FileName, Tree, Exp) ->
  
positive.code:     Res1 =[{FileName, SE}| Res -- [{FileName, SE}]],
      display_search_result(Res1).
  
  get_expr_selected(FileName, Start, End, SearchPaths, TabWidth) ->
      {ok, {AnnAST, _Info}} = refac_util:parse_annotate_file(FileName, true, SearchPaths, TabWidth),
      Es = refac_util:pos_to_expr_list(AnnAST, Start, End),
      case Es of
  	[] -> throw({error, "You have not selected an expression!"});
  	_ -> Es
      end.
     
  do_expr_search(FileName, Es, SearchPaths, TabWidth) ->
      try  refac_util:parse_annotate_file(FileName, true, SearchPaths, TabWidth) of
  	{ok, {AnnAST, _}} ->
  	    case length(Es) of 
  		1 -> search_one_expr(FileName, AnnAST, hd(Es));
  		_ -> search_expr_seq(FileName, AnnAST, Es)
  	    end
      catch
  	_E1:_E2 ->
  	    []
      end.
  
  -spec(expr_search_eclipse/4::(filename(), pos(), pos(), integer()) ->
     {ok, [{{integer(), integer()}, {integer(), integer()}}]} | {error, string()}).
  
negative.code: 		string ->
  		    refac_syntax:default_literals_vars(Node, '%');
  		atom -> case refac_sim_expr_search:variable_replaceable(Node) of
  			    true -> 
  				refac_io:format("Node:\n~p\n", [Node]),
  				As = refac_syntax:get_ann(Node), 
  				case lists:keysearch(type,1, As) of 
  				    {value, _} -> 
  					refac_syntax:default_literals_vars(
  					  Node, refac_syntax:atom_value(Node));
  				    false ->
  					refac_syntax:default_literals_vars(Node, '%') 
  				end;					
  			    _ -> refac_syntax:default_literals_vars(
  				   Node, refac_syntax:atom_value(Node))
  			end;
  