環境
Macbook Air (US keyboard)
elisp
Meta-backspace で1単語を消してくれるのは便利なんですけど、いちいち kill-ring に入ってほしくない。用途としては、ただ消したいのであって後からその文字列をペースト（ヤンク）したいわけではないからです。こういう人は多いと思います。
結論から言うと、http://www.emacswiki.org/emacs/BackwardDeleteWord でおｋ．
上記URLからLispを転記すると、以下のとおり。
(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))))
(defun backward-delete-word (arg)
"Delete characters backward until encountering the end of a word.
With argument, do this that many times."
(interactive "p")
(delete-word (- arg)))
(global-set-key (read-kbd-macro "<M-DEL>") 'backward-delete-word)
を init.el に追加するだけでOK。注意してほしいのは、
(global-set-key [(meta backspace)] 'backward-delete-word) ;; doesn't work
これだと何故かうまくいかないということ。もしかしたら Windows ではちゃんと動くかも。
また、上記に定義されている delete-word がキーマップに割あたっていないので、 M-d に割り当てるようにします。
(global-set-key [(meta d)] 'delete-word) ;; works fine!
こちらはちゃんと動きます。