diff options
| author | Gabriel do Nascimento Ribeiro | 2023-05-13 20:31:24 -0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-05-14 09:24:16 +0300 |
| commit | b96dc472bcba9a484d8151cec61752464f599ad2 (patch) | |
| tree | cc3773397ab9bfcf097a0aba4f6ccd4b13a28c16 | |
| parent | 1e6a7594361fa4d60c0d73450e45475593d93696 (diff) | |
| download | emacs-b96dc472bcba9a484d8151cec61752464f599ad2.tar.gz emacs-b96dc472bcba9a484d8151cec61752464f599ad2.zip | |
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)
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)." | |||
| 4490 | ((eq major-mode 'dired-mode) | 4490 | ((eq major-mode 'dired-mode) |
| 4491 | (dired-get-filename nil t))))) | 4491 | (dired-get-filename nil t))))) |
| 4492 | (and filename (file-relative-name filename)))) | 4492 | (and filename (file-relative-name filename)))) |
| 4493 | current-prefix-arg | 4493 | nil |
| 4494 | shell-command-default-error-buffer)) | 4494 | shell-command-default-error-buffer)) |
| 4495 | (unless (string-match "&[ \t]*\\'" command) | 4495 | (unless (string-match "&[ \t]*\\'" command) |
| 4496 | (setq command (concat command " &"))) | 4496 | (setq command (concat command " &"))) |