[elpa] externals/detached 7ed4551774 6/7: Fix detach in shell/eshell

[ELPA Syncer]

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

    Fix detach in shell/eshell
---
 detached-eshell.el | 4 +++-
 detached.el        | 8 +++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/detached-eshell.el b/detached-eshell.el
index ceb4e765e6..2c078f8736 100644
--- a/detached-eshell.el
+++ b/detached-eshell.el
@@ -103,7 +103,9 @@
 
 (cl-defmethod detached--detach-session ((_mode (derived-mode eshell-mode)))
   "Detach from session when MODE is `eshell-mode'."
-  (when-let ((active-session (detached-session-active-p 
detached-buffer-session))
+  (when-let ((active-session (detached-session-active-p
+                              (alist-get (detached-session-id 
detached-buffer-session)
+                                         detached--sessions)))
              (dtach-process (detached-eshell--get-dtach-process)))
     (setq detached-buffer-session nil)
     (process-send-string dtach-process
diff --git a/detached.el b/detached.el
index cc80f5e382..773c59443e 100644
--- a/detached.el
+++ b/detached.el
@@ -1462,10 +1462,12 @@ Optionally make the path LOCAL to host."
 
 (defun detached--detach-from-comint-process ()
   "Detach from the underlying `comint' process."
-  (when-let ((active-session (detached-session-active-p 
detached-buffer-session))
+  (when-let ((active-session (detached-session-active-p
+                              (alist-get (detached-session-id 
detached-buffer-session)
+                                         detached--sessions)))
              (dtach-process (get-buffer-process (current-buffer))))
-    (setq detached-buffer-session nil)
-    (comint-simple-send dtach-process detached--dtach-detach-character)))
+    (comint-simple-send dtach-process detached--dtach-detach-character)
+    (setq detached-buffer-session nil)))
 
 (defun detached--quit-session-buffer ()
   "Quit session buffer."