branch: externals/detached
commit 3b7be9c684d6221ba4e9da3faa924c49c14790f7
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@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)))
