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
