Commit f6fa160e authored by Eli Zaretskii's avatar Eli Zaretskii

Fix 'dired-compress-files'

* lisp/dired-aux.el (dired-do-compress-to): Make sure the archive
file name is fully expanded by running it through
'expand-file-name'.  Suggested by Drew Adams <>.
(Bug#24486)  Doc fix.
* lisp/dired.el: Regenerated changes in autoloads.
parent 2b8c5f0b
......@@ -937,12 +937,12 @@ output file. %i path(s) are relative, while %o is absolute.")
(defun dired-do-compress-to ()
"Compress selected files and directories to an archive.
You are prompted for the archive name.
The archiving command is chosen based on the archive name extension and
Prompt for the archive file name.
Choose the archiving command based on the archive file-name extension
and `dired-compress-files-alist'."
(let* ((in-files (dired-get-marked-files))
(out-file (read-file-name "Compress to: "))
(out-file (expand-file-name (read-file-name "Compress to: ")))
(rule (cl-find-if
(lambda (x)
(string-match (car x) out-file))
......@@ -3919,7 +3919,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
;;; Start of automatically extracted autoloads.
;;;### (autoloads nil "dired-aux" "dired-aux.el" "8346506b9ef7167fd55b5eac7e6617a1")
;;;### (autoloads nil "dired-aux" "dired-aux.el" "c1ea036dd5d740f00b18a76bfb32f887")
;;; Generated autoloads from dired-aux.el
(autoload 'dired-diff "dired-aux" "\
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment