[xyzzy:08062] Re: grep 時に外部コマンドで引数を渡す方法

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

kenken-KaMailさん、こんにちは。

	2002年2月8日(金)[22:25:59]の、
	[xyzzy:08057] grep 時に外部コマンドで引数を渡す方法
	への返事です。

| 質問なんですが、外部コマンドから引数を渡して、
| grepかけることっていうのはできますでしょうか？

そのようなインターフェースは用意されていません。
むりやりやるならこんな感じでしょうか。

(defun foo ()
  (require "grepd")
  (let (b)
    (unwind-protect
	(save-excursion
	  (when si:*command-line-args*
	    (setq b (create-new-buffer "foo"))
	    (set-buffer b)
	    (insert (pop si:*command-line-args*))
	    (selection-whole-buffer))
	  (let ((ed::*grep-directory-name-hook*
		 #'(lambda ()
		     (pop si:*command-line-args*))))
	    (declare (special ed::*grep-directory-name-hook*))
	    (grep-dialog)))
      (and b (delete-buffer b)))))

-- 
亀井哲弥(KAMEI Tetsuya)
kamei@xxxxxxxxxxxx