[xyzzy:01779] Re: ２画面ファイラの Tab キー

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

たけばやし＠ハイウェイさん、こんにちは。

    Wed, 3 Feb 1999 23:11:32 +0900 の
   “[xyzzy:01778] Re: ２画面ファイラの Tab キー”
    への返事です.

| イメージ的には、grepの結果だけを持ってるxyzzyが新規に立ち上がるっていう
| のが近いです。

うーん、こうかな?

(defun foo ()
  (interactive)
  (let (o)
    (require "grepd")
    (unwind-protect
	(progn
	  (setq o #'ed::scan-files)
	  (setf (symbol-function 'ed::scan-files)
		#'(lambda (pattern file dir)
		    (call-process
		     (concat
		      (si:system-root) "xyzzy.exe -e "
		      (format nil "~S"
			      (format nil "~S"
				      `(progn
					 (require "grepd")
					 (switch-to-buffer "*grep*")
					 (set-default-directory ',(default-directory))
					 (let ((ed::*grep-case-fold-search*
						',ed::*grep-case-fold-search*)
					       (ed::*grep-word-search*
						',ed::*grep-word-search*)
					       (ed::*grep-regexp-search*
						',ed::*grep-regexp-search*)
					       (ed::*grep-subdir*
						',ed::*grep-subdir*)
					       (ed::*grep-name-only*
						',ed::*grep-name-only*))
					   (ed::scan-files ',pattern ',file ',dir))
					 (rename-buffer (format nil "*grep:~a*"
								(si:*instance-number)))))))
		     :no-std-handles t :show :show)))
	  (grep-dialog))
      (when o
	(setf (symbol-function 'ed::scan-files) o)))))

変なの?(^^;

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx