[elpa] externals/ssh-deploy d0be946 124/173: Improved the salience of completion messages

[Stefan Monnier]

branch: externals/ssh-deploy
commit d0be94676f44078fd29668c6e1a790cc0cc02f88
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>

    Improved the salience of completion messages
---
 ssh-deploy.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index ca5ce23..b7b4a54 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: 24 Mar 2018
-;; Version: 1.83
+;; Modified: 12 Apr 2018
+;; Version: 1.84
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-ssh-deploy
 
@@ -315,7 +315,7 @@
                                 (make-directory (file-name-directory 
,path-remote) t))
                             (copy-file ,path-local ,path-remote t t t t)
                             (copy-file ,path-local ,revision-path t t t t)
-                            (list 0 (format "Upload of file '%s' completed. 
(asynchronously)" ,path-remote)))
+                            (list 0 (format "Completed upload of file '%s'. 
(asynchronously)" ,path-remote)))
                         (list 1 (format "Remote file '%s' has changed, please 
download or diff. (asynchronously)" ,path-remote)))
                     (list 1 "Function 'ediff-same-file-contents' is missing. 
(asynchronously)")))
                (lambda(return)
@@ -329,7 +329,7 @@
                 (copy-directory ,path-local ,path-remote t t t)
                 ,path-local)
              (lambda(return-path)
-               (message "Upload of directory '%s' finished. (asynchronously)" 
return-path))))))
+               (message "Completed upload of directory '%s'. (asynchronously)" 
return-path))))))
     (message "async.el is not installed")))
 
 (defun ssh-deploy--upload-via-tramp (path-local path-remote force 
revision-folder)
@@ -349,13 +349,13 @@
                         (make-directory (file-name-directory path-remote) t))
                     (copy-file path-local path-remote t t t t)
                     (ssh-deploy-store-revision path-local revision-folder)
-                    (message "Upload '%s' completed. (synchronously)" 
path-local))
+                    (message "Completed upload of '%s'. (synchronously)" 
path-local))
                 (display-warning "ssh-deploy" (format "Remote file '%s' has 
changed, please download or diff. (synchronously)" path-remote) :warning))
             (display-warning "ssh-deploy" "Function 'ediff-same-file-contents' 
is missing." :warning)))
       (progn
         (message "Uploading directory '%s' to '%s'.. (synchronously)" 
path-local path-remote)
         (copy-directory path-local path-remote t t t)
-        (message "Upload '%s' finished. (synchronously)" path-local)))))
+        (message "Completed upload of '%s'. (synchronously)" path-local)))))
 
 (defun ssh-deploy--download-via-tramp-async (path-remote path-local 
revision-folder)
   "Download PATH-REMOTE to PATH-LOCAL via TRAMP asynchronously and make a copy 
in REVISION-FOLDER."
@@ -374,7 +374,7 @@
                 (copy-directory ,path-remote ,path-local t t t))
               ,path-local))
          (lambda(return-path)
-           (message "Download of '%s' finished. (asynchronously)" 
return-path))))
+           (message "Completed download of '%s'. (asynchronously)" 
return-path))))
     (display-warning "ssh-deploy" "async.el is not installed" :warning)))
 
 (defun ssh-deploy--download-via-tramp (path-remote path-local revision-folder)
@@ -387,11 +387,11 @@
               (make-directory (file-name-directory path-local) t))
           (copy-file path-remote path-local t t t t)
           (ssh-deploy-store-revision path-local revision-folder)
-          (message "Download of file '%s' finished. (synchronously)" 
path-local))
+          (message "Completed download of file '%s'. (synchronously)" 
path-local))
       (progn
         (message "Downloading directory '%s' to '%s'.. (synchronously)" 
path-remote path-local)
         (copy-directory path-remote path-local t t t)
-        (message "Download of directory '%s' finished. (synchronously)" 
path-local)))))
+        (message "Completed download of directory '%s'. (synchronously)" 
path-local)))))
 
 (defun ssh-deploy--diff-directories-data (directory-a directory-b exclude-list)
   "Find difference between DIRECTORY-A and DIRECTORY-B but exclude paths 
matching EXCLUDE-LIST."
@@ -599,13 +599,13 @@
             (require 'ssh-deploy)
             (ssh-deploy--diff-directories-data ,directory-a ,directory-b (list 
,@exclude-list)))
          (lambda(diff)
-           (message "Differences calculated between directory '%s' and '%s' -> 
%s only in A, %s only in B, %s differs. (asynchronously)" (nth 0 diff) (nth 1 
diff) (length (nth 4 diff)) (length (nth 5 diff)) (length (nth 7 diff)))
+           (message "Completed calculated differences between directory '%s' 
and '%s'. Result: %s only in A, %s only in B, %s differs. (asynchronously)" 
(nth 0 diff) (nth 1 diff) (length (nth 4 diff)) (length (nth 5 diff)) (length 
(nth 7 diff)))
            (if (or (> (length (nth 4 diff)) 0) (> (length (nth 5 diff)) 0) (> 
(length (nth 7 diff)) 0))
                (ssh-deploy--diff-directories-present diff)))))
     (progn
       (message "Generating differences between directory '%s' and '%s'.. 
(synchronously)" directory-a directory-b)
       (let ((diff (ssh-deploy--diff-directories-data directory-a directory-b 
exclude-list)))
-        (message "Differences calculated between directory '%s' and '%s' -> %s 
only in A, %s only in B, %s differs. (synchronously)" (nth 0 diff) (nth 1 diff) 
(length (nth 4 diff)) (length (nth 5 diff)) (length (nth 7 diff)))
+        (message "Completed calculated differences between directory '%s' and 
'%s'. Result: %s only in A, %s only in B, %s differs. (synchronously)" (nth 0 
diff) (nth 1 diff) (length (nth 4 diff)) (length (nth 5 diff)) (length (nth 7 
diff)))
         (if (or (> (length (nth 4 diff)) 0) (> (length (nth 5 diff)) 0) (> 
(length (nth 7 diff)) 0))
             (ssh-deploy--diff-directories-present diff))))))