2016年7月26日火曜日

poor-grep

 Emacs for Windowsではgrepが使えないので、とりあえずpoor-grepをでっち上げた。

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