こんにちは、ザキです。 > (defun foo () > (let ((ed::*grep-directory-name-hook* > #'(lambda () > (pop si:*command-line-args*)))) > (declare (special ed::*grep-directory-name-hook*)) > (grep-dialog))) > > とか定義しておいて、-f foo "ディレクトリ" を渡せばたぶ > ん動きます。 おお、動きました! バッチリです。 ありがとうございます。 こんな簡単に(?)できるんならもっと勉強しないとなあ・・・。 では。 ザキ mailto:rudies@xxxxxxxxx