[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [bep] dired-do-shell-command
- To: bep@argv.org
- Subject: Re: [bep] dired-do-shell-command
- From: Mitsugu SAKAMOTO <mitsugu@argv.org>
- Date: Wed, 13 Jun 2001 19:19:05 +0900 (jst)
- Delivered-To: mailing list bep@argv.org
- Mailing-List: contact bep-help@argv.org; run by ezmlm
- Organization: Accessibility Research Group for the Visually impaired(ARGV)
坂本です。
From: Koichi INOUE <inoue@...>
Subject: Re: [bep] dired-do-shell-command
Date: 13 Jun 2001 19:04:31 +0900
> "rm" →"deltree"
> "-rf" →"-y"
> するとWinでもいけたりして。
その通りな用です。多分こっちのほうが早い。
;;; diredでディレクトリを削除
(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))))
--- Mitsugu