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

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

[elpa] externals/detached 5c212b2609 05/38: Update start-detached-sessio


From: ELPA Syncer
Subject: [elpa] externals/detached 5c212b2609 05/38: Update start-detached-session
Date: Thu, 17 Nov 2022 17:57:54 -0500 (EST)

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

    Update start-detached-session
---
 detached.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/detached.el b/detached.el
index bfab5c7591..eda942353a 100644
--- a/detached.el
+++ b/detached.el
@@ -735,11 +735,12 @@ Optionally SUPPRESS-OUTPUT."
 (defun detached-start-detached-session (session)
   "Start SESSION in detached mode."
   (detached--set-session-state session 'started)
-  (if (detached-session-local-p session)
-      (apply #'start-process-shell-command
-             `("detached" nil ,(detached--dtach-command session t)))
-    (apply #'start-file-process-shell-command
-           `("detached" nil ,(detached--dtach-command session t)))))
+  (let ((dtach-command (detached-session-start-command
+                                session
+                                :type 'string)))
+    (if (detached-session-local-p session)
+        (apply #'start-process-shell-command `("detached" nil ,dtach-command))
+      (apply #'start-file-process-shell-command `("detached" nil 
,dtach-command)))))
 
 (defun detached-session-candidates (sessions)
   "Return an alist of SESSIONS candidates."



reply via email to

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