emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]