/[emacs]/emacs/lisp/vc-hooks.el
ViewVC logotype

Diff of /emacs/lisp/vc-hooks.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.173 by kfstorm, Wed Feb 9 15:50:40 2005 UTC revision 1.174 by spiegel, Fri Apr 1 17:21:52 2005 UTC
# Line 481  and does not employ any heuristic at all Line 481  and does not employ any heuristic at all
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))

Legend:
Removed from v.1.173  
changed lines
  Added in v.1.174

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26