Mercurial > emacs
changeset 11072:c5fbb6f272f2
(shell-command): Use *Async Shell Command* for
asynchronous commands. Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Mar 1995 05:14:38 +0000 |
| parents | d629a0af50ca |
| children | 554c86f77db0 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Mar 21 02:19:38 1995 +0000 +++ b/lisp/simple.el Tue Mar 21 05:14:38 1995 +0000 @@ -712,8 +712,17 @@ (defun shell-command (command &optional output-buffer) "Execute string COMMAND in inferior shell; display output, if any. + If COMMAND ends in ampersand, execute it asynchronously. -The output appears in the buffer `*Shell Command*'. +The output appears in the buffer `*Async Shell Command*'. + +Otherwise, COMMAND is executed synchronously. The output appears +in the buffer `*Shell Command Output*'. +If the output is one line, it is displayed in the echo area *as well*, +but it is nonetheless available in buffer `*Shell Command Output*', +even though that buffer is not automatically displayed. +If there is no output, or if output is inserted in the current buffer, +then `*Shell Command Output*' is deleted. The optional second argument OUTPUT-BUFFER, if non-nil, says to put the output in some other buffer. @@ -747,7 +756,7 @@ (if (string-match "[ \t]*&[ \t]*$" command) ;; Command ending with ampersand means asynchronous. (let ((buffer (get-buffer-create - (or output-buffer "*Shell-Command*"))) + (or output-buffer "*Asynch Shell Command*"))) (directory default-directory) proc) ;; Remove the ampersand.