From afdf72eeb2afb5cf96a2f0168c94b97448026666 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 6 May 2022 17:33:41 +0200 Subject: [PATCH] Fix bug#55274 * lisp/dired-aux.el (dired-do-compress-to): Use `file-local-name' for shell out-file. (Bug#55274) --- lisp/dired-aux.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index f16568f9190..e00910cfe8d 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1242,7 +1242,8 @@ and `dired-compress-files-alist'." (when (zerop (dired-shell-command (format-spec (cdr rule) - `((?o . ,(shell-quote-argument out-file)) + `((?o . ,(shell-quote-argument + (file-local-name out-file))) (?i . ,(mapconcat (lambda (in-file) (shell-quote-argument -- 2.39.2