anchor.diff:  	    case F(Tree) of
   	     true -> [Tree];
   	     _ ->
  -		 Ts = refac_syntax:subtrees(Tree),
  -                 R0 = [[pos_to_syntax_units_1(T, Start, End, F) || T <- G]
  -		       || G <- Ts],
  -		 lists:append(R0)
  -	   end;
  +		    Ts = refac_syntax:subtrees(Tree),
  +		    R0 = [[pos_to_syntax_units_1(T, Start, End, F) || T <- G]
  +			  || G <- Ts],
  +		    lists:append(R0)
  +	    end;
          (S > End) or (E < Start) -> [];
          (S < Start) or (E > End) ->
  -	   Ts = refac_syntax:subtrees(Tree),
  +	    Ts = refac_syntax:subtrees(Tree),
   	   R0 = [[pos_to_syntax_units_1(T, Start, End, F) || T <- G]
   		 || G <- Ts],
   	   lists:append(R0);
  
positive.code: 	  refac_syntax:add_ann({range, {S1, E}}, Node);
        if_expr ->
  	  Cs = refac_syntax:if_expr_clauses(Node),
  	  Hd = ghead("refac_util:do_add_range, if_expr", Cs),
  	  La = glast("refac_util:do_add_range, if_expr", Cs),
  	  {S1, _E1} = get_range(Hd),
  	  {_S2, E2} = get_range(La),
  	  S11 = extend_forwards(Toks, S1, 'if'),
  	  E21 = extend_backwards(Toks, E2, 'end'),
  	  refac_syntax:add_ann({range, {S11, E21}}, Node);
        cond_expr ->
  	  Cs = refac_syntax:cond_expr_clauses(Node),
  	  Hd = ghead("refac_util:do_add_range, cond_expr", Cs),
  	  La = glast("refac_util:do_add_range, cond_expr", Cs),
  	  {S1, _E1} = get_range(Hd),
  	  {_S2, E2} = get_range(La),
  	  S11 = extend_forwards(Toks, S1, 'cond'),
  	  E21 = extend_backwards(Toks, E2, 'end'),
  	  refac_syntax:add_ann({range, {S11, E21}}, Node);
        infix_expr ->
  	  Left = refac_syntax:infix_expr_left(Node),
  	  Right = refac_syntax:infix_expr_right(Node),
  
negative.code: pos_to_expr(Tree, Start, End) ->
      Es =pos_to_syntax_units(Tree, Start, End, fun is_expr/1),
      case Es of
  	[] -> {error, "You have not selected an expression, "
  	       "or the function containing the expression selected does not parse."};
  	_ -> {ok, hd(Es)}
      end.
  
  