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

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

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

        Tue, 2 Feb 1999 23:09:53 +0900 の
        [xyzzy:01753] ２画面ファイラの Tab キー
        への返事です.

| 通常ですと、TABキーを押すことで左右のリストに移動しますが、
| まったく反応してくれません。(^^;)

あ、ほんまや。直します。とりあえずカーソルキーでごまかしておい
てください。

| Grepの出力先に新規にウィンドウを開いて、その中に出力させるってことは
| 可能でしょうか？ Grepの出力バッファに*１、*２とか番号もついてくれると
| 嬉しいです。m(__)m

こゆこと?

(defun ed::scan-files (pattern file dir)
  (long-operation
    (when ed::*grep-regexp-search*
      (setq pattern (compile-regexp pattern ed::*grep-case-fold-search*)))
    (let ((buffer (create-new-buffer "*grep*"))
	  (temp (create-new-buffer "*grep temp*")))
      (unwind-protect
	  (progn
	    (pop-to-buffer buffer t)
	    (set-buffer temp)
	    (set-default-directory dir)
	    (set-buffer buffer)
	    (erase-buffer buffer)
	    (set-buffer-fold-width nil)
	    (setq buffer-read-only nil)
	    (setq need-not-save t)
	    (setq kept-undo-information nil)
	    (setq auto-save nil)
	    (set-default-directory dir)
	    (refresh-screen)
	    (with-output-to-selected-buffer
	      (dolist (f (directory "." :recursive ed::*grep-subdir*
				    :file-only t :wild file))
		(when (ed::scan-files-1 f pattern temp)
		  (set-buffer buffer)
		  (goto-char (buffer-stream-point *standard-output*))
		  (refresh-screen))
		(do-events))))
	(delete-buffer temp)
	(set-buffer buffer)
	(goto-char (point-min)))
      (message "done"))))


| # NetBSDのカーネルコードを追っかけてて、Grepに関しては秀丸に頼っちゃいま
| # した。

んー、そういう用途だったらタグジャンプの方が・・・(^^;

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