>>841
;----------------------------------------
; ディレクトリを中身も一緒に削除する
;----------------------------------------
(add-hook 'dired-mode-hook
'(lambda ()
(defun delete-directory-recursive (dir)
(interactive "s")
(call-process "rm" nil nil nil "-rf" dir))
(defun delete-directory (dir)
(interactive "s")
(delete-directory-recursive dir))))