452 |
(message "Checking out %s...done" filename))))) |
(message "Checking out %s...done" filename))))) |
453 |
|
|
454 |
(defun vc-cvs-delete-file (file) |
(defun vc-cvs-delete-file (file) |
455 |
(vc-cvs-command nil 0 file "remove" "-f")) |
(vc-cvs-command nil 0 file "remove" "-f") |
456 |
|
(vc-cvs-command nil 0 file "commit" "-mRemoved.")) |
457 |
|
|
458 |
(defun vc-cvs-revert (file &optional contents-done) |
(defun vc-cvs-revert (file &optional contents-done) |
459 |
"Revert FILE to the version it was based on." |
"Revert FILE to the version it was based on." |