poor-grep-dired

で、つくってみた。

(require 'em-unix)

(defun poor-grep-dired (string)
  "貧乏人のgrep"
  (interactive "s検索文字列: ")
  (let ((file-list
  (dired-get-marked-files nil nil 'dired-nondirectory-p))
 (display-buffer-function nil))    ; popwinを無効化
    (eshell-poor-mans-grep (cons string file-list))))

　dired-modeでmarkしたファイルにたいしてpoor-grepをかける。