Mercurial > emacs
comparison lisp/vc-hooks.el @ 33634:c97a649b1987
Undo prev change.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Mon, 20 Nov 2000 14:01:35 +0000 |
| parents | 54d0b8b50927 |
| children | 6f1ab7313eb7 |
comparison
equal
deleted
inserted
replaced
| 33633:b87e05421579 | 33634:c97a649b1987 |
|---|---|
| 363 "Default implementation of vc-state-heuristic. | 363 "Default implementation of vc-state-heuristic. |
| 364 It simply calls the real state computation function `vc-BACKEND-state' | 364 It simply calls the real state computation function `vc-BACKEND-state' |
| 365 and does not employ any heuristic at all." | 365 and does not employ any heuristic at all." |
| 366 (vc-call-backend backend 'state file)) | 366 (vc-call-backend backend 'state file)) |
| 367 | 367 |
| 368 (defun vc-workfile-unchanged-p (file) | |
| 369 "Has FILE changed since last checkout?" | |
| 370 (let ((checkout-time (vc-file-getprop file 'vc-checkout-time)) | |
| 371 (lastmod (nth 5 (file-attributes file)))) | |
| 372 (if checkout-time | |
| 373 (equal checkout-time lastmod) | |
| 374 (let ((unchanged (vc-call workfile-unchanged-p file))) | |
| 375 (vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0)) | |
| 376 unchanged)))) | |
| 377 | |
| 378 (defun vc-default-workfile-unchanged-p (file) | |
| 379 "Default check whether FILE is unchanged: diff against master version." | |
| 380 (zerop (vc-call diff file (vc-workfile-version file)))) | |
| 381 | |
| 382 (defun vc-workfile-version (file) | 368 (defun vc-workfile-version (file) |
| 383 "Return version level of the current workfile FILE." | 369 "Return version level of the current workfile FILE." |
| 384 (or (vc-file-getprop file 'vc-workfile-version) | 370 (or (vc-file-getprop file 'vc-workfile-version) |
| 385 (vc-file-setprop file 'vc-workfile-version | 371 (vc-file-setprop file 'vc-workfile-version |
| 386 (vc-call workfile-version file)))) | 372 (vc-call workfile-version file)))) |
| 373 | |
| 374 ;;; actual version-control code starts here | |
| 387 | 375 |
| 388 (defun vc-default-registered (backend file) | 376 (defun vc-default-registered (backend file) |
| 389 "Check if FILE is registered in BACKEND using vc-BACKEND-master-templates." | 377 "Check if FILE is registered in BACKEND using vc-BACKEND-master-templates." |
| 390 (let ((sym (vc-make-backend-sym backend 'master-templates))) | 378 (let ((sym (vc-make-backend-sym backend 'master-templates))) |
| 391 (unless (get backend 'vc-templates-grabbed) | 379 (unless (get backend 'vc-templates-grabbed) |