master 0e2792e: Make dired-do-compress-to work in inserted subdirectories

[Lars Ingebrigtsen]

branch: master
commit 0e2792e8b498c95041d459afb7986e65de837f63
Author: Michalis V <mvar.40k@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make dired-do-compress-to work in inserted subdirectories
    
    * lisp/dired-aux.el (dired-do-compress-to): Make this work in file
    in inserted subdirectories (bug#46913).
---
 lisp/dired-aux.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 53fbcfb..4549f45 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1245,7 +1245,7 @@ and `dired-compress-files-alist'."
                                   (?i . ,(mapconcat
                                           (lambda (in-file)
                                             (shell-quote-argument
-                                             (file-name-nondirectory in-file)))
+                                             (file-relative-name in-file)))
                                           in-files " "))))))
              (message (ngettext "Compressed %d file to %s"
                                "Compressed %d files to %s"