branch: elpa/helm
commit 1dd0bbd8b8e5d71aa3959c7bc053c277c66c5077
Author: Kiso Katsuyuki <katsuyuki2...@gmail.com>
Commit: Kiso Katsuyuki <katsuyuki2...@gmail.com>
compress to common directory of input files
---
helm-files.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 0c3be6a4cc..ef8dff2915 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -1255,13 +1255,15 @@ ACTION can be `rsync' or any action supported by
`helm-dired-action'."
(regexp-quote
(if
helm-ff-transformer-show-only-basename
(helm-basename cand) cand))))
- :initial-input (helm-dwim-target-directory)
+ :initial-input (if (eq action 'compress)
+ (helm-common-dir ifiles)
+ (helm-dwim-target-directory))
:default (when (eq action 'compress)
(expand-file-name
(format "%s.tar.gz" (if cand
(helm-basename
cand)
"new_archive"))
- helm-ff-default-directory))
+ (helm-common-dir ifiles)))
:history (helm-find-files-history nil :comp-read
nil))))))
(dest-dir-p (file-directory-p dest))
(dest-dir (if dest-dir-p dest (helm-basedir dest))))
