branch: externals/detached
commit 5c212b260909ae2535019a3616e6630a2b7d649c
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
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."
