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 <drew.adams@oracle.com>.
(Bug#24486)  Doc fix.
* lisp/dired.el: Regenerated changes in autoloads.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index b9111a8d5b41152a82e98eb63ae5a8e659010823..204ee13006aa09e732e6e013409d098b0fe8e477 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -937,12 +937,12 @@ output file. %i path(s) are relative, while %o is absolute.")
 ;;;###autoload
 (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
-`dired-compress-files-alist'."
+Prompt for the archive file name.
+Choose the archiving command based on the archive file-name extension
+and `dired-compress-files-alist'."
   (interactive)
   (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))

diff --git a/lisp/dired.el b/lisp/dired.el
index b838e649848f694398473c6b725eb6c1e6b6ccef..92aa65a9085b740b1b23f1b419a32afc62b07677 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3919,7 +3919,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
 \f
 ;;; Start of automatically extracted autoloads.
 \f
-;;;### (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" "\