dired-do-async-shell-command Emacs *Async Shell Command*. async, , , M-x rename-uniquely
dired-do-async-shell-command, :
(defadvice shell-command (after shell-in-new-buffer (command &optional output-buffer error-buffer))
(when (get-buffer "*Async Shell Command*")
(with-current-buffer "*Async Shell Command*"
(rename-uniquely))))
(ad-activate 'shell-command)
, Emacs shell-command, .