grep を別バッファで
(add-hook 'ed::*grep-hook* #'(lambda () (rename-buffer (if (eq ed::*this-command* 'grep) ed::*last-grep-regexp* ed::*last-fgrep-pattern*) (selected-buffer)))) (add-hook 'ed::*grepd-hook* #'(lambda () (rename-buffer (first ed::*minibuffer-search-string-history*) (selected-buffer))))