[Mew-Win32 03301] Re: フォルダの削除

[Mitsugu SAKAMOTO]

坂本です。

From: Mitsugu SAKAMOTO <mitsugu at example.com>
Subject: [Mew-Win32 03300] Re: フォルダの削除
Date: Wed, 13 Jun 2001 18:48:10 +0900 (jst)

> > (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))))
> > 
> > などというのが書いてありました。検索したら、
> 
> うわ、さすがだ。

っと言うことで、一応mew-win32だからcygwinが入っていないユーザのために

多分これで動くとおもいます。

(add-hook 'dired-mode-hook
          '(lambda ()
             (defun delete-directory-recursive (dir)
               (interactive "s")
               (call-process "deltree" nil nil nil "-y" dir))
             (defun delete-directory (dir)
               (interactive "s")
               (delete-directory-recursive dir))))