anchor.diff:      %% Keep white spaces in a separate buffer. If we find content later,
       %% this buffer will be merged with the result buffer. Otherwise, the
       %% white spaces buffer may be trimmed or dropped.
  -    {Col1, Delta1} = next_col(Col, Delta, 1),
  +    {Col1, Delta1} = ?NEXT_COL(Col, Delta, 1),
       Ctx1 = Ctx#flow_scalar_ctx{
         spaces = [C | Spaces]
       },
  
positive.code: parse_tag_directive_handle([C | Rest], Line, Col, Delta,  Parser,
    #tag_directive_ctx{handle = undefined} = Ctx) when ?IS_SPACE(C) ->
      %% Skip leading white spaces.
      {Col1, Delta1} = next_col(Col, Delta, 1),
      parse_tag_directive_handle(Rest, Line, Col1, Delta1, Parser, Ctx);
  parse_tag_directive_handle([] = Chars, Line, Col, Delta,
    #yaml_parser{raw_eos = false} = Parser, Ctx) ->
  
negative.code: parse_tag_shorthand([$! | Rest], Line, Col, Delta, Parser,
    #tag_ctx{prefix = "!", suffix = Suffix} = Ctx) ->
      %% Separator between the prefix and the suffix.
      {Col1, Delta1} = ?NEXT_COL(Col, Delta, 1),
      Ctx1 = Ctx#tag_ctx{
        prefix = "!" ++ lists:reverse(Suffix) ++ "!",
        suffix = ""
  