From: Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
Date: Sat, 13 May 2023 23:31:24 +0000 (-0300)
Subject: Ignore current-prefix-arg in async-shell-command
X-Git-Tag: emacs-29.0.91~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b96dc472bcba9a484d8151cec61752464f599ad2;p=emacs.git

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 959e28c7b75..c3d0726f91b 100644
--- 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 " &")))