branch: externals/dtache
commit 4fa1c9e8a29d8ec2f109b33aa5298fbd45944170
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
Simplify call to dtache--dtach-arg
---
dtache.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/dtache.el b/dtache.el
index 83d5c9b976..b881466aed 100644
--- a/dtache.el
+++ b/dtache.el
@@ -659,25 +659,26 @@ Optionally CONCAT the command return command into a
string."
(let* ((dtache-session-mode (cond ((eq dtache-session-mode 'attach) 'attach)
((not (dtache--session-attachable
session)) 'create)
(t dtache-session-mode)))
- (socket (dtache--session-file session 'socket t)))
+ (socket (dtache--session-file session 'socket t))
+ (dtach-arg (dtache--dtach-arg)))
(setq dtache--buffer-session session)
(if (eq dtache-session-mode 'attach)
(if concat
(mapconcat 'identity
`(,dtache-dtach-program
- ,(dtache--dtach-arg)
+ ,dtach-arg
,socket)
" ")
- `(,(dtache--dtach-arg) ,socket))
+ `(,dtach-arg ,socket))
(if concat
(mapconcat 'identity
`(,dtache-dtach-program
- ,(dtache--dtach-arg)
+ ,dtach-arg
,socket "-z"
,dtache-shell-program "-c"
,(shell-quote-argument (dtache--magic-command
session)))
" ")
- `(,(dtache--dtach-arg) ,socket "-z"
+ `(,dtach-arg ,socket "-z"
,dtache-shell-program "-c"
,(dtache--magic-command session)))))))
