branch: elpa/helm
commit e0609c218512c081afc17c04a605f25e2c2b92eb
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Handle :all-marked in helm-read-file-name
---
helm-mode.el | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/helm-mode.el b/helm-mode.el
index b9ef0b28ad..233b0fa43a 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1921,6 +1921,7 @@ See documentation of `completing-read' and
`all-completions' for details."
(fuzzy t)
default
marked-candidates
+ all-marked
(candidate-number-limit helm-ff-candidate-number-limit)
nomark
(alistp t)
@@ -1957,7 +1958,10 @@ Keys description:
- FUZZY: Enable fuzzy matching when non-nil (Enabled by default).
-- MARKED-CANDIDATES: When non--nil return a list of marked candidates.
+- MARKED-CANDIDATES: When non--nil return a list of marked candidates
+ otherwise a single filename is returned.
+
+- ALL-MARKED: Allow marking several dummy candidates.
- NOMARK: When non--nil don't allow marking candidates.
@@ -1982,7 +1986,8 @@ Keys description:
(let* ((action-fn `(("Sole action (Identity)"
. (lambda (candidate)
(if ,marked-candidates
- (helm-marked-candidates :with-wildcard t)
+ (helm-marked-candidates
+ :with-wildcard t :all-sources ,all-marked)
(identity candidate))))))
;; Be sure we don't erase the underlying minibuffer if some.
(helm-ff-auto-update-initial-value
@@ -2011,6 +2016,7 @@ Keys description:
(helm-build-dummy-source "New file or directory"
:keymap 'helm-read-file-map
:must-match must-match
+ :all-marked all-marked
:filtered-candidate-transformer
(lambda (_candidates _source)
(unless (file-exists-p helm-pattern)
@@ -2066,6 +2072,7 @@ Keys description:
:filtered-candidate-transformer '(helm-ff-fct
helm-ff-maybe-show-thumbnails
helm-ff-sort-candidates)
+ :all-marked all-marked
:persistent-action-if persistent-action-if
:persistent-help persistent-help
:volatile t
