mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Fix 'dired-compress-files'

Browse Source 
* 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.
This commit is contained in:
Eli Zaretskii 2016-09-23 11:08:34 +03:00
parent 2b8c5f0bff
commit f6fa160e91
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/dired-aux.el
View File

@ -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))

2
lisp/dired.el
View 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" "\