diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-05-06 17:33:41 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-05-06 17:33:41 +0200 |
| commit | afdf72eeb2afb5cf96a2f0168c94b97448026666 (patch) | |
| tree | 8ee1b0c8fcb89500246a415a418e9639eb6d7594 /lisp | |
| parent | 5bfac7c7747895c9d743d2a0edd25cb4317ea629 (diff) | |
| download | emacs-afdf72eeb2afb5cf96a2f0168c94b97448026666.tar.gz | |
Fix bug#55274
* lisp/dired-aux.el (dired-do-compress-to): Use `file-local-name'
for shell out-file. (Bug#55274)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dired-aux.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index f16568f9190..e00910cfe8d 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -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 |