[elpa] master b265d3c 2/7: multishell-list-open-as-default - new operation, on "O"

[ken manheimer]

branch: master
commit b265d3c65a823c2b3ae703a2c6e22acb8b78387c
Author: Ken Manheimer <address@hidden>
Commit: Ken Manheimer <address@hidden>

    multishell-list-open-as-default - new operation, on "O"
---
 multishell-list.el |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/multishell-list.el b/multishell-list.el
index 882a1d1..578abdb 100644
--- a/multishell-list.el
+++ b/multishell-list.el
@@ -14,6 +14,11 @@
   "Pop to current entry's shell, and refresh the listing buffer."
   (interactive)
   (multishell-pop-to-shell nil (tabulated-list-get-id)))
+(defun multishell-list-open-as-default ()
+  "Pop to current entry's shell, and set as the default shell."
+  (interactive)
+  (message "%s <==" (multishell-name-from-entry (tabulated-list-get-id)))
+  (multishell-pop-to-shell '(16) (tabulated-list-get-id)))
 (defun multishell-list-open-here ()
   "Switch to current entry's shell buffer."
   (interactive)
@@ -119,6 +124,7 @@
 (define-key multishell-list-mode-map (kbd "d") 'multishell-list-delete)
 (define-key multishell-list-mode-map (kbd "e") 'multishell-list-edit-entry)
 (define-key multishell-list-mode-map (kbd "o") 'multishell-list-open-pop)
+(define-key multishell-list-mode-map (kbd "O") 
'multishell-list-open-as-default)
 (define-key multishell-list-mode-map
   (kbd "<return>") 'multishell-list-open-here)