From 0e2792e8b498c95041d459afb7986e65de837f63 Mon Sep 17 00:00:00 2001 From: Michalis V Date: Tue, 21 Sep 2021 19:13:35 +0200 Subject: [PATCH] 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 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" -- 2.39.5