anchor.diff:  tokenize_literal(Rest=">" ++ _, S, Acc) ->
       {lists:reverse(Acc), Rest, S};
   tokenize_literal([$& | Rest], S, Acc) ->
  -    {{text, Data}, S1, Rest1} = tokenize_charref(Rest, ?INC_COL(S), []),
  +    {{data, Data, false}, S1, Rest1} = tokenize_charref(Rest, ?INC_COL(S), []),
       tokenize_literal(Rest1, S1, lists:reverse(Data, Acc));
   tokenize_literal(Rest=[C | _], S, Acc) when ?IS_WHITESPACE(C)
                                               orelse C =:= $/
  
positive.code:     Singleton = HasSlash orelse is_singleton(string:to_lower(Tag)),
      {{start_tag, Tag, Attrs, Singleton}, Rest3, S3};
  tokenize(Rest, S) ->
      tokenize_data(Rest, S, []).
  
  %% Internal API
  
  
negative.code:                Unichar ->
                     xmerl_ucs:to_utf8(Unichar)
             end,
      {{data, Data, false}, Rest, ?INC_COL(S)};
  tokenize_charref([C | Rest], S, Acc) ->
      tokenize_charref(Rest, ?INC_COL(S), [C | Acc]).
  
  