anchor.diff:  	    {V, {FileName, Ln, Col}}
       end.
   	    				
  -
  -
  -pos_to_syntax_units(Tree, {Start,{EndLine, EndCol}}) ->    
  -    %% The next expression is only a quick fix;
  -    %% EndCol currently refers to the start loc of a token, 
  -    %% but to be correct, it should be the end loc of the token.
  -    ExprOrFuns = refac_util:pos_to_syntax_units(Tree, Start, {EndLine, EndCol+5}, fun is_expr_or_fun/1),
  -    case ExprOrFuns of 
  -	[] -> [];
  -	_ -> [ExprOrFuns]
  -    end.
  -
   
   is_expr_or_fun(Node) ->
       case refac_syntax:type(Node) of 
  
positive.code:     Cs6 = remove_sub_clones(Cs5),
      ?debug("current time:~p\n", [time()]),
      case length(FileNames) of
           1 -> display_clones(Cs6);
           _ -> display_clones1(Cs6)
        end,
      ?debug("No of Clones found:\n~p\n", [length(Cs6)]),
      ?debug("Clones:\n~p\n", [Cs6]),
  
negative.code: 			    case lists:keysearch(File1, 1, AnnASTs) of
  				{value, {File1, AnnAST}} ->
  				    {value, {File1, Toks}} = lists:keysearch(File1, 1, ToksLists),
  				    Units = refac_util:pos_to_syntax_units(File1, AnnAST, {L1, C1},{L2, C2}, fun is_expr_or_fun/1), 
  				    case Units =/= [] of 
  					true -> 
  					    Fun2 = fun(U) ->
  							   {StartLoc, _} = refac_util:get_range(hd(U)),
  							   {_, EndLoc} = refac_util:get_range(lists:last(U)),
  							   Toks1 =lists:dropwhile(fun(T) ->token_loc(T)=< S end, Toks),
  							   Toks11 = lists:takewhile(fun(T) ->token_loc(T) =< StartLoc end, Toks1),
  							   Toks2 = lists:dropwhile(fun(T) ->token_loc(T) =< EndLoc end, Toks1),
  