[elpa] externals/ssh-deploy 99727db 125/173: Updated completed deletion messages for more salience

[Stefan Monnier]

branch: externals/ssh-deploy
commit 99727dbba419d81af9a852ea0eb3ac908d3072ee
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>

    Updated completed deletion messages for more salience
---
 ssh-deploy.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index b7b4a54..5aa4dfa 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -3,8 +3,8 @@
 ;; Author: Christian Johansson <github.com/cjohansson>
 ;; Maintainer: Christian Johansson <github.com/cjohansson>
 ;; Created: 5 Jul 2016
-;; Modified: 12 Apr 2018
-;; Version: 1.84
+;; Modified: 18 Apr 2018
+;; Version: 1.85
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-ssh-deploy
 
@@ -695,16 +695,16 @@
                   (list ,path 0)))
             (list ,path 1)))
        (lambda(response)
-         (cond ((= 0 (nth 1 response)) (message "Deleted '%s'. 
(asynchronously)" (nth 0 response)))
-               (t (display-warning "ssh-deploy" (format "Did not find '%s'. 
(asynchronously)" (nth 0 response)) :warning)))))
+         (cond ((= 0 (nth 1 response)) (message "Completed deletion of '%s'. 
(asynchronously)" (nth 0 response)))
+               (t (display-warning "ssh-deploy" (format "Did not find '%s' for 
deletion. (asynchronously)" (nth 0 response)) :warning)))))
     (if (file-exists-p path)
         (let ((file-or-directory (not (file-directory-p path))))
           (progn
             (if file-or-directory
                 (delete-file path t)
               (delete-directory path t t))
-            (message "Deleted '%s'. (synchronously)" path)))
-      (display-warning "ssh-deploy" (format "Did not find '%s'. 
(synchronously)" path) :warning))))
+            (message "Completed deletion of '%s'. (synchronously)" path)))
+      (display-warning "ssh-deploy" (format "Did not find '%s' for deletion. 
(synchronously)" path) :warning))))
 
 ;;;### autoload
 (defun ssh-deploy-delete-both (path-local &optional root-local root-remote 
async debug exclude-list)