diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-08-15 14:35:22 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-08-15 14:35:22 +0200 |
commit | e600d43bead4ef61cba58e7e881c8de92692d98d (patch) | |
tree | eb1222ae86a07c237169240cc3d3a4a883d1999e /helm-utils.el | |
parent | 03c1f1ae68154718869d7376282edcb06fb47bf3 (diff) |
Rename helm-run-after-quit and helm-quit-and-execute-action.
Make these functions obsolete and use their new names
prefixed by helm-exit-.
* helm-aliases.el (helm-c-quit-and-execute-action): Do it.
* helm-bookmark.el (helm-bookmark-run-edit): Do it.
(helm-bookmark-run-jump-other-window): Do it.
* helm-buffers.el (helm-buffer-run-kill-buffers): Do it.
(helm-buffers-run-multi-occur): Do it.
* helm-color.el (helm-color-run-insert-name): Do it.
* helm-elisp-package.el (helm-el-run-visit-homepage): Do it.
(helm-el-run-package-install): Do it.
(helm-el-run-package-uninstall): Do it.
(helm-el-run-package-upgrade): Do it.
(helm-el-run-package-reinstall): Do it.
* helm-files.el (helm-ff-query-replace-on-marked): Do it.
(helm-ff-query-replace): Do it.
(helm-ff-run-switch-to-history): Do it.
(helm-ff-run-locate): Do it.
(helm-ff-run-insert-org-link): Do it.
(helm-ff-run-print-file): Do it.
(helm-ff-run-browse-project): Do it.
(helm-ff-run-gid): Do it.
(helm-ff-run-find-sh-command): Do it.
* helm-grep.el (helm-grep-run-default-action): Do it.
* helm-mode.el (helm-cr-empty-string): Do it.
* helm-regexp.el (helm-moccur-run-goto-line-ow): Do it.
(helm-moccur-run-save-buffer): Do it.
* helm-tags.el (helm-etags-run-switch-other-window): Do it.
(helm-etags-run-switch-other-frame): Do it.
* helm-utils.el (helm-quit-and-find-file): Do it.
(helm-exit-and-execute-action): Do it.
* helm.el (helm-run-after-exit): Do it.
(helm-resume-previous-session-after-quit): Do it.
(helm-enable-or-switch-to-debug): Do it.
(helm-kill-selection-and-quit): Do it.
Diffstat (limited to 'helm-utils.el')
-rw-r--r-- | helm-utils.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/helm-utils.el b/helm-utils.el index 30da0cc2..aa7df2be 100644 --- a/helm-utils.el +++ b/helm-utils.el @@ -212,7 +212,7 @@ If current selection is a buffer or a file, `helm-find-files' from its directory." (interactive) (require 'helm-grep) - (helm-run-after-quit + (helm-run-after-exit (lambda (f) (if (file-exists-p f) (helm-find-files-1 (file-name-directory f) @@ -567,12 +567,15 @@ directory, open this directory." (let ((helm--reading-passwd-or-string t)) (mapc 'find-file (helm-marked-candidates)))) -(defun helm-quit-and-execute-action (action) +(defun helm-exit-and-execute-action (action) "Quit current helm session and execute ACTION." (setq helm-saved-action action) (setq helm-saved-selection (helm-get-selection)) (helm-exit-minibuffer)) +(defalias 'helm-quit-and-execute-action 'helm-exit-and-execute-action) +(make-obsolete 'helm-quit-and-execute-action 'helm-exit-and-execute-action "1.7.7") + (defun helm-read-repeat-string (prompt &optional count) "Prompt as many time PROMPT is not empty. If COUNT is non--nil add a number after each prompt." |