anchor.diff:  
   add_to_line_no(
   		[],
  -		_
  -	)
  -	->
  -		[];
  +		_,
  +		Res
  +	)
  +	->
  +		lists:reverse(Res);
   add_to_line_no(
   		[#ee_buffer_line{line_no = LineNo} = Line|T],
  -		Number
  -	)
  -	->
  -		[Line#ee_buffer_line{line_no = LineNo + Number}|add_to_line_no(T, Number)].
  +		Number,
  +		Res
  +	)
  +	->
  +		add_to_line_no(T, Number, [Line#ee_buffer_line{line_no = LineNo + Number}|Res]).
   
   %%--------------------------------------------------------------------
   
  
positive.code: 	)
  	->
  		erlang:error(bad_line_number).
  
  get_line_test_()
  	->
  
negative.code: 
  %%--------------------------------------------------------------------
  
  insert_eol_test_()
  	->
  		[
  		?_assertEqual(
  			#ee_buffer{lines = [
  				#ee_buffer_line{line_no = 1, contents = "", eol = eol_lf}
  				]},
  			insert_eol(
  				#ee_buffer{lines = []},
  				ee_buffer_coords:new(1, 1))
  			),
  		?_assertEqual(
  			#ee_buffer{lines = [
  				#ee_buffer_line{line_no = 1, contents = "", eol = eol_lf},
  				#ee_buffer_line{line_no = 2, contents = "Text", eol = none}
  				]},
  			insert_eol(
  				#ee_buffer{lines = [
  					#ee_buffer_line{line_no = 1, contents = "Text", eol = none}
  					]},
  				ee_buffer_coords:new(1, 1))
  			),
  		?_assertEqual(
  			#ee_buffer{lines = [
  				#ee_buffer_line{line_no = 1, contents = "Te", eol = eol_lf},
  				#ee_buffer_line{line_no = 2, contents = "xt", eol = none}
  				]},
  			insert_eol(
  				#ee_buffer{lines = [
  					#ee_buffer_line{line_no = 1, contents = "Text", eol = none}
  					]},
  				ee_buffer_coords:new(1, 3))
  			),
  		?_assertEqual(
  			#ee_buffer{lines = [
  				#ee_buffer_line{line_no = 1, contents = "Text", eol = eol_lf}
  				]},
  			insert_eol(
  				#ee_buffer{lines = [
  					#ee_buffer_line{line_no = 1, contents = "Text", eol = none}
  					]},
  				ee_buffer_coords:new(1, 5))
  			),
  		?_assertError(
  			bad_buffer_coords,
  			insert_eol(
  				#ee_buffer{lines = [
  					#ee_buffer_line{line_no = 1, contents = "Text", eol = none}
  					]},
  				ee_buffer_coords:new(1, 6))
  			),
  		?_assertEqual(
  			#ee_buffer{lines = [
  				#ee_buffer_line{line_no = 1, contents = "Text1", eol = eol_lf},
  				#ee_buffer_line{line_no = 2, contents = "", eol = eol_lf},
  				#ee_buffer_line{line_no = 3, contents = "Text2", eol = eol_lf},
  				#ee_buffer_line{line_no = 4, contents = "Text3", eol = none}
  				]},
  			insert_eol(
  				#ee_buffer{lines = [
  					#ee_buffer_line{line_no = 1, contents = "Text1", eol = eol_lf},
  					#ee_buffer_line{line_no = 2, contents = "Text2", eol = eol_lf},
  					#ee_buffer_line{line_no = 3, contents = "Text3", eol = none}
  					]},
  				ee_buffer_coords:new(2, 1))
  			),
  		?_assertEqual(
  			#ee_buffer{lines = [
  				#ee_buffer_line{line_no = 1, contents = "Text1", eol = eol_lf},
  				#ee_buffer_line{line_no = 2, contents = "Text2", eol = eol_lf},
  				#ee_buffer_line{line_no = 3, contents = "", eol = eol_lf},
  				#ee_buffer_line{line_no = 4, contents = "Text3", eol = none}
  				]},
  			insert_eol(
  				#ee_buffer{lines = [
  					#ee_buffer_line{line_no = 1, contents = "Text1", eol = eol_lf},
  					#ee_buffer_line{line_no = 2, contents = "Text2", eol = eol_lf},
  					#ee_buffer_line{line_no = 3, contents = "Text3", eol = none}
  					]},
  				ee_buffer_coords:new(2, 6))
  			),
  		?_assertError(
  			bad_buffer_coords,
  			insert_eol(
  				#ee_buffer{lines = [
  					#ee_buffer_line{line_no = 1, contents = "Text1", eol = eol_lf},
  					#ee_buffer_line{line_no = 2, contents = "Text2", eol = eol_lf},
  					#ee_buffer_line{line_no = 3, contents = "Text3", eol = none}
  					]},
  				ee_buffer_coords:new(4, 1))
  			)
  		].
  
  %%--------------------------------------------------------------------
  %% @doc Removes one character to the left of a given coordinate in an ee_buffer object.
  %% @end
  