[nongnu] elpa/helm 1dd0bbd8b8 3/7: compress to common directory of input files

[ELPA Syncer]

branch: elpa/helm
commit 1dd0bbd8b8e5d71aa3959c7bc053c277c66c5077
Author: Kiso Katsuyuki <katsuyuki2388@gmail.com>
Commit: Kiso Katsuyuki <katsuyuki2388@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))))