emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/detached a57a728382 22/38: Remove detached-session-mode


From: ELPA Syncer
Subject: [elpa] externals/detached a57a728382 22/38: Remove detached-session-mode 'attach
Date: Thu, 17 Nov 2022 17:57:55 -0500 (EST)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]