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 f16568f919012ec28c9ba7e3e75bc70edc4ce3ef..e00910cfe8d4b1ec507664129a642083d8de417e 100644 (file)
--- 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