branch: externals/ssh-deploy
commit 99727dbba419d81af9a852ea0eb3ac908d3072ee
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
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)
