summaryrefslogtreecommitdiff
path: root/lisp/vc-hooks.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2008-08-27 20:39:33 +0000
committerChong Yidong <cyd@stupidchicken.com>2008-08-27 20:39:33 +0000
commit5d3351276ef2016222ad308732e640596e8a5eeb (patch)
tree1dd6c10cd4571fe560177db003eaa5c9c98e643b /lisp/vc-hooks.el
parente69a192167c3092a739e143fb471e8a6c114cbfa (diff)
downloademacs-5d3351276ef2016222ad308732e640596e8a5eeb.tar.gz
(vc-workfile-unchanged-p): If the checkout time is not the same as the
last modification time, fall back on the backend-specific check.
Diffstat (limited to 'lisp/vc-hooks.el')
-rw-r--r--lisp/vc-hooks.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 260e6a8a8c4..6b90fa1381f 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -559,13 +559,13 @@ and does not employ any heuristic at all."
"Return non-nil if FILE has not changed since the last checkout."
(let ((checkout-time (vc-file-getprop file 'vc-checkout-time))
(lastmod (nth 5 (file-attributes file))))
- (if (and checkout-time
+ (or (and checkout-time
;; Tramp and Ange-FTP return this when they don't know the time.
- (not (equal lastmod '(0 0))))
- (equal checkout-time lastmod)
- (let ((unchanged (vc-call workfile-unchanged-p file)))
- (vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0))
- unchanged))))
+ (not (equal lastmod '(0 0)))
+ (equal checkout-time lastmod))
+ (let ((unchanged (vc-call workfile-unchanged-p file)))
+ (vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0))
+ unchanged))))
(defun vc-default-workfile-unchanged-p (backend file)
"Check if FILE is unchanged by diffing against the master version.