[elpa] externals/dtache 7ddd1e29ef 146/158: Fix error on remote hosts

[ELPA Syncer]

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

    Fix error on remote hosts
    
    Connection local variables was not used when assigning the directory
    of the session. Hence the correct dtache-session-directory was not
    applied.
---
 dtache.el | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/dtache.el b/dtache.el
index 611e0d2e8a..ec0fa322a2 100644
--- a/dtache.el
+++ b/dtache.el
@@ -502,24 +502,25 @@ compilation or shell-command the command will also kill 
the window."
 
 (defun dtache-create-session (command)
   "Create a `dtache' session from COMMAND."
-  (dtache--create-session-directory)
-  (let ((session
-         (dtache--session-create :id (intern (dtache--create-id command))
-                                 :command command
-                                 :origin dtache-session-origin
-                                 :action dtache-session-action
-                                 :working-directory 
(dtache--get-working-directory)
-                                 :attachable (dtache-attachable-command-p 
command)
-                                 :creation-time (time-to-seconds 
(current-time))
-                                 :status 'unknown
-                                 :log-size 0
-                                 :directory (file-name-as-directory 
dtache-session-directory)
-                                 :host (dtache--host)
-                                 :metadata (dtache-metadata)
-                                 :state 'active)))
-    (dtache--db-insert-entry session)
-    (dtache--start-session-monitor session)
-    session))
+  (with-connection-local-variables
+   (dtache--create-session-directory)
+   (let ((session
+          (dtache--session-create :id (intern (dtache--create-id command))
+                                  :command command
+                                  :origin dtache-session-origin
+                                  :action dtache-session-action
+                                  :working-directory 
(dtache--get-working-directory)
+                                  :attachable (dtache-attachable-command-p 
command)
+                                  :creation-time (time-to-seconds 
(current-time))
+                                  :status 'unknown
+                                  :log-size 0
+                                  :directory (file-name-as-directory 
dtache-session-directory)
+                                  :host (dtache--host)
+                                  :metadata (dtache-metadata)
+                                  :state 'active)))
+     (dtache--db-insert-entry session)
+     (dtache--start-session-monitor session)
+     session)))
 
 (defun dtache-start-session (command &optional suppress-output)
   "Start a `dtache' session running COMMAND.