diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-11-22 15:43:12 +0100 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-11-22 15:43:12 +0100 |
| commit | e5308b8605f3ed4495510e8d106559b5d8e5d4b8 (patch) | |
| tree | b7a749625f2f9e2e4d3f5a1ec699b04e7fe2119c /helm-utils.el | |
| parent | 4691b7454a16b6226d5ec222edc162586ae272ec (diff) | |
Add hook that run at end of helm-find-many-files (#1645).
* helm-utils.el (helm-find-many-files-after-hook): New.
(helm-find-many-files): Use it.
Diffstat (limited to 'helm-utils.el')
| -rw-r--r-- | helm-utils.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/helm-utils.el b/helm-utils.el index 16d8f02b..47986cad 100644 --- a/helm-utils.el +++ b/helm-utils.el @@ -198,6 +198,9 @@ In this case last position is added to the register ("­" . 173)) ;; "Table of html character entities and values.") + +(defvar helm-find-many-files-after-hook nil + "Hook that run at end of `helm-find-many-files'.") ;;; Faces. ;; @@ -768,8 +771,11 @@ directory, open this directory." (find-file remote-path)))) (defun helm-find-many-files (_ignore) + "Simple action that run `find-file' on marked candidates. +Run `helm-find-many-files-after-hook' at end" (let ((helm--reading-passwd-or-string t)) - (mapc 'find-file (helm-marked-candidates)))) + (mapc 'find-file (helm-marked-candidates)) + (helm-log-run-hook 'helm-find-many-files-after-hook))) (defun helm-read-repeat-string (prompt &optional count) "Prompt as many time PROMPT is not empty. |