; * lisp/simple.el (shell-command): Fix last change (bug#79067).

(cherry picked from commit 527dc4fafff13a86cc1b9c6dfc174c592a29b566)

diff --git a/lisp/simple.el b/lisp/simple.el
index 62130ce1cf3c9a5000a8d26ca859e746f41ed212..d362c0c82722d0e90bd80f9ee2c80075c258e37a 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4577,7 +4577,8 @@ impose the use of a shell (with its need to quote arguments)."
        ;; Output goes in a separate buffer.
        (if (string-match "[ \t]*&[ \t]*\\'" command)
            ;; Command ending with ampersand means asynchronous.
-            (let* ((_ (or (bufferp output-buffer)
+            (let* ((_ (or (null output-buffer)
+                          (bufferp output-buffer)
                           (stringp output-buffer)
                           (error "Asynchronous shell commands cannot output to current buffer")))
                    (buffer (get-buffer-create