anchor.diff:  	    text(erl_syntax:char_literal(Node));
   	
   	string ->
  -	    lay_string(erl_syntax:string_literal(Node), Ctxt);
  -
  +	    Str = refac_syntax:string_literal(Node),
  +	    case lists:keysearch(toks,1, refac_syntax:get_ann(Node)) of 
  +		{value, {toks, StrToks}} ->
  +		    Str1 = io_lib:write_string(lists:concat(lists:map(fun({string, _, S}) ->S end, StrToks))),
  +		    case Str1==Str of 
  +			true ->  
  +			    lay_string(StrToks);
  +			_  -> 
  +			    lay_string(Str, Ctxt)
  +		    end;			
  +		_ -> lay_string(Str, Ctxt)
  +	    end;
   	nil ->
   	    text("[]");
   
  
positive.code: 					 floating(text(")"))))),
  	    maybe_parentheses(D1, Prec, Ctxt);
  	
  	match_expr ->
  	    {PrecL, Prec, PrecR} = inop_prec('='),
  	    D1 = lay(erl_syntax:match_expr_pattern(Node),
  		     set_prec(Ctxt, PrecL)),
  	    D2 = lay(erl_syntax:match_expr_body(Node),
  		     set_prec(Ctxt, PrecR)),
  	    D3 = follow(beside(D1, floating(text(" ="))), D2,
  			Ctxt#ctxt.break_indent),
  	    maybe_parentheses(D3, Prec, Ctxt);
  
  	underscore ->
  	    text("_");
  
  
negative.code: 
  
  %% =====================================================================
  get_start_line(Node) ->
      case refac_util:get_range(Node) of 
  	{{L, _C}, _} ->
  	     L;
  	_ -> 0
      end.
  
  get_end_line(Node) ->
      case refac_util:get_range(Node) of 
  	{_, {L, _C}} ->
  	    L;
  	_-> 0
      end.
      
  