branch: elpa/helm commit 0e826d535bd3e5fce1edfe48aa2d7b99d5c85889 Author: Thierry Volpiatto <thie...@posteo.net> Commit: Thierry Volpiatto <thie...@posteo.net>
Switch to marked buffers in other frame --- helm-buffers.el | 8 +++++++- helm-types.el | 2 +- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/helm-buffers.el b/helm-buffers.el index ccdd778e4d..579baadacd 100644 --- a/helm-buffers.el +++ b/helm-buffers.el @@ -960,11 +960,17 @@ If REGEXP-FLAG is given use `query-replace-regexp'." (helm-exit-and-execute-action 'helm-buffer-switch-buffers-other-window))) (put 'helm-buffer-switch-other-window 'helm-only t) +(defun helm-buffer-switch-to-buffer-other-frame (_candidate) + "Display marked buffers in other frame." + (let ((bufs (helm-marked-candidates))) + (select-frame (make-frame)) + (helm-window-show-buffers bufs))) + (defun helm-buffer-switch-other-frame () "Run switch to other frame action from `helm-source-buffers-list'." (interactive) (with-helm-alive-p - (helm-exit-and-execute-action 'switch-to-buffer-other-frame))) + (helm-exit-and-execute-action 'helm-buffer-switch-to-buffer-other-frame))) (put 'helm-buffer-switch-other-frame 'helm-only t) (defun helm-buffers-switch-to-buffer-other-tab (_candidate) diff --git a/helm-types.el b/helm-types.el index 465b186669..b654a0ff52 100644 --- a/helm-types.el +++ b/helm-types.el @@ -171,7 +171,7 @@ "Switch to buffer(s) other window `C-c o'" 'helm-buffer-switch-buffers-other-window "Switch to buffer other frame `C-c C-o'" - 'switch-to-buffer-other-frame + 'helm-buffer-switch-to-buffer-other-frame (lambda () (and (fboundp 'tab-bar-mode) "Switch to buffer other tab `C-c C-t'")) 'helm-buffers-switch-to-buffer-other-tab