[elpa] master 161b1b3 35/92: Added messages

[Alexey Veretennikov]

branch: master
commit 161b1b3b4c194ac80fb7bd495b1364a305f3d6d7
Author: Alexey Veretennikov <address@hidden>
Commit: Alexey Veretennikov <address@hidden>

    Added messages
---
 ztree-diff-model.el |   18 +++++++++++-------
 1 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/ztree-diff-model.el b/ztree-diff-model.el
index f7b1114..796302b 100644
--- a/ztree-diff-model.el
+++ b/ztree-diff-model.el
@@ -162,13 +162,17 @@ the rest is the combined list of nodes"
     (error "Path %s is not a directory" dir1))
   (when (not (file-directory-p dir2))
     (error "Path %s is not a directory" dir2))
-  (let ((traverse (ztree-diff-model-traverse dir1 dir2)))
-    (ztree-diff-model-create-node dir1 dir2
-                                  (concat (file-short-name dir1)
-                                          " <--> "
-                                          (file-short-name dir2))
-                                  (cdr traverse)
-                                  (car traverse))))
+  (message (concat "Comparing " dir1 " and " dir2 " ..."))
+  (let* ((traverse (ztree-diff-model-traverse dir1 dir2))
+         (model 
+          (ztree-diff-model-create-node dir1 dir2
+                                        (concat (file-short-name dir1)
+                                                " <--> "
+                                                (file-short-name dir2))
+                                        (cdr traverse)
+                                        (car traverse))))
+    (message "Done.")
+    model))
 
   
 (provide 'ztree-diff-model)