branch: master
commit 161b1b3b4c194ac80fb7bd495b1364a305f3d6d7
Author: Alexey Veretennikov <[email protected]>
Commit: Alexey Veretennikov <[email protected]>
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)
