branch: externals/detached
commit d68f72ed2777dbf236ababb48919cd07067d2b11
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
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."
