poor-grepを拡張してみた

(require 'em-unix)
(require 'cl)

(defun poor-grep (string regexp)
  "貧乏人のgrep"
  (interactive "s検索文字列: \nsファイルregexp: ")
  (let ((file-list (loop for x in (split-string regexp)
   append
   (file-expand-wildcards x)))
 (display-buffer-function nil))    ; popwinを無効化
    (eshell-poor-mans-grep (cons string file-list))))

　ファイルregexpを「* / */*/*」という感じで指定して複数のディレクトリを対象にできるようにした。