mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases 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
Show Stats 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