[elpa] externals/detached 3b7be9c684 15/38: Properly detach degraded session

[ELPA Syncer]

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

    Properly detach degraded session
---
 detached.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/detached.el b/detached.el
index 806ea642ad..6a1a7670c9 100644
--- a/detached.el
+++ b/detached.el
@@ -1381,7 +1381,9 @@ Optionally make the path LOCAL to host."
 
 (cl-defmethod detached--detach-session ((_mode (derived-mode shell-mode)))
   "Detach from session when MODE is `shell-mode'."
-  (detached--detach-from-comint-process)
+  (if (detached-session-degraded-p detached-buffer-session)
+      (comint-interrupt-subjob)
+    (detached--detach-from-comint-process))
   (when (string-match detached--shell-command-buffer (buffer-name))
     (detached--quit-session-buffer)))