branch: externals/detached
commit a57a72838204eb8c49ac5e8a674d5847d5c97093
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Remove detached-session-mode 'attach
---
detached-compile.el | 1 -
detached-eshell.el | 3 +--
detached-shell.el | 3 +--
detached-vterm.el | 3 +--
detached.el | 1 -
5 files changed, 3 insertions(+), 8 deletions(-)
diff --git a/detached-compile.el b/detached-compile.el
index 5ec663fff2..cc5fcdd934 100644
--- a/detached-compile.el
+++ b/detached-compile.el
@@ -85,7 +85,6 @@ Optionally EDIT-COMMAND."
"Attach to SESSION with `compile'."
(when (detached-valid-session session)
(let* ((detached-enabled t)
- (detached-session-mode 'attach)
(detached-current-session session)
(detached-local-session (detached-session-local-p session))
(default-directory (detached-session-directory session)))
diff --git a/detached-eshell.el b/detached-eshell.el
index 0712b0f3bf..43e14a56a1 100644
--- a/detached-eshell.el
+++ b/detached-eshell.el
@@ -77,8 +77,7 @@ If prefix-argument directly DETACH from the session."
(list (detached-select-host-session)))
(when (detached-valid-session session)
(if (detached-session-active-p session)
- (cl-letf* ((detached-session-mode 'attach)
- (input
+ (cl-letf* ((input
(detached-session-attach-command session
:type 'string))
((symbol-function #'eshell-add-to-history) #'ignore))
diff --git a/detached-shell.el b/detached-shell.el
index c6ba5de14f..e3489cabe9 100644
--- a/detached-shell.el
+++ b/detached-shell.el
@@ -90,8 +90,7 @@ cluttering the `comint-history' with dtach commands."
(defun detached-shell--attach-input-sender (proc _string)
"Attach to `detached--session' and send the attach command to PROC."
- (let* ((detached-session-mode 'attach)
- (input
+ (let* ((input
(detached-session-attach-command detached-current-session
:type 'string)))
(comint-simple-send proc input)))
diff --git a/detached-vterm.el b/detached-vterm.el
index c62fb8f1f0..4cfd903ca4 100644
--- a/detached-vterm.el
+++ b/detached-vterm.el
@@ -79,8 +79,7 @@ Optionally DETACH from it."
(string= (detached-session-host-name
it) host-name)))
(seq-filter #'detached-session-active-p))))
(detached-completing-read sessions))))
- (let ((detached-session-mode 'attach)
- (command
+ (let ((command
(detached-session-attach-command session
:type 'string)))
(setq detached-buffer-session session)
diff --git a/detached.el b/detached.el
index 49b07ebd29..4fb829888c 100644
--- a/detached.el
+++ b/detached.el
@@ -895,7 +895,6 @@ This function uses the `notifications' library."
(defun detached-shell-command-attach-session (session)
"Attach to SESSION with `async-shell-command'."
(let* ((detached-current-session session)
- (detached-session-mode 'attach)
(inhibit-message t))
(cl-letf* (((symbol-function #'set-process-sentinel) #'ignore)
(buffer (get-buffer-create detached--shell-command-buffer))
