481 |
"Return non-nil if FILE has not changed since the last checkout." |
"Return non-nil if FILE has not changed since the last checkout." |
482 |
(let ((checkout-time (vc-file-getprop file 'vc-checkout-time)) |
(let ((checkout-time (vc-file-getprop file 'vc-checkout-time)) |
483 |
(lastmod (nth 5 (file-attributes file)))) |
(lastmod (nth 5 (file-attributes file)))) |
484 |
(if checkout-time |
(if (and checkout-time |
485 |
|
;; Tramp and Ange-FTP return this when they don't know the time. |
486 |
|
(not (equal lastmod '(0 0)))) |
487 |
(equal checkout-time lastmod) |
(equal checkout-time lastmod) |
488 |
(let ((unchanged (vc-call workfile-unchanged-p file))) |
(let ((unchanged (vc-call workfile-unchanged-p file))) |
489 |
(vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0)) |
(vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0)) |