[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm bf9854ec8e 3/4: Allow marking wildcard candidates in
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm bf9854ec8e 3/4: Allow marking wildcard candidates in HFF dummy source |
Date: |
Sun, 25 Aug 2024 03:59:56 -0400 (EDT) |
branch: elpa/helm
commit bf9854ec8e5971eba836663baaa50d85f97bb2a6
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Allow marking wildcard candidates in HFF dummy source
---
helm-files.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/helm-files.el b/helm-files.el
index 2a728a83e9..279b300c71 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -1162,6 +1162,7 @@ want to use it, helm is still providing
(action :initform 'helm-find-files-actions)
(before-init-hook :initform 'helm-find-files-before-init-hook)
(after-init-hook :initform 'helm-find-files-after-init-hook)
+ (all-marked :initform t)
(group :initform 'helm-files)))
;; Bookmark handlers.
@@ -1275,7 +1276,9 @@ ACTION can be `rsync' or any action supported by
`helm-dired-action'."
(cons "rsync" helm-rsync-switches) " ")
'helm-rsync-command-history)))))
(ifiles (mapcar 'expand-file-name ; Allow modify '/foo/.' -> '/foo'
- (helm-marked-candidates :with-wildcard t)))
+ ;; Use :all-sources to allow actions on wildcards
+ ;; marked in dummy source.
+ (helm-marked-candidates :with-wildcard t :all-sources
t)))
(cand (unless (cdr ifiles) (helm-get-selection))) ; preselection.
(prefarg helm-current-prefix-arg)
(prompt (format "%s %s file(s) %s: "
@@ -5603,6 +5606,7 @@ Use it for non-interactive calls of `helm-find-files'."
(lambda (_candidates _source)
(unless (file-exists-p helm-pattern)
(list (helm-ff-filter-candidate-one-by-one helm-pattern nil t))))
+ :all-marked t
:keymap 'helm-find-files-map
:action 'helm-find-files-actions))