Re: [bep] dired-do-shell-command

[Reiko TAKAHASHI <HFC03614@nifty.ne.jp> (高橋玲子)]

　r高橋です。
なんと、二日前までにしなければならなかったことがまだまだ終わっていないの
で、逃避している場合ではないのですが、もう、とても我慢できません……。

Reply Mitsugu SAKAMOTO <mitsugu@...>'s message:

} ;;; diredでディレクトリを削除
} (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))))

　(interactive "s") の "s" ってなんでしょう？
call-process という関数がすでにあって、そこに六つの引数（"rm" nil nil ni
l "-rf" dir）を入れている？
もしかして、dir というシンボルには、対象になっているディレクトリの名前が
入っている？
delete-directory 関数では、今作ったばかりの delete-directory-recursive 関
数を使っているんですよね？
これを、.emacs(???)に書き込んでディレクトリの削除をしたい場合、M-x delet
e-directory とすることになるんでしょうか？
なぜ、わざわざdelete-directory-recursive を作って、それを delete-directo
ry で使う形にしているんでしょう？


Reply Koichi INOUE <inoue@...>'s message:

} "rm" →"deltree"
} "-rf" →"-y"
} するとWinでもいけたりして。

　そうですよね……！！？　デスクトップ機でできるんなら今やってみたいのだ
けれど……、やっぱり逃避状態じゃなくなるときまでとっておきます。

　ああ、でも書いてすっきりしました(^_^;)。


**-***-***-***-***-***-***-***-***-***-***-***-**
           Reiko TAKAHASHI  (高橋玲子)
         E-mail:  HFC03614@...
         ICQ UIN: 85924121  (Twinkle)
**-***-***-***-***-***-***-***-***-***-***-***-**