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 ()