method kill_word ?concat forward =
let b = file#buffer in
let it = b#get_iter `INSERT in
let (start,stop) =
if forward then
(it, it#forward_word_end)
else
(it#backward_word_start, it)
in
self#cut_to_selection ?concat ~start ~stop ()