emacs-28 afdf72eeb2: Fix bug#55274

[Michael Albinus]

branch: emacs-28
commit afdf72eeb2afb5cf96a2f0168c94b97448026666
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    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 f16568f919..e00910cfe8 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