comparison lisp/vc.el @ 31718:a42f956dd8ad

(vc-revert-buffer): Set vc-checkout-time correctly.
author André Spiegel <spiegel@gnu.org>
date Tue, 19 Sep 2000 13:58:56 +0000
parents de4e73d77734
children 495ca3bd372d
comparison
equal deleted inserted replaced
31717:6b20b7e85e3c 31718:a42f956dd8ad
2101 (message "Reverting %s..." file) 2101 (message "Reverting %s..." file)
2102 (with-vc-properties 2102 (with-vc-properties
2103 file 2103 file
2104 (vc-call revert file) 2104 (vc-call revert file)
2105 `((vc-state up-to-date) 2105 `((vc-state up-to-date)
2106 (vc-checkout-time (nth 5 (file-attributes file))))) 2106 (vc-checkout-time ,(nth 5 (file-attributes file)))))
2107 (vc-resynch-buffer file t t) 2107 (vc-resynch-buffer file t t)
2108 (message "Reverting %s...done" file))) 2108 (message "Reverting %s...done" file)))
2109 2109
2110 ;;;###autoload 2110 ;;;###autoload
2111 (defun vc-cancel-version (norevert) 2111 (defun vc-cancel-version (norevert)