Костылик чтобы искать 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


По совету дедфуда решил убирать гласные и после этого повторяющиеся согласные.
референсный текст после куркуматора выглядит вот так:

заблевал ебать по аутист Ваш анус. сосноль ебать, Сэр, скатывать впечатление, что Вас костыли в бою, что Вы быдло умом прост. Если не бугурт, могу скатывать вам это прыщи в лалка, и аутист Ваши бомбит. Все, что вы нассал есть задрот произведение, матан Вы прост. От написанного вин, к нинужно, лизнул азаза лайк не аутист. скатывать не вино перед кун распивать, маман вас анархия в для поубивали. По анархия, как Вы, бугурт : линуск не заблевал анон, папенька не рабство! Советую Вам биткоин в мое поссал, сэр. дрочить проанализировать и сосноль вин для сасай.


неговно

This page gives a list of the most useful elisp functions for text processing tasks in elisp programing. Any elisp coder would have memorized every functions in this page. That's how important they are.

http://ergoemacs.org/emacs/elisp_common_functions.html