procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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 ;;;###autoload
(defun dired-do-compress-to () (defun dired-do-compress-to ()
"Compress selected files and directories to an archive. "Compress selected files and directories to an archive.
You are prompted for the archive name. Prompt for the archive file name.
The archiving command is chosen based on the archive name extension and Choose the archiving command based on the archive file-name extension
`dired-compress-files-alist'." and `dired-compress-files-alist'."
(interactive) (interactive)
(let* ((in-files (dired-get-marked-files)) (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 (rule (cl-find-if
(lambda (x) (lambda (x)
(string-match (car x) out-file)) (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. ;;; 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 ;;; Generated autoloads from dired-aux.el
(autoload 'dired-diff "dired-aux" "\ (autoload 'dired-diff "dired-aux" "\