let backward_kill_word v args =
  let concat =
    if Cam_commands.same_previous_command () then
      Some `PREPEND
    else
      None
  in
  v#kill_word ?concat false