(shell-command): Use buffer name *Shell-Command*.

This commit is contained in:
Richard M. Stallman
1994-05-12 02:49:15 +00:00
parent 928cf89526
commit 262bb7c6e0

View File

@@ -682,7 +682,7 @@ This cannot be done asynchronously."
(unwind-protect
(if (string-match "[ \t]*&[ \t]*$" command)
;; Command ending with ampersand means asynchronous.
(let ((buffer (get-buffer-create "*shell-command*"))
(let ((buffer (get-buffer-create "*Shell-Command*"))
(directory default-directory)
proc)
;; Remove the ampersand.