branch: externals/detached
commit f70ac98dc50093db2e100568bc6207d90d08dd7e
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Remove dtach--arg dependency
---
detached.el | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/detached.el b/detached.el
index e341c85ec9..49b07ebd29 100644
--- a/detached.el
+++ b/detached.el
@@ -917,11 +917,17 @@ This function uses the `notifications' library."
(let* ((socket (detached--session-file session 'socket t))
(detached-session-mode (detached--session-initial-mode session))
(log (detached--session-file session 'log t))
+ (dtach-arg (if (eq 'create (detached--session-initial-mode session))
+ "-n"
+ "-c"))
(dtach-command-fun (lambda (session)
(let ((detached-session-mode
(detached--session-initial-mode session)))
`(,detached-dtach-program
- ,(detached--dtach-arg) ,socket "-z"
- ,detached-shell-program "-c"
+ ,dtach-arg
+ ,socket
+ "-z"
+ ,detached-shell-program
+ "-c"
,(if (eq type 'string)
(shell-quote-argument
(detached--detached-command session))
(detached--detached-command session))))))
@@ -948,7 +954,6 @@ This function uses the `notifications' library."
(detached-connection-local-variables
(let* ((socket (detached--session-file session 'socket t))
(log (detached--session-file session 'log t))
- (dtach-arg (detached--dtach-arg))
(command
(if (detached-session-degraded-p session)
`(,detached-tail-program "-F"
@@ -960,7 +965,7 @@ This function uses the `notifications' library."
`(,detached-tail-program "-n"
,(number-to-string
detached-session-context-lines)
,(concat log ";")))
- `(,detached-dtach-program ,dtach-arg
+ `(,detached-dtach-program "-a"
,socket
"-r" "none")))))
(pcase type
