> kill-word をほんの少しいじるだけで作れる。
でけた。ほんとに簡単だった。

(defun delete-word (arg)
"Delete characters forward until encountering the end of a word.
With argument, do this that many times."
(interactive "p")
(delete-region (point) (progn (forward-word arg) (point))))