>From c236ef15477a7d76ee0420794f149bbcafdc8798 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Tue, 23 Jan 2018 18:18:04 +0000 Subject: [PATCH] Fix deferred display of async shell-command buffer * lisp/simple.el (shell-command): Display async command buffer on process output for every invocation, not just the first. (bug#30213) --- lisp/simple.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 3ac6b86381..20e22bf98f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3551,9 +3551,7 @@ shell-command (add-function :before (process-filter proc) (lambda (process _string) (let ((buf (process-buffer process))) - (when (and (zerop (buffer-size buf)) - (string= (buffer-name buf) - bname)) + (when (string= (buffer-name buf) bname) (display-buffer buf)))))))) ;; Otherwise, command is executed synchronously. (shell-command-on-region (point) (point) command -- 2.15.1