From: Michael Albinus Date: Fri, 6 May 2022 15:33:41 +0000 (+0200) Subject: Fix bug#55274 X-Git-Tag: emacs-28.1.90~99 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=afdf72eeb2;p=emacs.git Fix bug#55274 * lisp/dired-aux.el (dired-do-compress-to): Use `file-local-name' for shell out-file. (Bug#55274) --- 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