mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 07:31:13 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug 39218

Browse source 
* lisp/simple.el (shell-command):
Ensure a shell command ending with `&' is run asynchronously.
This commit is contained in:
Tino Calancha 2020-01-23 10:57:16 +01:00
parent 6f580542c1
commit 72011f23c3
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/simple.el
View file

@ -3646,10 +3646,11 @@ impose the use of a shell (with its need to quote arguments)."
(if handler
(funcall handler 'shell-command command output-buffer error-buffer)
(if (and output-buffer
(not (string-match "[ \t]*&[ \t]*\\'" command))
(or (eq output-buffer (current-buffer))
(and (stringp output-buffer) (eq (get-buffer output-buffer) (current-buffer)))
(not (or (bufferp output-buffer) (stringp output-buffer))))) ; Bug#39067
;; Output goes in current buffer.
;; Synchronous command with output in current buffer.
(let ((error-file
(and error-buffer
(make-temp-file