anchor.diff:      {_S2,E2} = get_range(Field),
       refac_syntax:add_ann({range,{S1,E2}},Node).
   
  +calc_and_add_range_to_node_1(Node, Toks, StartNode, EndNode, StartWord, EndWord) ->
  +    {S1,_E1} = get_range(StartNode),
  +    {_S2,E2} = get_range(EndNode),
  +    S11 = extend_forwards(Toks,S1,StartWord),
  +    E21 = extend_backwards(Toks,E2,EndWord),
  +    refac_syntax:add_ann({range,{S11,E21}},Node).
  +
  +
   get_range(Node) ->
        As = refac_syntax:get_ann(Node),
        case lists:keysearch(range, 1, As) of
  
positive.code: add_range_to_list_node(Node, Toks, Es, Str1, Str2, KeyWord1, KeyWord2) ->
      Hd = refac_util:ghead(Str1, Es),
      La = refac_util:glast(Str2, Es),
      {S1, _E1} = get_range(Hd),
      {_S2, E2} = get_range(La),
      S11 = extend_forwards(Toks, S1, KeyWord1),
      E21 = extend_backwards(Toks, E2, KeyWord2),
      refac_syntax:add_ann({range, {S11, E21}}, Node).
  
  add_range_to_body(Node, B, Str1, Str2) ->
      H = refac_util:ghead(Str1, B),
  
negative.code: 		_ ->
  		    Hd = refac_util:ghead("do_add_range:binary", Fs),
  		    Last = refac_util:glast("do_add_range:binary", Fs),
  		    calc_and_add_range_to_node_1(Node, Toks, Hd, Last, "<<", ">>")
  	    end;
  	binary_field ->
  	    Body = refac_syntax:binary_field_body(Node),
  