From: Michalis V <mvar.40k@gmail.com>
Date: Tue, 21 Sep 2021 17:13:35 +0000 (+0200)
Subject: Make dired-do-compress-to work in inserted subdirectories
X-Git-Tag: emacs-28.0.90~771
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e2792e8b498c95041d459afb7986e65de837f63;p=emacs.git

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).
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 53fbcfb6d0b..4549f45ef67 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"