method kill_line ~append =
let b = file#buffer in
let it = b#get_iter `INSERT in
let eol =
if it#ends_line then
it#forward_line
else
it#forward_to_line_end
in
let concat = if append then Some `APPEND else None in
self#cut_to_selection ?concat ~start: it ~stop: eol ()