[elpa] externals/ssh-deploy 2048399 021/133: Passing async-with-threads to directory diff

[Stefan Monnier]

branch: externals/ssh-deploy
commit 2048399bc24b53db88aeb6fb4baa194a1f6ef298
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Passing async-with-threads to directory diff
---
 ssh-deploy-diff-mode.el | 3 +--
 ssh-deploy.el           | 2 ++
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/ssh-deploy-diff-mode.el b/ssh-deploy-diff-mode.el
index c921aba..f9010cc 100644
--- a/ssh-deploy-diff-mode.el
+++ b/ssh-deploy-diff-mode.el
@@ -235,8 +235,7 @@
          (path-remote (expand-file-name file-name root-remote))
          (async (cond ((boundp 'ssh-deploy-async) ssh-deploy-async)(t 0)))
          (debug (cond ((boundp 'ssh-deploy-debug) ssh-deploy-debug)(t 0)))
-         (exclude-list (cond ((boundp 'ssh-deploy-exclude-list) 
ssh-deploy-exclude-list)(t nil)))
-         (revision-folder (cond ((boundp 'ssh-deploy-revision-folder) 
ssh-deploy-revision-folder)(t nil))))
+         (exclude-list (cond ((boundp 'ssh-deploy-exclude-list) 
ssh-deploy-exclude-list)(t nil))))
     (if (and (fboundp 'ssh-deploy-delete)
              (fboundp 'ssh-deploy-delete-both))
         (cond ((= section ssh-deploy-diff-mode--section-in-both)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index c681c97..7818ac6 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -666,6 +666,7 @@
         (old-ssh-deploy-on-explicit-save ssh-deploy-on-explicit-save)
         (old-ssh-deploy-debug ssh-deploy-debug)
         (old-ssh-deploy-async ssh-deploy-async)
+        (old-ssh-deploy-async-with-threads ssh-deploy-async-with-threads)
         (old-ssh-deploy-revision-folder ssh-deploy-revision-folder)
         (old-ssh-deploy-automatically-detect-remote-changes 
ssh-deploy-automatically-detect-remote-changes)
         (old-ssh-deploy-exclude-list ssh-deploy-exclude-list))
@@ -718,6 +719,7 @@
     (set (make-local-variable 'ssh-deploy-on-explicit-save) 
old-ssh-deploy-on-explicit-save)
     (set (make-local-variable 'ssh-deploy-debug) old-ssh-deploy-debug)
     (set (make-local-variable 'ssh-deploy-async) old-ssh-deploy-async)
+    (set (make-local-variable 'ssh-deploy-async-with-threads) 
old-ssh-deploy-async-with-threads)
     (set (make-local-variable 'ssh-deploy-revision-folder) 
old-ssh-deploy-revision-folder)
     (set (make-local-variable 'ssh-deploy-automatically-detect-remote-changes) 
old-ssh-deploy-automatically-detect-remote-changes)
     (set (make-local-variable 'ssh-deploy-exclude-list) 
old-ssh-deploy-exclude-list)))