emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 6826c3f 1/2: Issue #18: files considered different if they


From: Alexey Veretennikov
Subject: [elpa] master 6826c3f 1/2: Issue #18: files considered different if they have different sizes
Date: Mon, 26 Dec 2016 14:19:27 +0000 (UTC)

branch: master
commit 6826c3f3f3735fbf060206072392d67f0990f817
Author: Alexey Veretennikov <address@hidden>
Commit: Alexey Veretennikov <address@hidden>

    Issue #18: files considered different if they have different sizes
---
 ztree-diff-model.el |   17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/ztree-diff-model.el b/ztree-diff-model.el
index 20df0c0..617f8b8 100644
--- a/ztree-diff-model.el
+++ b/ztree-diff-model.el
@@ -143,11 +143,18 @@ RIGHT if only on the right side."
 Returns t if equal."
   (unless (ztree-same-host-p file1 file2)
     (error "Compared files are not on the same host"))
-  (let* ((file1-untrampified (ztree-quotify-string (ztree-untrampify-filename 
file1)))
-         (file2-untrampified (ztree-quotify-string (ztree-untrampify-filename 
file2)))
-         (diff-command (concat diff-command " -q" " " file1-untrampified " " 
file2-untrampified))
-         (diff-output (shell-command-to-string diff-command)))
-    (if (<= (length diff-output) 2) 'same 'diff)))
+  (let* ((file1-untrampified (ztree-untrampify-filename file1))
+         (file2-untrampified (ztree-untrampify-filename file2))
+         (diff-cmd (concat diff-command " -q" " "
+                           (ztree-quotify-string file1-untrampified)
+                           " "
+                           (ztree-quotify-string file2-untrampified))))
+    (if (and 
+         (= (nth 7 (file-attributes file1-untrampified))
+            (nth 7 (file-attributes file2-untrampified)))
+         (> (length (shell-command-to-string diff-cmd)) 2))
+        'diff
+      'same)))
 
 (defun ztree-directory-files (dir)
   "Return the list of full paths of files in a directory DIR.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]