anchor.diff:  
   search_duplications(Tree, Exp) ->
       F = fun(Node, Acc)-> 
  -		case   %% refac_util:is_expr(Node) andalso 
  -		    refac_syntax:is_literal(Node)andalso
  -		    Node =/= Exp of
  -		    true ->
  -			case refac_syntax:concrete(Node) ==
  -			    refac_syntax:concrete(Exp) of
  -			    true -> [Node|Acc];
  -			    _ -> Acc
  +		As = refac_syntax:get_ann(Node),
  +		case lists:keysearch(category, 1, As) of 
  +		    {value, {category, expression}} ->
  +			case  refac_syntax:is_literal(Node)andalso
  +			    Node =/= Exp of
  +			    true ->
  +				case refac_syntax:concrete(Node) ==
  +				    refac_syntax:concrete(Exp) of
  +				    true -> [Node|Acc];
  +				    _ -> Acc
  +				end;
  +			    false -> Acc
   			end;
  -		    false -> Acc
  +		    _ -> Acc
   		end
   	end,
       case refac_syntax:is_literal(Exp) of
  
positive.code: -spec generalise(FileName::filename(),Start::pos(), End::pos(),ParName::string(),
  		 SearchPaths::[dir()], TabWidth::integer()) ->
  	     {ok, [filename()]}
  		 |{multiple_instances, {atom(), atom(), integer(), pos(), syntaxTree(), bool(),[{pos(), pos()}], string()}}
  		 |{unknown_side_effect, {atom(), atom(),integer(), pos(), syntaxTree(), integer(),
  					 [{pos(), pos()}], [{pos(),pos()}], string()}}
  		 |{more_than_one_clause, {atom(), atom(), integer(), pos(), syntaxTree(), bool(),
  					  [{pos(), pos()}], [{pos(),pos()}], string()}}. 
  
  generalise(FileName, Start, End, ParName, SearchPaths, TabWidth) ->
  
negative.code:     end.
  
  
  -spec(gen_fun_1/11::(SideEffect::boolean(), FileName::filename(),ParName::atom(), FunName::atom(),
  		     Arity::integer(), FunDefPos::pos(), Exp::syntaxTree(), SearchPaths::[dir()],
  		     TabWidth::integer(), Dups::[{pos(), pos()}], LogCmd::string())
        -> {ok, [filename()]}).
  gen_fun_1(SideEffect, FileName,ParName, FunName, Arity, DefPos, Exp, SearchPaths,TabWidth, Dups, LogCmd) ->
      gen_fun_1(SideEffect, FileName,ParName, FunName, Arity, DefPos, Exp, SearchPaths,TabWidth,Dups, emacs, LogCmd).
  
  -spec(gen_fun_1_eclipse/11::(SideEffect::boolean(), FileName::filename(),ParName::atom(), FunName::atom(), 
  			    Arity::integer(), FunDefPos::pos(), Expr::syntaxTree(), SearchPaths::[dir()],
  			    TabWidth::integer(), Dups::[{pos(), pos()}], LogCmd::string()) 
        -> {ok, [{filename(), filename(),string()}]}).
  