anchor.diff:      end,
       Token = #yaml_tag_directive{
         handle = Handle1,
  -      line   = Line,
  -      column = Col
  +      line   = Dir_Line,
  +      column = Dir_Col
       },
       Error = #yaml_parsing_error{
         name   = invalid_tag_directive,
         token  = Token,
  -      line   = ?CURSOR_LINE(Parser),
  -      column = ?CURSOR_COLUMN(Parser)
  +      line   = Line,
  +      column = Col
       },
       Parser1 = add_error(Parser, Error,
         "Invalid tag handle in TAG directive", []),
  -    return(Parser1);
  -parse_tag_directive_handle(#yaml_parser{chars = [], raw_eos = true} = Parser,
  -  #tag_directive_ctx{handle = Handle, line = Line, col = Col}) ->
  +    return(Chars, Line, Col, Delta, Parser1);
  +parse_tag_directive_handle([] = Chars, Line, Col, Delta,
  +  #yaml_parser{raw_eos = true} = Parser,
  +  #tag_directive_ctx{handle = Handle, line = Dir_Line, col = Dir_Col}) ->
       %% Invalid end-of-stream while parsing major version number.
       Handle1 = case Handle of
           undefined -> Handle;
  
positive.code:     Parser1 = add_error(Parser, Error,
        "An implicit key must not span several lines", []),
      queue_impl_key2(Parser1);
  queue_impl_key(#yaml_parser{last_token_endline = Line,
      ik_stack = [#impl_key{line = Impl_Line} = Impl_Key | _]} = Parser)
    when Line > Impl_Line andalso ?IN_FLOW_CTX(Parser) ->
      %% An implicit key must not span several lines.
  
negative.code:       cur_coll     = New_Coll,
        parent_colls = [Cur_Coll | Colls]
      },
      queue_token_keep_last_pos(Parser2, Token, next_insert_at(Insert_At, 1));
  queue_token_check_collection_start(
    #yaml_parser{
      cur_coll = #fcoll{kind = sequence} = Cur_Coll,
  