[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 f6fa160: Fix 'dired-compress-files'
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] emacs-25 f6fa160: Fix 'dired-compress-files' |
Date: |
Fri, 23 Sep 2016 08:08:56 +0000 (UTC) |
branch: emacs-25
commit f6fa160e91e264f0a3f797b56e8605dbdb32cb76
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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 <address@hidden>.
(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 b9111a8..204ee13 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 b838e64..92aa65a 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" "\
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 f6fa160: Fix 'dired-compress-files',
Eli Zaretskii <=