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