[elpa] externals/detached d68f72ed27 3/7: Close detached-list window when opening a session

[ELPA Syncer]

branch: externals/detached
commit d68f72ed2777dbf236ababb48919cd07067d2b11
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Close detached-list window when opening a session
    
    Once a session is selected we close the detached list window. This
    makes the window management a bit better.
---
 detached-list.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/detached-list.el b/detached-list.el
index 8d691c907f..d484b71039 100644
--- a/detached-list.el
+++ b/detached-list.el
@@ -108,7 +108,6 @@ detached list implements."
   (interactive)
   (if (= (length (window-list)) 1)
       (bury-buffer)
-    (bury-buffer)
     (delete-window)))
 
 (defun detached-list-remove-narrow-criterion ()
@@ -188,8 +187,9 @@ Optionally SUPPRESS-OUTPUT."
 (defun detached-list-open-session ()
   "View session."
   (interactive)
-  (detached-open-session
-   (tabulated-list-get-id)))
+  (let ((session (tabulated-list-get-id)))
+    (delete-window (get-buffer-window (current-buffer)))
+    (detached-open-session session)))
 
 (defun detached-list-narrow-host (hostname)
   "Narrow to sessions from a selected HOSTNAME."