Ignore current-prefix-arg in async-shell-command

* lisp/simple.el (async-shell-command): Ignore current-prefix-arg and
always pass nil to second argument of `shell-command'.  (Bug#63432)

diff --git a/lisp/simple.el b/lisp/simple.el
index 959e28c7b75a4eeab59f9d57b899d736be97ae18..c3d0726f91b5941d4fbff97a84278056ca1f6c3e 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4490,7 +4490,7 @@ a shell (with its need to quote arguments)."
                                ((eq major-mode 'dired-mode)
                                 (dired-get-filename nil t)))))
                          (and filename (file-relative-name filename))))
-    current-prefix-arg
+    nil
     shell-command-default-error-buffer))
   (unless (string-match "&[ \t]*\\'" command)
     (setq command (concat command " &")))