From f6fa160e91e264f0a3f797b56e8605dbdb32cb76 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 23 Sep 2016 11:08:34 +0300 Subject: [PATCH] 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. --- lisp/dired-aux.el | 8 ++++---- lisp/dired.el | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index b9111a8d5b4..204ee13006a 100644 --- 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 b838e649848..92aa65a9085 100644 --- 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." ;;; 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" "\ -- 2.39.2