Костылик чтобы искать grep-ом во всех каталогах, в которых открыты файлы в текущей сесси emacs:
```
(require 'cl)

(defun get-buf-dirs ()
(mapconcat 'identity
(delete-dups
(reduce (lambda (lst b)
(append lst
(list (file-name-directory
(or (buffer-file-name b) "")) '())))
(buffer-list)
:initial-value '()))
" "))

(defun find-grep/dirs (what)
(interactive "SWhat: ")
(find-grep (format "find %s -type f -exec grep -nH -e %s {} +" (get-buf-dirs) what)))
```

Зовется так:

M-x find-grep-dirs