[elpa] externals/dtache 4fa1c9e8a2 134/158: Simplify call to dtache--dtach-arg

[ELPA Syncer]

branch: externals/dtache
commit 4fa1c9e8a29d8ec2f109b33aa5298fbd45944170
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    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)))))))