mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(shell-command): Use *Async Shell Command* for

Browse Source 
asynchronous commands.  Doc fix.
This commit is contained in:
Richard M. Stallman 1995-03-21 05:14:38 +00:00
parent 806cba9c00
commit d382f61045
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/simple.el
View File

@ -712,8 +712,17 @@ then call `undo-more' one or more times to undo them."
(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 @@ In either case, the output is inserted after point (leaving mark after it)."
(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.