diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-09-14 20:41:12 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-09-14 20:41:12 +0200 |
| commit | bbb686416e5513f3b4de8fca2df3756a6d4c7409 (patch) | |
| tree | 60427f22d8e16f5c179de73a00ef964a3295b008 /helm-buffers.el | |
| parent | 70b5b21519b70621ea13caf2e582717fdae83e6e (diff) | |
Send a message when killing marked buffers.
* helm-buffers.el (helm-kill-marked-buffers): Do it.
Diffstat (limited to 'helm-buffers.el')
| -rw-r--r-- | helm-buffers.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/helm-buffers.el b/helm-buffers.el index a8e098ac..f5604299 100644 --- a/helm-buffers.el +++ b/helm-buffers.el @@ -634,10 +634,12 @@ If REGEXP-FLAG is given use `query-replace-regexp'." (helm-execute-persistent-action 'kill-action))) (defun helm-kill-marked-buffers (_ignore) - (mapc 'kill-buffer (helm-marked-candidates)) - (with-helm-buffer - (setq helm-marked-candidates nil - helm-visible-mark-overlays nil))) + (let ((bufs (helm-marked-candidates))) + (mapc 'kill-buffer bufs) + (with-helm-buffer + (setq helm-marked-candidates nil + helm-visible-mark-overlays nil)) + (message "Killed %s buffers" (length bufs)))) (defun helm-buffer-run-kill-buffers () "Run kill buffer action from `helm-source-buffers-list'." |