M-x find-fileで簡単に上のディレクトリを辿りたい

M-x find-fileとかC-x C-fとかでファイルを開く時に、ミニバッファに表示されているパスのbasenameを削除して、上のディレクトリを辿りたい場合がよくあると思います。
ということで、以下の関数を作成してC-wに割り当ててみました。工夫した点は、削除した文字列をkill-ringに入れない点です(kill-ringに入れてもいい場合は、標準のbackward-kill-wordをそのまま使えばよいです)。

;; minibuffer  
(defun minibuffer-delete-path-backward ()
  (interactive)
  (delete-region (point) (progn (forward-word -1) (point))))

(add-hook
 'minibuffer-setup-hook
 '(lambda ()
    (local-set-key "\C-w" 'minibuffer-delete-path-backward)))