comparison lisp/vc-hooks.el @ 83284:360860a0006f

Merged from [e-mail]--gnu-2005 (patch 45-55, 214-231) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-214 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-215 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-216 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-217 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-218 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-219 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-220 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-221 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-222 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-223 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-224 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-225 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-226 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-227 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-228 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-229 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-230 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-231 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-45 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-46 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-47 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-48 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-49 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-50 Update from CVS: texi Makefile.in CVS keyw cruft * [e-mail]--gnu-2005/gnus--rel--5.10--patch-51 Update from CVS: ChangeLog tweaks * [e-mail]--gnu-2005/gnus--rel--5.10--patch-52 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-53 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-54 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-55 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-324

83283:45e5f0224d81

(defun vc-workfile-unchanged-p (file)
  "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 checkout-time
        (equal checkout-time lastmod)
      (let ((unchanged (vc-call workfile-unchanged-p file)))
        (vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0))
        unchanged))))

83284:360860a0006f

(defun vc-workfile-unchanged-p (file)
  "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
             ;; 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))))