[elpa] externals/detached 1d9e4bc541 3/3: Fix bug in attach functions

[ELPA Syncer]

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

    Fix bug in attach functions
---
 detached-compile.el | 3 ++-
 detached.el         | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/detached-compile.el b/detached-compile.el
index fefc3648eb..78a94b2066 100644
--- a/detached-compile.el
+++ b/detached-compile.el
@@ -88,7 +88,8 @@ Optionally EDIT-COMMAND."
   "Attach to SESSION with `compile'."
   (when (detached-valid-session session)
     (detached-with-session session
-      (let* ((detached-enabled t))
+      (let* ((detached-enabled t)
+             (detached-session-mode 'attached))
         (compilation-start `(,detached-session-command))))))
 
 ;;;###autoload
diff --git a/detached.el b/detached.el
index 3c948cd13e..479f1fdc17 100644
--- a/detached.el
+++ b/detached.el
@@ -913,6 +913,7 @@ This function uses the `notifications' library."
   (let* ((inhibit-message t))
     (detached-with-session session
       (cl-letf* (((symbol-function #'set-process-sentinel) #'ignore)
+                 (detached-session-mode 'attached)
                  (buffer (get-buffer-create detached--shell-command-buffer))
                  (default-directory (detached-session-directory session))
                  (command (detached-session-attach-command session :type 
'string)))