mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-11 22:11:21 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug#55274

Browse source 
* lisp/dired-aux.el (dired-do-compress-to): Use `file-local-name'
for shell out-file.  (Bug#55274)
This commit is contained in:
Michael Albinus 2022-05-06 17:33:41 +02:00
parent 5bfac7c774
commit afdf72eeb2
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/dired-aux.el
View file

@ -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